i2i無料WEBパーツ
FC2ブログ

VBA Do...Until ループを使用して、セルを移動のメモ

VBA
07 /22 2010
SEやってると、エクセルを使うことって多々ありますわな。
さらに、マクロでちゃちゃっとできたらなぁ・・・って思うこともこれまたよくあるわけで。
でも、VBAってたまにしか組む事がないのでいざ組もうとしても結構てまどっちゃうんだよね。

そんなわけで、よく使うスクリプトをメモしときます。
繰り返し処理って基本ですが、すぐわすれちゃうんですよねぇ・・・。

Microsoft Support ループの最初にテストを行う Do...Until

' ループの最初にテストを行う Do ループを実行します。
' 空のセルに到達するまでループ処理します。
' Do While Not IsEmpty(ActiveCell) ループを使用することもできます。
Sub test_before_do_loop()

' アクティブ セルをテストし、空の場合はループを終了
Do Until IsEmpty(ActiveCell)
' メッセージ ボックスにセルの内容を表示
MsgBox ActiveCell.Value
' 1 つ下のセルに移動
ActiveCell.Offset(1, 0).Select
Loop
End Sub

コメント

非公開コメント

KevinJohnsonjp

札幌でSEやってる人の業務日誌。

↓こんなのも書いてたりします。
ホットペッパー KJさんのグルメ手帳『北○』の口コミ書きました