Automatické vložení čísla aktuálního měsíce do dané buňky Vyřešeno

[Jsimi]

Prosím poradí někdo jak udělat, aby se po otevření sešitu do buňky např. A1 zapsalo číslo aktuálního měsíce /podle systémového data/?

[Reklama]

[pavel.lasak]

Využít událost Workbook_Open (vložit do ThisWorkbook)

Kód: Vybrat vše

Private Sub Workbook_Open()
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
End Sub

pak jen nastavit formát

--- Doplnění předchozího příspěvku (26 Srp 2012 17:52) ---

Nebo přímo bez formátování buňky

Kód: Vybrat vše

Private Sub Workbook_Open()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=MONTH(TODAY())"
End Sub


[Jsimi]

Děkuji za radu, ale jěště bych měl jeden dotaz. Jde tato hodnota z dané buňky přenést do textového pole ActiveX, pro další práci s formulářem?

[cmuch]

Pokud se jedna o datum do textboxu tak třeba takto
TextBox1.Text = Format(Now, "mm")