Ինչպե՞ս ինքնաբերաբար գրանցել ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է:
Մեզ համար հեշտ է ձեռքով տեղադրել ստատիկ ամսաթիվը և ժամանակը կամ դնել դինամիկ ամսաթիվ, որը փոխվում է համակարգի ժամանակի հետ, բանաձևով: Եթե ցանկանում եք ավտոմատ կերպով արձանագրել ամսաթիվը և ժամանակը, երբ փոխում եք կամ արժեքներ եք մուտքագրում, ապա այս խնդիրը լուծելու համար կարող է մի փոքր այլ լինել: Բայց այս հոդվածում դուք կարող եք լուծել այս խնդիրը հետևյալ քայլերով.
Ավտոմատ գրանցեք ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է VBA կոդով
- Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
- Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
- Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
- Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
- Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
- Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
- Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:
Ավտոմատ գրանցեք ամսաթիվը և ժամանակը, երբ բջիջը փոխվում է 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-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
