makro pro aktuální datum

A nejde použít třeba funkci dnes() ?

?

To není pošklebek nad tvou odpovědí, ale radost z toho, jak jednoduše a rychle je vyřešen složitý dotaz. Žádné makro, ale prachobyčejná standardní fce Excelu.

Ja pracoval ve statni sprave pres dva roky a tam jsem se naucil velmi dobre ovladat excel. I pres to, pri vytvareni sebeslozitejsich tabulek nejprve uvazuju a pokousim se resit konvencnimi metodami pres vzorce a k makrum se uchyluji az v krajnim pripade. Zvlaste kdyz si to nechci nechat pro sebe, tak nektera nastaveni excelu makra uplne ignoruji a potom resit "me to nefunguje" je vopruz.

A zadávat dnešný dátum ručne skratkou CTRL+; by nestačilo ?
(stlačenie "CTRL" a k tomu klávesu ";")

Fíha!
Toto vidím poprvé v životě

Jo, někdy se vyplatí nastudovat klávesové zkratky, bývají tam poklady.

Já jsem zas nedávno objevil, že když se myší poklepe na rozhraní záhlaví sloupce, upraví se automaticky jejho velikost podle nejdelšího textu, který obsahuje. Šikovná funkce, která mi usnadní život, nebudu to muset vyměřovat ručně.

Já moc klávesově-zkratkový nejsem. A moje nejoblíbenější skoro nikdo nepoužívá... Ctrl+Ins, Shift+Ins. Zvyky z DOSu jsou neodnaučitelné

No právě bych to potřeboval pomocí makra,protože mám tohle ve škole,a v písemce to po nás bude chtít,tak bych to potřeboval nutně vědět.díky

A po vás chtějí ve škole věci, které jste se neučili?

Jinak by mělo stačit něco takového:

Range("A1").Value = Date

právě že to jsme si měli nastudovat sami,je to hroznej h.... ten profesor

Hm, to si teda dovolil dost, chtít po vás, abyste se něco sami naučili.

to teda ja,ale co naplat,radsi to necham bejt,a nebudu si nejak ztezovat,protoze po vanocich budou zkousky a to by mi taky mohl dat dodatecnej darek budu doufat ze to zitra v testu nebude

funkce měsíc mě napadla,ale nevim,jak to dát dohromady s tim makrem aby po zmáčknutí klávesový zkratky pro makro to napsalo to datum do nějaký aktivní bunky,kterou si předem vyberu

Tak týmto makrom vložíš aktuálny dátum (každý den bude iný-aktuálny dátum) do aktuálnej bunky.
Myšou klepneš na bunku a spustíš makro. Na spustenie makra si môžeš priradiť klávesovú skratku.

Sub Makro()

'Vloženie funkcie "=DNES" "=TODAY()"
    ActiveCell.FormulaR1C1 = "=TODAY()"
'úprava aktuálnej bunky na obyčajnú hodnotu (zrušenie funkcie)
'a to skopírovaním aktuálnej bunky a vloženie iba hodnoty.
    ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

PS - toho ohraničenia bunky sa nelakaj to je výberom pre kopírovanie.
PS2 - to takto na rýchlo bez nejakého rozmýšlania - ber to ako jeden nápad pre tvoju inšpiráciu.

díky moc pomohlo mi to

Rado sa stalo.
Tie komentáre som tam (do makra) vložil na pochopenie.
Uč sa a skúšaj aj sám, napríklad záznamom makra a jeho následnou modifikáciou.
Hodne šťastia v škole a učení.

Niet nič čo by nešlo zjednodušiť. Ovládanie rovnaké.

Sub MakroDatum()

'Vloženie aktuálneho dátumu
    ActiveCell.FormulaR1C1 = Date

End Sub

SORRY za predošlé zložité makro.
Človek sa neustále učí.