エクセルのプログレスバーで１秒ずつ文字を表示させること

前回の質問では無事に進捗を表示させることが出来ました。

そしてそのバーを見ていて思ったのが
パーセントをリアルタイムで表示できているので
文字を数秒ごとに表示して簡易的なアニメーションは作れないか？という疑問です。

日が浅いのでよくわかっていませんが、
UserForm1.Label1.Caption = の部分がラベルに表示させる文字だとしたら、
この部分を、文字を１秒表示→別の文字を１秒出す→...
ということは可能なのでしょうか？

パーセントが増えていく進捗を眺めているだけではつまらないと思ったので
顔文字が回る様子をプログレスバーに付けたせたらなぁなんて遊び心です。

(ﾟ∀ﾟ)
( ﾟ∀)
( ﾟ)
( )
(ﾟ )
(∀ﾟ )
(ﾟ∀ﾟ)

        'プログレスバーの値表示を更新
        If UserForm1.ProgressBar1.Min < i And _
        UserForm1.ProgressBar1.Max >= i Then
         
            'プログレスバーのLabel表示を更新
            percent = CInt(i / count * 100)
            UserForm1.Label1.Caption = percent & "%完了"
            'プログレスバーの値を更新
            UserForm1.ProgressBar1.Value = i
            '滞留処理を実行
            DoEvents
             
        End If

退会済みユーザー

2016/08/21 10:23

プログレスバーのパーセントの変更と同じですが対象オブジェクトが変わるだけです

行動規範の内容に同意します

回答3件

VBAでタイマー処理を行う方法について、以前回答したことがありましたのでご紹介させていただきます。

⇒こちら

投稿2016/08/22 06:19

jawa

総合スコア3013

ベストアンサー

秒間隔でアニメーションはVBAでは厳しいかもしれませんね。
そこまで拘らないのであれば、パーセンテージ毎にアニメーションするのなら比較的楽だと思います。
例

VBA
1Dim ptn(6)
2ptn(0) = "(ﾟ∀ﾟ)"
3ptn(1) = "( ﾟ∀)"
4ptn(2) = "( ﾟ)"
5ptn(3) = "(  )"
6ptn(4) = "(ﾟ )"
7ptn(5) = "(∀ﾟ )"
8For i = 0 To 100
9    Debug.Print ptn(i Mod 6)
10Next

投稿2016/08/22 01:43

ttyp03

総合スコア16998

dokoniarukana

2016/08/23 03:57

色々弄ってみましたがどうしても( ﾟ)や一部分で止まってしまいます。

ttyp03

2016/08/23 04:01

関数内の先頭で、ptnの定義をしておいて、ループ内で次のようにしたらダメですか？ UserForm1.Label1.Caption = ptn(percent mod 6)

dokoniarukana

2016/08/23 04:18

出来ました！可愛く回転しています。ありがとうございました！

行動規範の内容に同意します

通常ならタイマー系イベントを使いたいところですが、VBAには標準では無いので
開始時間を記憶しておき、DateDiffを使って経過秒数を取得、それに利用した処理を書くことになります。

ヒントとして経過秒数の取り方の例です。
（下記そのままループ内に書いてしまうと0しか取れませんが）

vb
1Dim st As Date    ' ループの前
2st = DateTime.Now ' ループの前
3
4   diff = DateDiff("s", st, DateTime.Now) ' 秒で間隔を計算
5   UserForm1.Label1.Caption = cstr(diff) & "秒経過"