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 ar gyfer 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.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!