|
こんにちは。かみちゃん です。
横から失礼します。
>ShibuName = "" なのに
>2.へ実行しています。
本当に ShibuName = "" なのでしょうか?
また、ShibuName = "" だから、1.実行しても2.を実行しても結果は同じかと
思いますので、1.を実行しているのに2.を実行していると思っているだけという
ことはありませんか?
試しに、以下を実行してみてください。
変数ShibuNameの内容および、1を実行しているか、2を実行しているかMsgBoxを表
示するようにしてみました。
Sub Test()
Dim ShibuName As String
Dim KaName As String
ShibuName = ""
KaName = "KaName"
MsgBox "ShibuNameの桁数=" & Len(ShibuName) & vbCrLf & _
"ShibuNameの値=[" & ShibuName & "]"
With Worksheets("プロフィール").Range("AK33")
If ShibuName = "" Then
MsgBox "1を実行します"
.Value = KaName '1.
Else
MsgBox "2を実行します"
.Value = ShibuName + KaName '2.
End If
End With
End Sub
|
|