„Excel“ - makrokomandas, kad ląstelės mirksi

Problema

Noriu, kad langelis mirksi po „Excel“. Ar tai gali būti makro ar paprastesnis būdas?

Sprendimas

-1. Pasirinkite langelį

-2. Meniu Formatas pasirinkite Stilius.

-3. Dialogo lange Stilius įveskite naują stiliaus pavadinimą, pvz., „Mirksi“.

-4. Naudodami dialogo lango valdiklius pakeiskite stiliaus atributus.

-5. Spustelėkite Gerai.

Šis stilius gali būti taikomas jūsų pasirinktoms ląstelėms.

Dabar reikia sukurti makrokomandas:

 Dim NextTime As Date Sub StartFlash () NextTime = Dabar + TimeValue ("00:00:01") Su ActiveWorkbook.Styles ("Mirksėjimas") Šriftas Jei .ColorIndex = xlAutomatic Tada .ColorIndex = 3 .ColorIndex = 5 -. Baigti taikymą.Naudodami kitą kartą, „StartFlash“ pabaiga

-------------------------------------------------- ----------------------

 Sub StopFlash () taikymas. „TimeTime NextTime“, „StartFlash“, tvarkaraštis: = False ActiveWorkbook.Styles („mirksi“). Font.ColorIndex = xlAutomatic End Sub