i2i無料WEBパーツ
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
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

コメント

コメントの投稿

  • URL
  • コメント
  • パスワード
  • 秘密
  • 管理者にだけ表示を許可する

トラックバック

トラックバックURL:http://kevinjohnson2.blog69.fc2.com/tb.php/429-0f959207
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。