Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16506 / 76734 ←次へ | 前へ→

【65693】Re:二つのマクロを合体したい
発言  かみちゃん  - 10/6/22(火) 15:36 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>出す必要はないとはなぜそう思うのですか?
>
>こちらも画面上にメッセージボックスがいちいち出るのかと思っていました。

>> 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
2 hits

【65683】二つのマクロを合体したい Zoo 10/6/22(火) 13:44 質問
【65684】Re:二つのマクロを合体したい かみちゃん 10/6/22(火) 13:56 発言
【65685】Re:二つのマクロを合体したい Zoo 10/6/22(火) 14:17 質問
【65686】Re:二つのマクロを合体したい かみちゃん 10/6/22(火) 14:35 発言
【65691】Re:二つのマクロを合体したい Zoo 10/6/22(火) 15:14 お礼
【65693】Re:二つのマクロを合体したい かみちゃん 10/6/22(火) 15:36 発言
【65694】Re:二つのマクロを合体したい Zoo 10/6/22(火) 15:42 お礼

16506 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free