Static変数を利用してステータスバーに文字をスクロールさせる。

コード

※Mainプロシージャを起動すると無限ループになるので止め方をご存知の方のみ実行してください。

#If VBA7 ThenPrivateDeclare PtrSafe Sub Sleep Lib"kernel32"(ByVal ms As LongPtr)#ElsePrivateDeclareSub Sleep Lib"kernel32"(ByVal ms AsLong)#EndIfSub Main()Do
        Application.StatusBar = RotateString("ただいまマクロを実行しています。しばらくお待ちください。","　")DoEvents
        Sleep 100LoopEndSubPrivateFunction RotateString(cap AsString, pad AsString)Dim paddedString AsString
    paddedString =String(Len(cap), pad)& cap &String(Len(cap), pad)Static i AsLongIfLen(cap)*2> i Then
        i = i +1Else
        i =1EndIf
    RotateString =Mid(paddedString, i,Len(cap))EndFunction

解説

RotateString関数のStatic変数 i がポイント。
Staticで宣言した変数はプロシージャが終了しても値が保持されるので、このように呼び出すたびに違う値を返す関数を作るのに便利だ。

Staticを使いこなすコツは、「明示的に初期化しない」こと。

たとえば以下の箇所は、宣言された後、値が代入される前にIf文の判定でiを参照している。

Static i AsLongIfLen(cap)*2> i Then
        i = i +1Else
        i =1EndIf

Long型で宣言したなら初期値は0なので、初回の呼び出し時にiは0である。
2度目の呼び出し時には、iは前回の呼び出しの終了時点の値をキープしている。

もし以下のように0で初期化する処理を挟んでしまうと何度呼び出しても0が入ってしまい、Staticにした意味がなくなる。

Static i AsLong
    i =0IfLen(cap)*2> i Then
        i = i +1Else
        i =1EndIf

明示的に代入する前に参照させるのがStaticを使いこなすコツだ。
これは慣れるまでなんとなく気持ち悪いかもしれないが、そういうものだと割り切るしかない。