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

Ինչպե՞ս Excel- ում կրկնակի սեղմումով բջիջում ավտոմատ կերպով ավելացնել / մուտքագրել ընթացիկ ամսաթիվը / ժամանակը:

Հեղինակ՝ Սիլյուվիա Վերջին փոփոխությունը՝ 2024-09-20

Եթե ​​Ձեզ անհրաժեշտ է աշխատանքային թերթիկում հաճախակի մուտքագրել ընթացիկ ամսաթիվը կամ ամսաթիվը, կարող եք փորձել այս հոդվածի մեթոդը: Այս հոդվածը կօգնի ձեզ ավտոմատ կերպով ավելացնել կամ մուտքագրել ընթացիկ ամսաթիվը կամ ամսաթիվը նշված տիրույթի բջիջներում ՝ միայն կրկնակի սեղմումով:

Կրկնակի կտտացրեք VBA կոդով ավտոմատ կերպով ավելացնելու / մուտքագրելու ընթացիկ ամսաթիվը կամ ամսաթվի ժամանակը


Կրկնակի կտտացրեք VBA կոդով ավտոմատ կերպով ավելացնելու / մուտքագրելու ընթացիկ ամսաթիվը կամ ամսաթվի ժամանակը

Կարող եք գործարկել ստորև ներկայացված VBA կոդը ՝ կրկնակի սեղմումով բջիջում ընթացիկ ամսաթիվը կամ ամսաթիվը ժամանակն ավտոմատ կերպով ավելացնելու համար: Խնդրում եմ, արեք հետևյալ կերպ.

1. Աջ կտտացրեք «Թերթիկ» ներդիրին, որը ցանկանում եք տեղադրել ընթացիկ ամսաթիվը նշված բջիջներում, ապա ընտրել Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual basic կիրառական ծրագրերի համար պատուհանը, պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Կրկնակի կտտացրեք ՝ ընթացիկ ամսաթիվը բջիջում ավելացնելու համար

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

Նշումներ:

1. Կոդում A1: B10- ը այն տիրույթն է, որին դուք կավելացնեք ընթացիկ ամսաթիվը:
2. Եթե Ձեզ անհրաժեշտ է խցի մեջ ամսաթվի ընթացիկ ժամն ավելացնել, փոխարինեք Ամսաթիվ հետ Այժմ () ծածկագրում: Դուք կարող եք փոխել դրանք, ինչպես ձեզ հարկավոր է:

սեղմեք Դիտել կոդը և տեղադրեք կոդը մոդուլի մեջ

3. Մամուլ ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհանը և վերադառնալ աշխատանքային թերթ:

Այսուհետ, A1: B10 նշված տիրույթում գտնվող ցանկացած բջիջ կրկնակի սեղմելով: Ընթացիկ ամսաթիվը կամ ամսաթիվը ժամանակն ավտոմատ մուտքագրվում է:

kutools-ի սքրինշոթ excel ai-ի համար

Բացեք Excel Magic-ը Kutools AI-ով

  • Խելացի կատարումԿատարեք բջիջների գործողություններ, վերլուծեք տվյալները և ստեղծեք գծապատկերներ՝ այս ամենը պայմանավորված է պարզ հրամաններով:
  • Պատվերով բանաձևերՍտեղծեք հարմարեցված բանաձևեր՝ ձեր աշխատանքային հոսքերը հեշտացնելու համար:
  • VBA կոդավորումԳրեք և կիրառեք VBA կոդը առանց ջանքերի:
  • Բանաձևի մեկնաբանությունՀասկացեք բարդ բանաձևերը հեշտությամբ:
  • Տեքստի թարգմանությունՃեղքեք լեզվական խոչընդոտները ձեր աղյուսակներում:
Ընդլայնեք ձեր Excel-ի հնարավորությունները AI-ով աշխատող գործիքներով: Download Now և փորձիր արդյունավետություն, ինչպես երբեք:

Առնչվող հոդվածներ:

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

🤖 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: