将文本和变量存储在单元格中并将其分配给变量

Question

我将Text和Variable存储在单元格中 例如单元格A1包含“当前月份”＆amp; p_Month

Mail_Subject = WS.Range("A1").value

但MsgBox (Mail_Subject)显示“当月：”＆amp; p_Month

而是当前月份：二月

如何解释变量？

Answer 1

p_Month必须是named range才能以这种方式工作（如果您的实际单元格表明这一点）并且命名范围需要包含＆＃34;二月＆＃34;

所以使用Name Manager创建一个名为p_Month的命名范围。然后在该命名范围内（单个单元格将执行）放置文本＆＃34; January＆＃34;。

然后在A1放

="Current Month: " & p_Month

示例命名范围（请参阅左上角的名称框）

测试代码（根据需要更改工作表名称）：

Option Explicit

Public Sub Testing()

Dim Mail_Subject As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")

Mail_Subject = ws.Range("A1").Value

MsgBox Mail_Subject

End Sub