[[20141031143036]]　『ステータスバー』（おやじ53号）　ページの最後に飛ぶ

『ステータスバー』（おやじ53号）

こんちはー
ステータスバーってメッセージを伝えるのに使えますね。
そこで質問なんですが左端に止まっている文字を動かすことって難しいのでしょうか。
検索して一件だけ動くのが見つかったのですが動いている時は入力できませんでした。
Application.Statusbar = の文字が動き入力の妨げにはならない。
こんな理想的なコードをご存知の方は教えてください。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

例えば、標準モジュールに以下を貼り付け、testを実行。

 Dim iNum As Long
 Dim dpNext As Date

 Sub test()
    Call sTimer
 End Sub

 Sub sTimer()
    iNum = (iNum + 1) Mod 10
    Application.StatusBar = "処理中..." & String(iNum, "■") & String(9 - iNum, "□")
    dpnext = DateAdd("s", 1, Now)
    Application.OnTime dpnext, "sTimer"
 End Sub
（???） 2014/10/31(金) 15:30

コメント返信：

[ 一覧(最新更新順) ]

[[20141031143036]] 『ステータスバー』（おやじ53号） ページの最後に飛ぶ

[[20141031143036]]　『ステータスバー』（おやじ53号）　ページの最後に飛ぶ