Kljukica

Pomoč pri delu z MS Excelom
Odgovori
bate
Prispevkov: 127
Pridružen: Če Mar 19, 2009 10:11 am

Kljukica

Odgovor Napisal/-a bate »

Zdravo,
imam le eno poletno vprašanje.
V neko celico želim iz makra napisati potrditveno kljukico!
Priznam, da glede tega nisem nič brskal po forumu, ker je že preobširen, pa še ta vročina in sploh... Najlažja (najhitrejša) linija je tanartaboljša. Tistemu, ki zadevo obvlada ne bo težko... Torej koda gre približno takole:

Koda: Izberi vse

----
If pogoj then cells(ta in ta)=kljukica
sicer je cells(ta in ta)=prazna
----
Upam, da je dovolj razumljivo. Zelo lepo prosim za Help...
lp brane
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Odgovor Napisal/-a cedra »

Ne potrebujete zato makra :)
Spodnji primer vam kontrolira celico A1. Če je vrednost večja od 5, potem vam v celico, v katero ste vnesli spodnjo formulo, zapiše črko "P". In zdaj še najbolj važno, celici v kateri želite imeti kljukico, spremenite pisavo v Wingdings 2! V pisavi Wingdings 2 je velika črka "P", kljukica.

Koda: Izberi vse

=IF(A1>5;"P";"")
Makro pa bi bil približno tak:

Koda: Izberi vse

Sub Kljukica()

    If ActiveCell.Value = 1 Then
        ActiveCell.Offset(0, 1).Select
            Selection = "P"
                With Selection.Font
                    .Name = "Wingdings 2"
                End With
    Else
        ActiveCell.Offset(0, 1).Select
            Selection = ""
                With Selection.Font
                    .Name = "Arial CE"
                End With
    End If
    
End Sub
Nanaša pa se na vrednost aktivne celice, kljukco pa naredi v celico desno od aktivne.
lp,

cedra
bate
Prispevkov: 127
Pridružen: Če Mar 19, 2009 10:11 am

Odgovor Napisal/-a bate »

Hvala za odgovor Cedra...
lp Brane
Odgovori