Hogyan lehet az cellában pirosat villogni az Excelben?
Általánosságban kiemeljük a különböző háttérrel rendelkező cellákat, hogy kiválasszuk őket másoktól, de itt, ebben a cikkben, bemutatok egy VBA kódot, amely az adott cellákat vörös háttérrel villoghatja, hogy kiemelkedővé váljon az Excelben.
Tegye a cellát vörösre a VBA segítségével
Tegye a cellát vörösre a VBA segítségével
Ahhoz, hogy a cellák villogjanak, hogy felhívják a felhasználók figyelmét, itt van egy VBA kód.
1. Engedélyezze a cellákat villogni kívánt lapot, majd nyomja meg az gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a Modulok forgatókönyv. Lásd a képernyőképet:
VBA: Tegye a cellát pirosra
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. nyomja meg F5 kulcs, és a Kutools az Excel számára megjelenik a villanni kívánt cellák kiválasztásának párbeszédpanel, lásd a képernyőképet:
4. kettyenés OK. Most a kiválasztott cella villogott vörös háttérrel.
Tipp:
(1) A VBA kódban megváltoztathatja a háttér színét (xSzín = 3), villogási sebesség (xSpeed = 0.6) és pislognak idők (Addig, amíg xCount = 20) ahogy akarod.
(2) Ez a VBA kód nem ad hozzá flash hátteret az üres kijelöléshez.
(3) Ez a vaku háttér automatikusan eltűnik az üres idők lejárta után.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!