Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21325 / 76732

←次へ　｜　前へ→


	【60808】Re:［無題］

kanabun - 09/3/16(月) 16:36 -


	引用なし

	パスワード

▼新参者2 さん：

> t = sh2.Cells(4, 2).Value
> u = 2
> If u <= t * 4 Then
>　　 For w = u To 4 * t
>　　　　 u = u + 4
>　　 Next w
>
> Else
>　　MsgBox "値がおかしいです。"
> End If

ここの
>　　 For w = u To 4 * t
の部分だけとりだすと、↓こういう構文になります。
Sub Test1()
　Dim t As Long
　Dim w As Long
　Dim u As Long
　t = 4 'かりに t = 4 とする
　u = 2
　For w = u To t * 4
　　　Debug.Print "w="; w, "u="; u
　　　u = u + 4
　Next
End Sub
これを実行すると、イミディエイト・ウィンドウにこう表示されます。

w= 2　　　　　u= 2
w= 3　　　　　u= 6
w= 4　　　　　u= 10
w= 5　　　　　u= 14
w= 6　　　　　u= 18
w= 7　　　　　u= 22
w= 8　　　　　u= 26
w= 9　　　　　u= 30
w= 10　　　　 u= 34
w= 11　　　　 u= 38
w= 12　　　　 u= 42
w= 13　　　　 u= 46
w= 14　　　　 u= 50
w= 15　　　　 u= 54
w= 16　　　　 u= 58

▼実際は uを初期値2 から Step 4 づつ回したいのではないですか？
Sub Test2()
　Dim t As Long
　Dim u As Long
　t = 4
　For u = 2 To t * 4 Step 4
　　　Debug.Print "u="; u
　Next
End Sub
----------------- イミディエイト・ウィンドウの出力
u= 2
u= 6
u= 10
u= 14

0 hits

▼

【60781】［無題］ 新参者 09/3/14(土) 3:47