|
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
|
|