Excel VBA – 将variables设置为文本和单元格值

仍然在我的第一个VBA脚本，但我卡住了。 我想设置一个variables的单元格值和文本，但它只能让我设置一个或另一个variables，而不是两个。

例：

Dim Week As Range Dim WeekCurrent As String Set Week = .Range("F4") If Week.Value = "Initial Week" Then WeekCurrent = "Initial Week" Else WeekCurrent = "Week #" Week.Value End If 

预期结果：“初始周”或“周#x”以后再打电话。

我可以将其设置为"Week #"文本或Week.Value但不能同时设置。 我确定我使用了错误的声明或其他东西。

到目前为止，我的解决方法是将任何想要使用这个variables的实例都改成IF THEN ELSE，并且把编码量加倍，因为我必须复制代码。 感谢您的反馈。

Answer 1

另一种做法可能是：

 If IsNumeric(Week) Then WeekCurrent = "Week #" & Week Else WeekCurrent = Week