PC-HELP.CZ

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/?

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

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?

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

PC-HELP.CZ

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

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

Re: Automatické vložení čísla aktuálního měsíce do dané buňk

Re: Automatické vložení čísla aktuálního měsíce do dané buňk

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