9686_kalendar.zip
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
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
)
RSS nejnovější články