Excel - makronaredba za stvaranje bljeskova stanica
Problem
Želim da stanica treperi pod Excelom. Može li to biti makro ili jednostavniji način?
Riješenje
-1. Odaberite ćeliju
-2. Odaberite Stil u izborniku Oblikovanje.
-3. U dijaloškom okviru Stil unesite novo ime stila, kao što je "Blinking".
-4. Pomoću kontrola u dijaloškom okviru promijenite atribute stila.
-5. Kliknite U redu.
Ovaj stil se može primijeniti na ćelije po vašem izboru.
Sada morate izraditi makronaredbe:
Dim NextTime As Datum Sub StartFlash () NextTime = Sada + TimeValue ("00:00:01") S ActiveWorkbook.Styles ("Trepere"). Font Ako .ColorIndex = xlAutomatic Then. ColorIndex = 3 .ColorIndex = 5 - .ColorIndex Završi s Application.OnTime NextTime, "StartFlash" End Sub
-------------------------------------------------- ----------------------
Sub StopFlash () Application.OnTime NextTime, "StartFlash", raspored: = False ActiveWorkbook.Styles ("Trepere"). Font.ColorIndex = xlAutomatski Kraj Sub
- Da biste pokrenuli treptanje, samo pokrenite StartFlash
- Za zaustavljanje koristite StopFlash .
Ovaj se savjet temelji na //exceltips.vitalnews.com/Pages/T0214_Flashing_Cells.html
Zahvaljujući Jeffu za ovaj savjet.