Hogyan rögzítsük automatikusan a dátumot és az időt, amikor a cella megváltozik?
Könnyű számunkra a statikus dátum és idő manuális beszúrása, vagy a rendszer idővel változó dinamikus dátum beillesztése képlettel. Ha az értékek megváltoztatásakor vagy beírásakor automatikusan rögzíteni kívánja a dátumot és az időt, akkor ez a probléma némileg eltérő lehet. Ebben a cikkben azonban ezt a feladatot a következő lépésekkel oldhatja meg.
Automatikusan rögzítse a dátumot és az időt, amikor a cella VBA kóddal változik
- Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
- Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
- Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
- Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
- Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
- Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
- Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.
Automatikusan rögzítse a dátumot és az időt, amikor a cella VBA kóddal változik
Például van egy értéktartományom, és most, amikor új értékeket módosítok vagy beírok a B oszlopba, azt akarom, hogy automatikusan rögzítsék az aktuális dátumot és időt a C oszlopban, az alábbi képernyőkép szerint:
Ezt a feladatot a VBA kód követésével fejezheti be. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután válassza ki a használt munkalapot balról Project Explorer, kattintson duplán a fájl megnyitásához Modulok, majd másolja és illessze be a következő VBA kódot az üres modulba:
VBA kód: A cella változásakor automatikusan rögzíti a dátumot és az időt
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
3. Ezután mentse el és zárja be ezt a kódot, hogy visszatérjen a munkalapra. Most, amikor megváltoztatja a cella értékét, vagy új adatokat ír be a B oszlopba, a dátum és az idő automatikusan rögzítésre kerül a C oszlopban.
Megjegyzések:
1. A fenti kódban módosíthatja aB: B”Bármely más oszlopra, ahol meg akarja változtatni a cella értékeit ebben a szkriptben: WorkRng beállítása = Metszés (Application.ActiveSheet.Range ("B: B"), Cél).
2. Ezzel xOffsetColumn = 1 szkriptet, beillesztheti és frissítheti a dátumot és az időt a változó érték oszlop melletti első oszlopba, megváltoztathatja az 1 számot más számokra, például 2,3,4,5 ... ez azt jelenti, hogy a dátum beillesztésre kerül második, harmadik, negyedik vagy ötödik oszlop a megváltozott értékek oszlop mellett.
3. Ha töröl egy értéket a megváltozott oszlopból, a dátum és az idő is törlődik.
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
