Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ավտոմատ կերպով մուտքագրել ամսաթիվը, երբ սյունակում մուտքագրված տվյալները:

փաստաթուղթ ավտոմատ ամսաթիվը, երբ մուտքագրեք տվյալներ 1

Աշխատաթերթի վրա աշխատելիս դուք ցանկանում եք, որ A սյունակում տվյալներ մուտքագրելիս B սյունակում ավտոմատ կերպով մուտքագրվի ընթացիկ ամսաթիվը և ժամանակը, ինչպես ցույց է տրված հետևյալ նկարը Excel- ում ինչպե՞ս կարող եք փորձել լուծել այս գործը հեշտ և արագ լուծմամբ:

Ավտոմատ մուտքագրեք ամսաթիվը, երբ տվյալները մուտքագրվում են VBA կոդով սյունակում

նետ կապույտ աջ պղպջակ Ավտոմատ մուտքագրեք ամսաթիվը, երբ տվյալները մուտքագրվում են VBA կոդով սյունակում

Գուցե, Excel- ում այս գործով զբաղվելու համար ուղղակի ուղի չկա, բայց հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք անել հետևյալը.

1, Ընտրեք թերթիկի ներդիրը, որը ցանկանում եք ավտոմատ կերպով ներմուծել ամսաթիվը, ապա սեղմել այն աջով, ընտրեք Դիտել կոդը տեքստի ընտրացանկից, ապա դուրս եկավ eh- ը Microsoft Visual Basic հավելվածների համար պատուհանում, խնդրում ենք պատճենեք և տեղադրեք հետևյալ կոդը Մոդուլի մեջ.

VBA կոդ. Այլ սյունակում տվյալներ մուտքագրելիս ավտոմատ մուտքագրեք ամսաթիվը.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

փաստաթուղթ ավտոմատ ամսաթիվը, երբ մուտքագրեք տվյալներ 2

2, Դրանից հետո պահեք և փակեք այս ծածկագրի պատուհանը, վերադառնաք աշխատանքային թերթ, հիմա, երբ սյունակում տվյալներ եք մուտքագրում, B սյունակում համապատասխան բջիջը միանգամից ավտոմատ կերպով մուտքագրելու է ընթացիկ ամսաթիվը և ժամանակը:

ՆշումՎերոհիշյալ ծածկագրում A2: A15 այն բջիջներն են, որոնք ցանկանում եք արժեքներ մուտքագրել:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (5)
No ratings yet. Be the first to rate!
Maira
Maira
This comment was minimized by the moderator on the site
Hola como fijo fecha cuando inserte un dato especifico en otro celda. por ejemplo cuando en la celda A Inserte Cerrado, en la celda B se fije la fecha actual.
Reply
0
0
laurent
laurent
This comment was minimized by the moderator on the site
comment étendre ce code VBA sur plusieurs colonnes en même temps ?

exemple conne A -> B et F->G et m ->N

MERCI
Reply
0
0
skyyang
skyyang     laurent
This comment was minimized by the moderator on the site
Hello, laurent

To apply this code to multiple ranges, please use the below code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("A2:A15")) Is Nothing) Or (Not Intersect(Target, Range("F2:F15")) Is Nothing) Or (Not Intersect(Target, Range("M2:M15")) Is Nothing) Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub


Tips: If there are more ranges you want to use, you just need to use Or to join this Not Intersect(Target, Range("A2:A15") script. Change the cell reference A2:A15 to other range reference.

Please try, hope it can help you!
Reply
Report
0
0
laurent
laurent     skyyang
This comment was minimized by the moderator on the site
Merci pour ta réponse je l'essaye et je vous tiens au courant
Reply
0
0
Will
Will
This comment was minimized by the moderator on the site
Hi i was wondering if there was any way to make it input the date in the column before the data, like if i type in B the date appears in A, also more importantly, if there was any way to apply the code to multiple columns at once
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations