https://koukimra.com/archives/1866
上記を参考に、図形を使ってのマクロ処理中のメッセージを表示したいと考えています。
コード内に
If MsgBox("実行します。よろしいですか?", vbOKCancel) = vbOK Then
Worksheets(1).Shapes("macro_msg2").Visible = True
Application.Wait Now + TimeValue("00:00:01")
★処理コードを記載★
Worksheets(1).Shapes("macro_msg2").Visible = False
(☆下記画面処理コード挿入)
MsgBox "作業が終了しました。"
Else
Exit Sub
End If
このように記載をしています。
ステップインでの処理を確認する際はmacro_msg2の図形がきちんと表示されますが、
通常処理を行うと、図形が表示されないままMsgboxの処理にたどり着きます。
1秒の待ち時間を5秒としても同様です。
処理に当たり、画面のちらつき防止等で
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
こちらを上記処理の☆で入れていますが、図形の表示とこれらの有無は関係なさそうです。
処理速度が速すぎるための結果なのか、判断がつきません。
どこが原因でしょうか?
詳しい方、教えてください。
No.1ベストアンサー
- 回答日時:
こんばんは
Shapeが表示されないのは、画面が更新されないからでしょう。
>Worksheets(1).Shapes("macro_msg2").Visible = True
の直後に
Application.ScreenUpdating = True
DoEvents
を入れてみてください。
(DoEvents なしでもOKと思いますが、念のため)
回答ありがとうございます。
2つのシートのうち、1つは上記のDoEventsを使うことでうまくいきました。
もう一つのシートは更新されずに表示されません。
DoEventsの後に
Msgboxで適当な文言や処理を入れると、きちんと表示されますが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
長い時間かかるマクロが実行中かどうかを表示したい
Excel(エクセル)
-
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
マクロを実行中に、msgbox を表示させたまま、ワークシートを上下左右に移動表示させたい。
Excel(エクセル)
-
-
4
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
7
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
-
8
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
9
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
13
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
14
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
15
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
16
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
17
VBAのWindowオブジェクトとWorkbookオブジェクトの違い
Visual Basic(VBA)
-
18
Excelでマクロ実行中に画面を固定する方法
Visual Basic(VBA)
-
19
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
20
ProgressBarを用いる場合、全体の処理数の求め方(Do Loop文に関して)。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
UMLでの例外処理
-
DoEventsがやはり分からない
-
switch の範囲指定
-
VBAでループ内で使う変数名を可...
-
FFTの結果ついて
-
【Excel】特定の文字を含むセル...
-
findは動くがfindnextがマクロ...
-
EXCEL VBA マクロ 実行する度に...
-
Loadイベント中にほかのイベン...
-
月度は何て読みますか?
-
リョウ・・・量?料?
-
C# 二次元配列 ドット絵の表示...
-
取り消し線が入った文字を削除...
-
メルカリのメルカードで買い物...
-
ボタンクリックイベント 重複...
-
処理の実行中にOutLookがまとも...
-
VBAでCOPYを繰り返すと、処理が...
-
waitせずにキー入力があった場...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
DoEventsがやはり分からない
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
VBの質問#if 0 then ってどう...
-
VBAでCOPYを繰り返すと、処理が...
-
EXCEL VBA マクロ 実行する度に...
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
UMLでの例外処理
-
リョウ・・・量?料?
-
Do~Loopした回数をカウントしたい
-
セックスレスの既婚女性は自慰...
-
月度は何て読みますか?
-
セルの値が0はクリアするマクロ
-
Loadイベント中にほかのイベン...
-
FFTの結果ついて
おすすめ情報