MS Excel

Dobrý den,
mám jednoduchý kalendář a chci barevně odlišit so a ne, ale ne podmíněným formátováním, chci to makrem. Jak to udělat?

Zaslat odpověď >

Milan-D(2.10.2012 15:41)#009688

je to sice divne delat to makrem, mnohem lepsi je podminene formatovani, ale budiz to cvicny priklad jednoducheho makra (pokud mas cesky excel, tak to samozrejme zmenis na ceske nazvy dnu):

Sub Proba()
Dim i As Integer

For i = 2 To 32
If Cells(i, "A").Text = "Sat" Or Cells(i, "A").Text = "Sun" Then
Cells(i, "A").Interior.ColorIndex = 4
End If
Next i

End Subcitovat

Milan-D(2.10.2012 16:10)#009689

Jeste bych k tomu dodal, Funkce WEEKDAY (ze by to v ceskem Excelu byl DENTYDNE?) vraci cislo od 1 do 7, coz taky vraci, ale ty bunky maji specialni custom format a ten to rovnou prevadi na zkratky dnu.
Proto jsem v makru musel pouzit vlastnost Cells(x,y).Text
Pokud bych tam nechal jenom Cells(x,y) anebo Cells(x,y).Value, tak to ponekud nezvykle vraci datumovou hodnotu (od 12/31/1899 do 1/6/1900).

Pokud bychom se chteli rozhodovat podle skutecne hodnoty, kteru vraci vzorec WEEKDAY (cisla 1 az 7), tak pro toto pouzijeme vlastnost bunky .Value2
Takze ten rozhodovaci radek v makru by mohl byt i takhle:
If Cells(i, "A").Value2 = 7 Or Cells(i, "A").Value2 = 1 Then
Sobote odpovida sedmicka (amici jsou divni

)citovat

ji026441(6.10.2012 20:34)#009757

Děkuji, to je ono.citovat

marjankaj(6.10.2012 22:21)#009759

Alebo
IF Weekday(Cells(i, "A") - 1) >5 then Cells(i, "A").Interior.ColorIndex = 4citovat

Téma: formátování buňky pomocí makra

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje