Excel VBA質問箱 IV

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

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


71269 / 76733 ←次へ | 前へ→

【9959】Re:単純にメッセージだけの表示
回答  BOTTA  - 03/12/25(木) 16:19 -

引用なし
パスワード
   BMAさん、こんにちは。
>マクロを実行中に単純にメッセージだけを表示させたいのですが、
>どうすればいいでしょぅか。
>例えば「マクロ実行中…」のようにしたいのです。
>MsgBox以外でそういうことができるのでしょうか。

どこへ、表示させましょうか?
よく使うのが、ステータスバーに表示する方法。
Sub aaa01()
Application.StatusBar = "マクロ実行中・・・"
'
'
'    何か処理
'
'
Application.StatusBar = False
End Sub

または、TextBoxをシート上に挿入する方法。
Sub aaa02()
Dim MyTxtBx As Shape
  Set MyTxtBx = ActiveSheet.Shapes.AddTextbox(1, 100, 100, 250, 40)
  With MyTxtBx
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
    With .TextFrame.Characters
      .Text = "マクロ実行中・・・"
      .Font.Size = 30
      .Font.ColorIndex = 3
    End With
  End With
  DoEvents
'
'
'    何か処理
'
'
MyTxtBx.Delete: Set MyTxtBx = Nothing
End Sub
2 hits

【9957】単純にメッセージだけの表示 BMA 03/12/25(木) 14:32 質問
【9959】Re:単純にメッセージだけの表示 BOTTA 03/12/25(木) 16:19 回答
【9960】Re:単純にメッセージだけの表示 Jaka 03/12/25(木) 16:43 回答

71269 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free