Kako narediti flash celico rdečo v Excelu?
Na splošno poudarjamo celice z različnim ozadjem, da jih ločimo od drugih, toda tukaj, v tem članku, predstavljam kodo VBA, s katero lahko določene celice utripajo z rdečim ozadjem do izjemnih v Excelu.
Naj bo celica utripala rdeče z VBA
Naj bo celica utripala rdeče z VBA
Tukaj je koda VBA, da celice utripajo, da bi pritegnile pozornost uporabnikov.
1. Omogočite list, ki ga želite utripati, in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin nato pod kodo VBA prilepite na Moduli skripta. Oglejte si posnetek zaslona:
VBA: Naj celica utripa rdeče
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. Pritisnite F5 tipko in a Kutools for Excel odpre se pogovorno okno za izbiro celic, ki jih želite narediti, glejte posnetek zaslona:
4. klik OK. Zdaj je izbrana celica utripala z rdečim ozadjem.
Nasvet:
(1) V kodi VBA lahko spremenite barvo ozadja (xBarva = 3), hitrost utripanja (hitrost = 0.6) in utripajo (Ali do xCount = 20) kakor hočeš.
(2) Ta koda VBA praznemu izboru ne bo dodala ozadja bliskavice.
(3) To ozadje bliskavice bo samodejno odstranjeno po koncu praznih časov.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti z Kutools for Excel, in izkusite učinkovitost kot še nikoli prej. Kutools for Excel Ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Office Tab Prinaša vmesnik z zavihki v Office in vam olajša delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
