Excelは、フォントオプションとしてテキストの点滅または点滅を備えていません。 ただし、Excelに組み込まれているVisual Basic for Applicationsを使用すると、コードを使用してセクションごとにテキストの色を変更し、点滅効果を作成できます。
ステップ1
テキストをフラッシュするMicrosoftExcel2010ファイルを開きます。 「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
画面左側のリストから「モジュール1」をダブルクリックします。 画面の右側にカーソルを置き、次の行を入力します。
パブリックタイムカウントを2倍にする
これにより、すべてのサブルーチンで使用できる「Timecount」という変数が作成されます。
ステップ5
Enterキーを押してカーソルを次の行に移動し、次のコードを入力します。
ThisWorkbookでsubblink（）。 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）アプリケーション。 OnTime Timecount、 "Blink" 、、 True End Sub
これにより、「点滅」と呼ばれるサブルーチンが作成され、定義された範囲内のすべてのテキストが点滅します。 範囲は「A1：A10」から個々のセルを含む任意の範囲に変更できます。
ステップ6
「Enter」を押して次の行にアクセスし、次のコードを入力します。
Sub noblink（）ThisWorkbook。 Worksheets（ "Sheet1"）。Range（ "A1：A10"）。Font。 ColorIndex = _xlColorIndexAutomaticアプリケーション。 OnTime Timecount、 "Blink" 、、 False End Sub
これにより、ブックを閉じたときに実行されるサブルーチンが作成されます。 すべてのテキストが黒に戻るため、マクロを有効にせずにブックを開いた人が、誤ってテキストボックスに何も表示されないようになっています。
ステップ7
右上隅の[X]をクリックして、VBAコンソールを閉じます。 画面上部の「ファイル」タブをクリックし、「名前を付けて保存」を選択します。 ドロップダウンフィールドから[Excelマクロ対応ワークブック]を選択し、ワークブックの名前を入力します。 「保存」をクリックします。
ステップ8
Excelファイルを閉じてから再度開きます。 マクロで定義された範囲内のテキストが点滅し始めます。 セキュリティ設定によっては、画面上部の[マクロを有効にする]ボタンをクリックして、点滅するテキストを表示する必要がある場合があります。
