Ինչպե՞ս Excel- ում բջջային ֆլեշը կարմիր դարձնել:
Ընդհանրապես, մենք ընդգծում ենք տարբեր նախապատմությամբ բջիջները, որպեսզի դրանք տարբերվեն մյուսներից, բայց այստեղ, այս հոդվածում, ես ներկայացնում եմ VBA կոդ, որը կարող է հատուկ բջիջները դարձնել կարմիր ֆոնով փայլեցնել Excel-ում աչքի ընկնող:
VBA- ով բջջային ֆլեշ դարձնել կարմիր
VBA- ով բջջային ֆլեշ դարձնել կարմիր
Օգտագործողների ուշադրությունը գրավելու համար բջիջները թարթելու համար, ահա VBA կոդը:
1. Միացրեք թերթիկը, որը ցանկանում եք լուսարձակել բջիջները և սեղմեք Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, և ապա տեղադրեք ներքևում VBA կոդով դեպի Մոդուլներ սցենար Տեսեք,
VBA. Բջջային ֆլեշը կարմիր դարձրեք
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. Մամուլ F5 բանալին, և ա Excel- ի համար նախատեսված գործիքներ Երկխոսությունը դուրս է գալիս՝ ընտրելու բջիջները, որոնք ցանկանում եք ստեղծել ֆլեշ, տես սքրինշոթը՝
4: սեղմեք OK. Այժմ ընտրված բջիջը վերածվել է կարմիր ֆոնի վրա:
Հուշում.
(1) VBA կոդում կարող եք փոխել ֆոնի գույնը (x Գույն = 3), թարթելու արագությունը (xSpeed = 0.6) և թարթել անգամ (Անել մինչ xCount = 20) Ինչպես ուզում ես.
(2) Այս VBA կոդը չի ավելացնի ֆլեշ ֆոն դատարկ ընտրությանը:
(3) Այս ֆլեշ ֆոնն ինքնաբերաբար կհեռացվի դատարկ ժամանակի ավարտից հետո:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: