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. 확인을 클릭하세요. 이제 선택된 셀이 빨간색 배경으로 깜빡입니다.

팁:

(1) VBA 코드에서 배경 색상 (xColor = 3), 깜빡임 속도 (xSpeed = 0.6) 및 깜빡임 횟수 (Do Until xCount = 20)를 원하는 대로 변경할 수 있습니다.

(2) 이 VBA 코드는 빈 선택 영역에 깜빡이는 배경을 추가하지 않습니다.

(3) 깜빡임 배경은 설정된 시간이 지나면 자동으로 제거됩니다.