Conas flash cealla a dhéanamh dearg in Excel?
Go ginearálta, tugaimid aird ar na cealla le cúlraí éagsúla chun iad a dhéanamh amach ó dhaoine eile, ach anseo, san Airteagal seo, tugaim isteach cód VBA is féidir leis na cealla sonracha flash le cúlra dearg a dhéanamh gan íoc in Excel.
Déan splanc cille dearg le VBA
Déan splanc cille dearg le VBA
Chun cealla a dhéanamh blink blink chun aird úsáideoirí a mhealladh, seo cód VBA.
1. Cumasaigh an leathán is mian leat cealla a splancadh, agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus ansin greamaigh thíos cód VBA chuig an Modúil script. Féach an pictiúr:
VBA: Déan dearg cille
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. Brúigh F5 eochair, agus a Kutools le haghaidh Excel tagann an dialóg amach chun na cealla ar mhaith leat splanc a dhéanamh a roghnú, féach an scáileán:
4. cliceáil OK. Anois tá an chill roghnaithe splanc le cúlra dearg.
Leid:
(1) Sa chód VBA, is féidir leat an dath cúlra a athrú (xColor = 3), luas claonta (xSpeed = 0.6) agus amanna claonta (Déan Go dtí xCount = 20) mar is mian leat.
(2) Ní chuirfidh an cód VBA seo cúlra splanc le roghnú bán.
(3) Bainfear an cúlra flash seo go huathoibríoch tar éis na huaire bán a chríochnú.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!