Option Explicit
subステータスバーに表示1()
Dim l As Long
For i = l To 100
Application.StatusBar=i&″回目の処理をしています…″
Next i
Application StatusBar = False
'↑これをクリア(False)に戻さないと、画面と閉じるときの保存ダイアログとかでなくなることがあるので注意!
End Sub
Subステータスバーに表示0
'徐々に伸びるプログレスバーを真似る
Dim : As Long
For i = l To 20000
1f i Mod 1000 = O Then
Range(″Al″) = i
Applicat:on.StatusBar〓″処理中.…″&Str:ng(int(i/1000),″■″)
End lf
Next :
Applicatlon.StatusBar = False
End Sub
Subステータスバーの表示状態と合わせて0
'/現在のステータスバーの表示状態を保持
Dim statusBarVisible As 3oolean '…→True/False
statusBarVisible = Application.DisplayStatusBar
Application.DisplayStatusBar〓True 'ステータスバーを表示
Application.StatusBar=″処理中です。お待ちください。(^_^v)″
Appl:cation.Wait Now + TimeValue(″00:00:05″) '5澤少4争窃発
Application.StatusBar=Fa:se 'ステータスバーをクリア
Application.DisplayStatusBar=statusBarVisible 'ステータスバーの表示状態を元に戻す
End Sub

NAME:

MAIL:

URL:

COLOR:
Black LimeGreen SeaGreen Teal FireBrick Tomato IndianRed BurlyWood SlateGray DarkSlateBlue LightPink DeepPink DarkOrange Gold DimGray Silver
SUBJECT:

COMMENT:


PASS: