|
こんにちは。かみちゃん です。
>>出す必要はないとはなぜそう思うのですか?
>
>こちらも画面上にメッセージボックスがいちいち出るのかと思っていました。
>> If Not myRange Is Nothing Then
>> でない場合、変数iへの格納処理がされていません。
の場合だけ出るメッセージてであることは理解いただけましたか?
今回、Exit Sub とすることで、マクロを終了していますが、
終了したくない場合は、変数i に対して、何かを格納しないといけませんので、
そのあたりは、よく考えてください。
>>後の変数iの使い方から考えて、
>> Dim i As String
>>と
>> i = myRange.Offset(2, 1).Select
>>が誤っていると思われます。
>>
>言われたとおり、そのまま書き直したらできていました。
>なぜそうする必用があるのかは、今後の勉強です。
ポイントは、変数i を何のために使っているのかということです。
Cells(i, "B").Value
は、どういう意味なのかを考えてみて、以下のコードを試してみてください。
変数の内容の違いが確認できるようにしてあります。
Sub TEST()
Dim myRange As Range
Dim i As String
Dim j As Long
Dim k As Long
Set myRange = Range("A1")
i = myRange.Offset(2, 1).Select
j = myRange.Offset(2, 1).Row
k = myRange.Row + 2
MsgBox "変数i の内容は " & i
MsgBox "変数j の内容は " & j
MsgBox "変数k の内容は " & k
End Sub
|
|