Excelでセルを赤く点滅させる方法は？

一般的には、他のセルと区別するために異なる背景色でセルを強調します。しかし、この記事では、特定のセルを赤い背景で点滅させ、Excelで目立たせるVBAコードを紹介します。

VBAを使用してセルを赤く点滅させる

VBAを使用してセルを赤く点滅させる

セルを点滅させてユーザーの注意を引くために、以下のVBAコードを使用します。

1. 点滅させたいシートを有効にし、Alt + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞「 モジュール」をクリックし、以下のVBAコードを モジュールスクリプトに貼り付けます。スクリーンショットをご覧ください：

VBA: セルを赤く点滅させる

Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
    Dim xColor As Integer
    Dim xCount As Integer
    Dim xSpeed As Double
    Dim xStart As Double
    Dim xDelay As Double
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value > 4 Then
            xColor = 3
            xSpeed = 0.6
            Do Until xCount = 20
                DoEvents
                xStart = Timer
                xDelay = xStart + xSpeed
                Do Until Timer > xDelay
                    DoEvents
                    xRg.Interior.ColorIndex = xColor
                Loop
                xStart = Timer
                xDelay = xStart + xSpeed
                Do Until Timer > xDelay
                    DoEvents
                    xRg.Interior.ColorIndex = xlNone
                Loop
                xCount = xCount + 1
            Loop
        End If
    Next
End Sub

3. F5 キーを押すと、 Kutools for Excel ダイアログが表示され、点滅させたいセルを選択できます。スクリーンショットをご覧ください：

4. 「OK」をクリックします。これで選択したセルが赤い背景で点滅します。

ヒント：

(1) VBAコード内で、背景色（xColor = 3）、点滅速度（xSpeed = 0.6）、点滅回数 （Do Until xCount = 20）を必要に応じて変更できます。

(2) このVBAコードは、空白の選択範囲に点滅する背景を追加しません。

(3) 空白の回数が終了すると、この点滅する背景は自動的に削除されます。