Excel でのマスター テキスト アニメーション:実証済みの 2 つの方法

方法 1 – スクロール テキスト アニメーション

• Visual Basic ウィンドウを開きます。 Alt+F11 を押します。 .
• [挿入 ] に移動して新しいモジュールを挿入します。 そしてモジュールをクリックします。 .

• 次のコードをコピーして、新しいモジュールに貼り付けます。

' Scrolling Text
Sub Start_Text_Scroll()
My_Value = ActiveSheet.Range("C4").Value
Final_Value = WorksheetFunction.Rept(My_Value, 1)
Do
For initial = 1 To Len(Final_Value)
 Length = Len(Final_Value) - 1
 DoEvents
 For AA = 1 To 10000000
 AA = AA + 1
 Next
 Range("B6") = Mid(Final_Value, initial, Length) & Left(Final_Value, initial - 1)
Next
Loop
End Sub
Sub Stop_Scrolling()
End
End Sub

️ コードはどのように機能しますか?

• スタートテキストスクロール サブルーチンはセル C4 に保存されているテキストをスクロールします。 .
• ループが作成されます テキストを左から右に移動します。
• AA の値を変更して速度を調整します。 .
• スクロールを停止するには、Stop_Scrolling を使用します。  サブルーチン。

• スクロールを開始および停止するためのボタンを追加します:
  • 挿入から図形（長方形など）を挿入します。  タブ。

• • 「スクロール開始」と入力します。  1 つの図形の中にあります。

• • Start_Text_Scroll を割り当てます。 この形状にマクロを適用します。

• • [OK] をクリックします。 .

• • スクロールを停止するまで繰り返します。  ボタン。

• ボタンを使用して、テキスト メッセージのスクロールを開始および停止します。

方法 2 – アニメーション テキストを点滅させる

• テキスト ボックスを描画する
  • 挿入に移動します。  タブをクリックしてテキストを選択します [テキスト ボックス] をクリックします。 .

• • テキスト ボックスを描画します。 好みのサイズにします。

• • テキストを入力します 点滅させたいとします。

• 空のテキスト ボックスを追加する
  • 同様の形状とサイズの追加のテキスト ボックスを作成します。

• テキスト ボックスの名前を変更する
  • テキスト ボックスの名前を次のように変更します:TextBox 1 、テキストボックス 2

• オーバーレイ テキスト ボックス
  • すべてのテキスト ボックスが重なって 1 つのボックスとして表示されるように配置します。

• VBA コード
  • Alt+F11 を押して VBA エディタを開きます。 .
  • 新しいモジュールを挿入します ([挿入]> [モジュール]) ).

• 次のコードを入力します:

Sub Blink()
On Error GoTo skip
Do While Range("B4").Value = "Blink"
For txtbx = 1 To 5
ActiveSheet.Shapes("TextBox " & txtbx).ZOrder msoBringToFront
DoEvents
Next txtbx
Loop
skip:
ActiveSheet.Shapes("TextBox 1").ZOrder msoBringToFront
Exit Sub
End Sub

️ コードはどのように機能しますか?

• まばたき サブルーチンは、テキスト ボックスを 1 つずつ前面に移動します (TextBox から) 1 テキストボックス 5 へ ）ZOrder を使用する コマンド。
• エラー処理により、最初のテキスト ボックスが表示されたままになることが保証されます。

• ワークシート コード
  • ワークシート コードに次のように入力します。

Private Sub Worksheet_Change(ByVal Tgt As Range)
If Tgt = Range("B4") Then
Call Blink
End If
End Sub

️ コードはどのように機能しますか?

• セルB4にデータを挿入した場合 , Excel では、まばたきを呼び出します。 モジュール。

覚えておくべきこと

• 2 番目の方法では、スムーズなアニメーションを実現するために、テキスト ボックスの名前を正しく変更し、位置合わせすることを忘れないでください。

練習ワークブックをダウンロード

演習ワークブックはここからダウンロードできます:

関連記事

• Excel でアニメーション棒グラフ レースを作成する方法
• Excel でアニメーション グラフを作成する方法
• ユーザーフォームの VBA アニメーション

ソリューション付きの高度な Excel 演習を無料で入手しましょう!