Toto lze vyřešit jedině makrem.
P.
Příklad pro buňku A1:
Sub Zapis_mesic_do_bunky()
If Range("A1").Value = "" Then
Range("A1").Value = Format(Date, "mmmm")
End If
End Sub
Příklad pro oblast buněk A1 až A100:
Sub Zapis_mesic_do_sloupce()
Dim radek As Long
For radek = 1 To 100
If Cells(radek, 1).Value = "" Then
Cells(radek, 1).Value = Format(Date, "mmmm")
End If
Next radek
End Subcitovat
P.
Příklad pro buňku A1:
Sub Zapis_mesic_do_bunky()
If Range("A1").Value = "" Then
Range("A1").Value = Format(Date, "mmmm")
End If
End Sub
Příklad pro oblast buněk A1 až A100:
Sub Zapis_mesic_do_sloupce()
Dim radek As Long
For radek = 1 To 100
If Cells(radek, 1).Value = "" Then
Cells(radek, 1).Value = Format(Date, "mmmm")
End If
Next radek
End Subcitovat
RSS nejnovější články