- This topic has 28 hozzászólás, 9 résztvevő, and was last updated 5 years, 5 months telt el by
.
-
Szia!
Ez makróval oldható csak meg.
Eseménykezelőt kell írni ami akkor fut le, amikor egy adott oszlopban lévő cella tartalma megváltozik.1. A szóban forgó munkalap nevén jobb klikk -> Kód megjelenítése
2. A megjelenő ablak jobb oldalának tetején(General) helyett átváltod „Worksheet”-re, mellette válaszd ki a „Change” eseményt.
3. Megjelenik a Worksheet_Change eseménykezelő Subrutin üresen.
4. Egészítsd ki erre:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False Target.Offset(0, 1) = Date Target.Offset(0, 2) = Time Application.EnableEvents = True End If End Sub5. Ha sikerült, akkor azt fogod tapasztalni, hogy bármit beírsz vagy változtatsz az „A”, azaz az 1. oszlopban, mellé beírja a dátumot, amellé meg az időt.
Ha nem az „A” oszlopról lenne szó, akkor a kódban módosítsd a
If Target.Column = 1részt az annyiadik oszlopra, amit szeretnél.6. Mentsd a munkafüzetet makróbarát munkafüzetként (*.xlsm)
Szólj, hogy sikerült-e!
Imre
Sziasztok!
Nagy örömmel használom én is ezt a makrót.
A problémám az, ha kézzel viszem be az adatokat a meghatározott oszlopba, akkor a kód tökéletesen működik.
Ha azonban másolást végzek, akkor a bemásolt karakterek helyett a dátumot írja be.Nálam a kód úgy néz ki, hogy a B oszlopba(2) rögzítek adatot, akkor az A oszlopban (1) megjelenik az
aktuális dátum.Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.EnableEvents = False Target.Offset(0, -1) = Date Application.EnableEvents = True End If End SubAmikor másolást végzek, akkor a B-től I oszlopig másolok be egy sort, ekkor a-h oszlopokban a dátum jelenik meg.
Ennek a problémának a megoldásához szeretném kérni a segítségeteket.
Egyébként excelben az alap fügvényeket használom, hobbi szinten, egy-két otthoni táblázát elkészítésénél. A tudásom, kicsit több mint nulla 🙂Előre is köszönöm a válaszokat!
Szia!
Megnyitottam az excel táblázatomat a Linuxon a Libreoffice-val, de a makró nem fut le rendesen, hanem 91-s hibával leáll
és azt mondja, hogy az objektumváltozó nincs beállítva ennél a sornálIf Target.Column = 2 ThenEsetleg erre is van valami megoldásod?
Ha jól értem, akkor a MUnka3 lapon azt akarod, hogy ha egymás mellé írják be az értékeket az E oszloptól jobbra, akkor minden beírt adat alá tegye be az aktuális időt.
Ehhez csak annyi módosítás kell, hogy a megfelelő helyen a Target.Offset(0,1) helyett azt írd, hogy
Target.Offset(1,0). Azaz a módosított cellához képest 1 sorral lejjebb s nulla oszloppal arrább írja be az időt.Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Offset(1, 0) = Time Application.EnableEvents = True End SubVisszatöltöttem,
Erre gondoltál?Imre
Szia!
Kicsit zavarosan írtad le az óhajodat, mert az A12-be szeretnéd beíratni az időpontot, mikor az A1:A17 tartomány ki van töltve. A tartományban benne van az a cella, ahol az utolsó bevitel idejét szeretnéd látni.
A laphoz rendelt makró az A1:A17 kitöltését figyeli, és az utolsó adat bevitelekor a B2 cellába írja be az időpontot. A CountA a DARAB2 függvény angol megfelelője.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1:A17]) Is Nothing And _ Application.WorksheetFunction.CountA(Range("A1:A17")) = 17 Then Range("B2") = Now End If End SubKedved és igényed szerint módosíthatod a figyelt terület, és az időpont helyének meghatározását.
- Be kell jelentkezni a hozzászóláshoz.
