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