Sut i wneud fflach-gell yn goch yn Excel?

Yn gyffredinol, rydym yn tynnu sylw at y celloedd sydd â chefndiroedd gwahanol i'w gwneud allan o eraill, ond yma, yn yr erthygl hon, rwy'n cyflwyno y gall cod VBA wneud i'r celloedd penodol fflachio â chefndir coch i'r rhagorol yn Excel.

Gwneud fflach cell yn goch gyda VBA

---

Gwneud fflach cell yn goch gyda VBA

Ar gyfer gwneud i gelloedd blincio i ddenu sylw defnyddwyr, dyma god VBA.

1. Galluogi'r ddalen rydych chi am ei fflachio celloedd, a'i phwyso Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i'r Modiwlau sgript. Gweler y screenshot:

VBA: Gwneud fflach cell yn goch

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. Gwasgwch F5 allwedd, ac a Kutools for Excel deialog yn galw allan am ddewis celloedd rydych chi am eu gwneud yn fflach, gweler y screenshot:

4. Cliciwch OK. Nawr mae'r gell a ddewiswyd wedi bod yn fflach gyda chefndir coch.

Awgrym:

(1) Yn y cod VBA, gallwch newid y lliw cefndir (xColor = 3), cyflymder blink (xSpeed ​​= 0.6) ac amseroedd blink (Gwnewch Tan xCount = 20) fel y dymunwch.

(2) Ni fydd y cod VBA hwn yn ychwanegu cefndir fflach at ddetholiad gwag.

(3) Bydd y cefndir fflach hwn yn cael ei symud yn awtomatig ar ôl i'r amseroedd gwag orffen.