Hirdetés
- Azonnali alaplapos kérdések órája
- TCL LCD és LED TV-k
- 5.1, 7.1 és gamer fejhallgatók
- Milyen nyomtatót vegyek?
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Gaming notebook topik
- ZIDOO médialejátszók
- Alaposan kitolhatod az Steam Deck üzemidejét egy új funkcióval
- OLED monitor topic
- HiMedia lejátszók
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz
jackal79
#41731
üzenetére
Laphoz rendeld a lenti, eseményvezérelt makrót (a módját lásd a Téma összefoglalóban):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.WorksheetFunction.CountA(Rows(Target.Row)) > 0 Then
Application.EnableEvents = False
Range("A" & Target.Row) = Date
Application.EnableEvents = True
End If
End SubAz egyes sorok bármelyik cellájára kattintva az A-ban megjelenik a mai dátum, de csak akkor, ha a sorban bármelyik cellában van már adat. Ha másik oszlopba kell a dátum, akkor a
Range("A" & Target.Row) = Datesorban írd át az "A"-t.
-
Mutt
senior tag
válasz
jackal79
#41731
üzenetére
Szia,
Rögzíts egy makrót az egyéni makró-munkafüzetben billentyparanccsal.
Fejlesztőeszközök -> Makró rögzítése:
Ezek után Alt-F11-el nyisd meg a VBA szerkesztőt és bal oldalt a VBA Project (Presonal.XLSB) alatt a Modules -> Module1 -et nyisd meg (ha több van akkor a legnagyobb sorszámmal rendelkezőt).
A jobb oldalt lévő nem kommentes sorokat írd felül ezzel:
Selection = DateMentés és innentől amit kijelölsz vagy éppen amin állsz oda az aktuális dátum lesz beszúrva (felülírva az ottani tartalmat, ez a művelet nem lesz visszavonható).
Második megoldás, hogy az adott fájl valamelyik eseménykezelőjéhez (WB.Open, WS.Change) készül a kód, de ehhez többet kell tudni.
üdv
Új hozzászólás Aktív témák
- Apple iPhone 17 Pro Max 256GB,Uj, Bontatlan,36 hónap garancia
- Bomba ár! HP ProBook 450 G3 - i3-6G I 8GB I 128SSD I DVDRW I HDMI I 15,6" HD I Cam I W11 I Gar!
- Apple iPad Mini 6 64GB,Átlagos,Töltővel,12 hónap garanciával
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3121, 100% Akkumulátor
- NJOY Szünetmentes + AVR Horus Plus 2000, 2000VA, 1200W, Line-Interactice, LCD Touch displa PWUP-LI20
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50

