Do While 条件式
条件式を満たすまで繰り返す処理
Loop
Do Until 条件式
条件式を満たすまで繰り返す処理
Loop
ん??? 「While」「Until」は同じ??? 条件を途中で抜けるには 「Exit Do」を使用 Sub rei1()
Dim myCnt As Long myCnt = 1 Do Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value myCnt = myCnt + 1 If myCnt > 5 Then Exit Do Loop End Sub |

- >
- Yahoo!サービス
- >
- Yahoo!ブログ
- >
- 練習用





