Ինչպե՞ս ինքնաբերաբար գրանցել ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է:
Մեզ համար հեշտ է ձեռքով տեղադրել ստատիկ ամսաթիվը և ժամանակը կամ դնել դինամիկ ամսաթիվ, որը փոխվում է համակարգի ժամանակի հետ, բանաձևով: Եթե ցանկանում եք ավտոմատ կերպով արձանագրել ամսաթիվը և ժամանակը, երբ փոխում եք կամ արժեքներ եք մուտքագրում, ապա այս խնդիրը լուծելու համար կարող է մի փոքր այլ լինել: Բայց այս հոդվածում դուք կարող եք լուծել այս խնդիրը հետևյալ քայլերով.
Ավտոմատ գրանցեք ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է VBA կոդով
Ավտոմատ գրանցեք ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է VBA կոդով
Օրինակ, ես մի շարք արժեքներ ունեմ, և այժմ, երբ ես սյունակում փոխում եմ կամ մուտքագրում եմ նոր արժեքներ, ես ուզում եմ, որ C սյունակում ավտոմատ կերպով գրանցի ընթացիկ ամսաթիվը և ժամանակը, ինչպես ցույց է տրված հետևյալ նկարը.
Դուք կարող եք ավարտել այս առաջադրանքը ՝ հետևելով VBA կոդին: Խնդրում եմ արեք այսպես.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան:
2, Դրանից հետո ձախից ընտրեք ձեր օգտագործված աշխատանքային թերթը Project Explorer, կրկնակի կտտացրեք այն `բացելու համար Մոդուլներև ապա պատճենեք և կպցրեք հետևյալ VBA կոդը ՝ դատարկ Մոդուլի մեջ.
VBA կոդ. Բջիջը փոխելիս ավտոմատ գրանցեք ամսաթիվը և ժամանակը
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. Դրանից հետո պահեք և փակեք այս կոդը ՝ աշխատանքային թերթը վերադառնալու համար, այժմ, երբ փոխեք բջիջի արժեքը կամ B սյունակում մուտքագրեք նոր տվյալներ, ամսաթիվը և ժամանակը ավտոմատ կերպով կգրանցվեն C սյունակում:
Նշումներ:
1. Վերոնշյալ ծածկագրում կարող եք փոփոխել «B: B”Ցանկացած այլ սյունակի, որը ցանկանում եք փոխել բջջային արժեքները այս սցենարում. Սահմանել WorkRng = խաչմերուկ (Application.ActiveSheet.Range («B: B»), նպատակային).
2. Սրանով xOffsetColumn = 1 սցենար, դուք կարող եք զետեղել և ամսաթիվը և ժամանակը թարմացնել ձեր փոփոխվող արժեքի սյունակի կողքին գտնվող առաջին սյունակին, 1 թիվը կարող եք փոխել այլ թվերի, ինչպիսիք են 2,3,4,5…, ինչը նշանակում է, որ ամսաթիվը կտեղադրվի երկրորդ, երրորդ, չորրորդ կամ հինգերորդ սյունները, բացի ձեր փոփոխված արժեքների սյունակից:
3. Երբ փոփոխված սյունակում արժեքը ջնջում եք, ամսաթիվը և ժամանակը նույնպես կհեռացվեն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: