Excel VBA質問箱 IV

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

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


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

58781 / 76738

←次へ　｜　前へ→


	【22680】Re:処理を行っている間メッセージボックスを...

ponpon - 05/2/28(月) 0:44 -


	引用なし

	パスワード

▼kuppa さん：
>こんばんは。
ponponです。こんばんは。
>VBAで処理中、現在何件目を処理しているかを表示させるため、
>処理中は常にメッセージボックスのようなものを出力しておき、
>処理件数を出力させることは可能でしょうか？
ちゃっぴさんが言っているようにMsgBoxは、OKをおすまでVBAの処理が止まるので無理です。
　たとえば、こんな風なことかな。
ユーザーフォームにラベルを一つとコマンドボタンを一つ用意して、
ユーザーホームモジュールに
Private Sub CommandButton1_Click()
　Dim i As Long
　
　For i = 1 To 10
　　Worksheets("sheet1").Cells(i, 1).Value = i
　　Me.Label1.Caption = i & "件目の処理をしています。"
　　Application.Wait (Now + TimeValue("00:00:01"))
　　　'↑これは、処理が早すぎるためです。
Next
　Me.Label1.Caption = "処理が終わりました。"
End Sub

0 hits

▼

【22677】処理を行っている間メッセージボックスを... kuppa 05/2/27(日) 23:24