Je možno, da določena celica ali več njih utripa naprimer v rdeči barvi.
lp., in hvala za odgovor.
Obarvanje celice in njeno utripanje
Pozdravljeni,
Prav zanimiva želja . No mislim, da Excel tega ne zna, zato sem posegel po VBA-ju in rešitev imate spodaj:
Pred uporabo ustrezno nastavite vrednost DolzinaUtripa, ki predstavlja dolžino utripa v sekundah in Obmocje, ki predstavlja območje utripanja.
Utripanje zaženete z izvedbo makra Utripaj in končate z izvedbo makra UstaviUtripanje.
Prav zanimiva želja . No mislim, da Excel tega ne zna, zato sem posegel po VBA-ju in rešitev imate spodaj:
Koda: Izberi vse
' www.matjazev.net
' 11.10.2005
Const DolzinaUtripa As Double = 1
Const Obmocje As String = "a1,a10,c1:c6"
Dim NaslednjiZagon
Sub Utripaj()
With ActiveSheet.Range(Obmocje).Interior
If .ColorIndex = xlNone Then
.ColorIndex = 3
Else
.ColorIndex = xlNone
End If
End With
NaslednjiZagon = Now + TimeSerial(0, 0, DolzinaUtripa)
Application.OnTime NaslednjiZagon, "Utripaj"
End Sub
Sub UstaviUtripanje()
Application.OnTime NaslednjiZagon, "Utripaj", schedule:=False
ActiveSheet.Range(Obmocje).Interior.ColorIndex = xlNone
End Sub
Utripanje zaženete z izvedbo makra Utripaj in končate z izvedbo makra UstaviUtripanje.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator