Excel VBA - 変数をテキストとセルの値に設定します

Question

私の最初のVBAスクリプトで作業していますが、私は立ち往生しています。変数をセルの値とテキストに設定したいのですが、どちらか一方だけに変数を設定することができます。

例：

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に設定できますが、両方に設定することはできません。私は間違った宣言などを使っていると確信しています。

現時点では、私の回避策は、この変数をIF THEN ELSEに使用するインスタンスを変更し、コードを複製する必要があるためコーディングの量を2倍にします。フィードバックをお寄せいただきありがとうございます。

Answer 1

これを行うための別の方法は次のようになります。

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