Hogyan lehet beszúrni az aktuális időbélyeget, amikor az adatok egy másik cellában megváltoznak az Excel programban?
Tegyük fel, hogy kap egy munkalapot, amelynek módosítania kell az adatokat egy adott oszlopban. A munkalap módosítása után be kell illesztenie a módosított időbélyeget, hogy mások is tudják, mely cellák módosultak. Hogyan kell kezelni? Ez a cikk bemutatja az aktuális időbélyeg beszúrásának módszerét, amikor az Excel másik cellájában lévő adatok megváltoznak az alábbi képernyőképen.
Helyezze be az aktuális időbélyeget, amikor egy másik cellában az adatok VBA kóddal változnak
Helyezze be az aktuális időbélyeget, amikor egy másik cellában az adatok VBA kóddal változnak
Amint az alábbi képernyőképen látható, be kell töltenie az időbélyeget az E oszlopban, ha a C oszlop megfelelő cellái megváltoznak. Kérjük, tegye a következőket.
1. A munkalapon módosítania és időbélyeggel kell megjelölnie, kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.
2. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablak Microsoft Visual Basic for Applications ablak. Lásd a képernyőképet:
VBA-kód: Helyezze be az aktuális időbélyegzőt, ha az adatok megváltoznak egy másik cellában
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End Sub
Megjegyzések: A kódban a 3. szám azt jelenti, hogy módosítani fogja az adatokat a C oszlopban, az 5 pedig azt jelzi, hogy az időbélyegző feltöltésre kerül az E oszlopba. Kérjük, változtassa meg őket az Ön igényei szerint.
3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
Mostantól a C oszlop adatainak megváltoztatásakor az időbélyegző feltöltésre kerül az E oszlop megfelelő celláiba, az alábbi képernyőkép szerint.
Tipp. Dátumválasztó Az Dátum beillesztése hasznossága Kutools az Excel számára segít gyorsan beilleszteni a dátumot a megadott dátumformátummal egy kiválasztott cellába.
Töltse le és próbálja ki most! (30 napos ingyenes túra)
Kapcsolódó cikkek:
- Hogyan lehet az utolsó mentett időbélyeget beszúrni vagy megjeleníteni az Excel munkalapon?
- Hogyan illesszünk be időbélyeget egy adott cellába, ha a makrót az Excel futtatja?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!