Obarvanje celice in njeno utripanje

Pomoč pri delu z MS Excelom
Odgovori
direndaj
Prispevkov: 47
Pridružen: Po Sep 19, 2005 8:52 am
Kraj: Ljubljana

Obarvanje celice in njeno utripanje

Odgovor Napisal/-a direndaj »

Je možno, da določena celica ali več njih utripa naprimer v rdeči barvi.
lp., in hvala za odgovor.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

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
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.
lp,
Matjaž Prtenjak
Administrator
Odgovori