Excel でテキストをフラッシュする方法

Excel では、点滅または点滅するテキストがフォント オプションとして機能しません。ただし、Excel のビルトイン Visual Basic for Applications を使用すると、コードを使用してセクションごとにテキストの色を変更し、点滅効果を作成できます。

ステップ 1

テキストをフラッシュする Microsoft Excel 2010 ファイルを開きます。 「Alt」と「F11」を押して VBA コンソールを開きます。

ステップ 2

VBA コンソールの左側にある [ThisWorkbook] エントリを右クリックします。マウスを [挿入] の上に移動し、[モジュール] を選択します。

ステップ 3

「ThisWorkbook」オプションをダブルクリックします。次のコードをコピーして、画面の右側の空白に貼り付けます:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(ブール値としてキャンセル) NoBlink End Sub

Blink と NoBlink が実際に何を意味するかを Excel に伝えるコードを挿入すると、このコードは、このブックを開くとテキストの点滅を開始し、ブックを閉じるとテキストの点滅を停止します。

ステップ 4

画面左側のリストから「Module 1」をダブルクリックします。画面の右側にカーソルを置き、次の行を入力してください:

パブリック タイムカウントが 2 倍

これにより、すべてのサブルーチンで使用できる「Timecount」という変数が作成されます。

ステップ 5

Enter キーを押してカーソルを次の行に移動し、次のコードを入力します:

サブブリンク() With ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex =3 Then .ColorIndex =2 Else .ColorIndex =3 End If End With Timecount =Now + TimeSerial(0 , 0, 1) Application.OnTime Timecount, "Blink", , True End Sub

これにより、定義された範囲内のすべてのテキストが点滅する「Blink」というサブルーチンが作成されます。範囲は、「A1:A10」から、個々のセルを含め、任意の範囲に変更できます。

ステップ 6

「Enter」を押して次の行にアクセスし、次のコードを入力してください:

Sub noblink() ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font.ColorIndex =_ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub

これにより、ワークブックを閉じるときに実行されるサブルーチンが作成されます。すべてのテキストが黒に戻るため、マクロを有効にせずにワークブックを開いたときにテキスト ボックスに何も表示されなくなります。

ステップ 7

右上隅の「X」をクリックして、VBA コンソールを閉じます。画面上部の「ファイル」タブをクリックし、「名前を付けて保存」を選択します。ドロップダウン フィールドから [Excel マクロ有効ブック] を選択し、ブックの名前を入力します。 [保存] をクリックします。

ステップ 8

Excel ファイルを閉じてから、もう一度開きます。マクロで定義された範囲内のテキストが点滅し始めます。セキュリティ設定によっては、画面の上部にある [マクロを有効にする] ボタンをクリックして、点滅するテキストを表示する必要がある場合があります。