Note: The other languages of the website are Google-translated. Back to English

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

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

Կրկնակի կտտացրեք 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

Notes:

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

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

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


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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (28)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող ենք ընդլայնել սա ավելի շատ բջիջների տիրույթ ավելացնելու համար: Ես ավելացրի այս լրացուցիչ բջիջը, որը տատանվում է կոդի վրա. (Target, Range("C10:C19", "D10:D19", "E10:E19")), սակայն այն ինձ կոմպիլյացիայի սխալ է տալիս՝ ասելով «սխալ թվով արգումենտներ կամ անվավեր գույքային հանձնարարություններ» և այնուհետև այն ընդգծում է ձեր տրամադրած կոդի առաջին տողը «Մասնավոր ենթաթերթ_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)»: Խնդրում եմ օգնեք ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ջոել, չգիտեմ, թե դեռ լուծում եք փնտրում, բայց դուք պետք է փոխեք ձեր կոդը.

Սկսած՝ (Թիրախ, միջակայք ("C10:C19", "D10:D19", "E10:E19"))
Դեպի՝ (Թիրախ, միջակայք ("C10:C19,D10:D19,E10:E19"))

Սա կանի դա ձեզ համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նիկ,
Ես կցանկանայի ձեզնից խորհուրդներ ստանալ այս թեմայի վերաբերյալ…
Ես ունեմ մի ֆայլ, որը ես անվանում եմ «արտադրողականության թերթիկ»: Այս թերթի վրա ես կցանկանայի զետեղել իրական ժամանակը, ընտրված բջիջներում, երբ բջիջը սեղմվում է... (Եթե հնարավոր է, ես կցանկանայի այս բջիջները այն բանից հետո, երբ ժամանակը կարծես թե դառնում է անփոփոխ ..... ինչ-որ բան, ինչպես կողպված լինելը:)
Ես գնահատում եմ ձեր ժամանակը և նախօրոք գումարը
Աթիլա, Հունգարիա
exyzee@gmail.com
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Աթիլա,
Խնդրում ենք փորձել ստորև ներկայացված սքրինշոթը՝ կտտացնելիս բջջի իրական ժամանակը որոշակի տիրույթում զետեղելու համար:
(Բջիջների ավտոմատ կողպման գործառույթը հնարավոր չէ հասնել, կներեք դրա համար)

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Դիմում. ScreenUpdating = Սուտ է
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1:B10»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Ամսաթիվ
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդն իսկապես աշխատում է... Շնորհակալություն... ես ավելացրել եմ ևս մեկ կոդ՝ տվյալների մուտքագրումից հետո բջիջը պաշտպանելու համար: Հիմա խնդիրն այն է, որ երբ ես մուտքագրում եմ տվյալները, և բջիջը պաշտպանված է, և սխալմամբ, եթե կրկնակի սեղմում եմ պաշտպանված բջիջը, ապա վերը նշված կոդը սխալվում է ամբողջ թերթի համար: Այն ժամանակ դա չի աշխատում: Ես պետք է անպաշտպանեմ թերթիկը, որպեսզի կոդը ուղիղ եթերում բերեմ: Որևէ լուծում:

Օգտագործված պաշտպանության ծածկագիրը հետևյալն է.

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես տիրույթ
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xRg = Intersect (Range («A1:a1000,b1:b1000,G1:G1000»), Թիրախ)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = Ճիշտ է
Target.Worksheet.Protect Password:="123"
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Պողոս
Փորձում եմ քո տրամադրած կոդը: Ամբողջ աշխատաթերթը անմիջապես կպաշտպանվի, երբ ես տվյալներ մուտքագրեմ նշված պաշտպանված բջիջներից որևէ մեկում:
Բացի այդ, երբ կրկնակի սեղմում եմ պաշտպանված բջիջի վրա, իմ դեպքում կոդի մեջ ոչինչ չի փոխվում։
Կբացատրե՞ք, թե կոնկրետ ինչ եք փորձում անել կոդի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, որ հասկանում եմ ձեր տեսակետը: (բաց թողեք վերը նշված կոդը)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ստեղծված կրկնակի սեղմումով մուտքագրման կոդը հետևյալն է.


Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1:a1000»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Ամսաթիվ
Վերջ: Եթե

Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («b1:b1000»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Time
Վերջ: Եթե

Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք ("g1:g1000")) Ոչինչ է, ապա
Չեղարկել = Ճշմարիտ
Target.Formula = Time
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Պողոս
Խնդրում ենք փորձել հետևյալ VBA կոդը:

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես տիրույթ
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xRg = Intersect (Range («A1:a1000,b1:b1000,G1:G1000»), Թիրախ)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = Ճիշտ է
Target.Worksheet.Protect Password:="123"
Վերջ Sub

Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Application.EnableEvents = False
ActiveSheet. Unprotect Password:="123"
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1:a1000»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Ամսաթիվ
Վերջ: Եթե
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («b1:b1000»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Time
Վերջ: Եթե
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք ("g1:g1000")) Ոչինչ է, ապա
Չեղարկել = Ճշմարիտ
Target.Formula = Time
Վերջ: Եթե
ActiveSheet.Protect Գաղտնաբառ:===123
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պատճենեցի և տեղադրեցի ծածկագիրը՝ թարմացնելով միջակայքը և այն չաշխատեց :-(


Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («B4:B100»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Now()
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կոդն իմ դեպքում լավ է աշխատում։ Կարո՞ղ եք ինձ ասել ձեր Office տարբերակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, Ձեր տված կոդը հիանալի է աշխատում։ Ինձ պարզապես հետաքրքրում է, թե արդյոք կա որևէ միջոց, որպեսզի վանդակում լինի «կրկնակի կտտացրեք ամսաթիվը ավելացնելու համար» տեքստը մինչև ամսաթիվը մուտքագրվի: Կանխավ շնորհակալ եմ (Ես փորձում եմ իմ փաստաթուղթը հնարավորինս հարմարավետ դարձնել, որպեսզի չշփոթեցնեմ իմ գործընկերներին)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, վերը նշված կոդը հիանալի աշխատեց ինձ համար: Հիմա ես պարզապես հետաքրքրվում եմ, թե արդյոք կա որևէ միջոց, որպեսզի «Կրկնակի սեղմեք ամսաթիվը մուտքագրելու համար» տեքստը հայտնվի վանդակում, մինչև ամսաթիվը մուտքագրվի: Իմ նպատակն է, որպեսզի փաստաթուղթը հնարավորինս հարմար լինի օգտատերերի համար: Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Թրևիս,
Մենք չենք կարող փոխել կոդը, որպեսզի տեքստը ցուցադրվի անմիջապես բջիջում: Բայց որպես այլընտրանք, ստորև օպտիմիզացված կոդը կօգնի տեքստը ցուցադրել բջջային մեկնաբանության մեջ, և մեկնաբանությունն ինքնաբերաբար կհեռացվի բջիջի վրա կրկնակի սեղմելուց հետո՝ ամսաթիվը մուտքագրելու համար:

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1:B10»)) Ոչինչ է, ուրեմն
Target.NoteText «կրկնակի սեղմեք ամսաթիվ ավելացնելու համար»
Վերջ: Եթե
Վերջ Sub

Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1:B10»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Comment.Delete
Target.Formula = Ամսաթիվ
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Ես պատճենեցի և տեղադրեցի վերը նշված կոդը ճիշտ այնպես, ինչպես գրված է դատարկ աշխատանքային գրքում, սակայն այն ինձ մոտ չի աշխատում: Ես նայեցի տարբեր աղբյուրներ համացանցում, և կայքերի մեծ մասն ունի նույն ձևաչափը, ինչ վերևում գրված է: Կարծում եմ, որ միգուցե ինչ-որ բան այն չէ իմ VBA-ում կամ որոշ կարգավորումներ միացված չեն: Ցանկացած խորհուրդ շատ գնահատելի կլինի: Ես աշխատում եմ Excel-ի համար Office 365 MSO (16.0.11001.20097) 32-բիթանոց Windows 10-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սիրեք կոդը, և այն հիանալի է աշխատում: Ինչպե՞ս կարող եմ այնպես անել, երբ ես կրկնակի սեղմում եմ կոդը գործարկելու համար, որը ցույց է տալիս ժամանակը ռազմական ժամանակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դիլան,
Կներեք, դեռ չեմ կարող օգնել ձեզ այդ հարցում: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծում եմ, եթե ընտրեք այդ բջջի ռազմական ժամի ձևաչափը Format -> Number -> Time options-ից, որը պետք է աշխատի: Օրինակ, այն տալիս է 1:30 կամ 13:30 տարբերակ, այնպես որ դուք պարզապես կընտրեք 13:30, և դա պետք է արվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կմտածեի, որ եթե դուք պարզապես ընտրեք Military Time ֆորմատը այդ բջիջի համար Number -> Time ֆորմատի տարբերակներից, ապա դա պետք է կատարվի: Օրինակ՝ 13:30-ի փոխարեն կընտրեիք 1:30, այնուհետև այն պետք է ցուցադրվի զինվորական ժամին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞, արդյոք կա այս կոդը Excel Online-ում տեղադրելու միջոց: Ես օգտագործել էի այն աշխատասեղանի տարբերակի հետ և այն հիանալի էր աշխատում, բայց հիմա մենք ամեն ինչ տեղափոխել ենք առցանց հարթակ, և կրկնակի սեղմումով իմ ամսաթվի և ժամի դրոշմանիշներն անհետացել են, և ես չեմ կարող հասկանալ, թե ինչպես դիտել կամ խմբագրել կոդը: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այսպիսով, ես տեղադրեցի կոդը և այն հիանալի է աշխատում իմ աշխատանքային գրքույկի մի քանի թերթերի վրա, սակայն որոշ թերթերում այն ​​հանկարծակի դադարում է աշխատել որոշակի տողից հետո, չնայած որ ես մուտքագրել եմ ճիշտ տիրույթը: Մտքեր, թե ինչու դա կարող է տեղի ունենալ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հենց այն էր, ինչ ես փնտրում էի. սա խնայում է տոննա ժամանակ, և ես գնահատում եմ լավ գրված հրահանգները: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, կոդը շատ բան արեց ինձ համար, ինչպես կարող եմ սահմանափակել կոդը աշխատել միայն այն դեպքում, եթե դաշտը դատարկ է: Եթե ​​ամսաթիվն արդեն կա խցում, կրկնակի սեղմումով ոչինչ չպետք է անի, հարգանքներով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ահմադ,
Կներեք անհանգստության համար: Դատարկ բջիջները ամսաթվերով միայն կրկնակի սեղմումով լրացնելու համար կարող եք կիրառել հետևյալ VBA կոդը՝ այն ավարտելու համար:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս գործառույթը չաշխատեց: Կրկնակի սեղմումով պարզապես մուտքագրվում է բջիջի ձեռքով խմբագրում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Բոբ,
Կոդն իմ դեպքում լավ է աշխատում։ Ես պետք է ավելի կոնկրետ իմանամ ձեր խնդրի մասին, օրինակ՝ ձեր Excel տարբերակը:
Իսկ կոդը աշխատում է միայն ձեր նշած բջիջների վրա։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi all,

Ես փորձում եմ օգտագործել այդ մակրոն, որպեսզի օգտագործեմ ամսաթվի դրոշմակնիքը՝ կրկնակի սեղմելով E սյունակի վրա, և այն աշխատում է, բայց երբ ես փորձում եմ կրկնօրինակել մակրոն՝ նույնն անելու համար, բայց F սյունակի ընթացիկ ժամանակում այն ​​չի աշխատում, ինչպես կարող եք տեսնել կից, ես ունեմ: սխալի հաղորդագրություն, որտեղ նշվում է. Հայտնաբերվել է երկիմաստ անուն:
Երբ ես փորձում եմ փոխել Sub WorkSheet մասը այլ անունով և կրկնակի սեղմել բջիջների վրա, ոչինչ չի պատահում:

Ինչ-որ մեկը կարո՞ղ է ինձ օգնել այդ հարցում:

Իմ կոդը.


Sub Worksheet_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («E1:E10000»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Ամսաթիվ
Վերջ: Եթե
Վերջ Sub

Sub Worksheet_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («F1:F10000»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Target.Formula = Now()
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Լուիս,
Մակրո կրկնօրինակումը կհանգեցնի նույն անունով երկու նույն ընթացակարգերի մեկ թերթիկի կոդի պատուհանում: Excel-ը թույլ չի տալիս մոդուլում երկու կամ ավելի միանման գործառույթներ: Նույնիսկ Իրադարձություններում: Դա հանգեցնում է երկիմաստության։
Եթե ​​ցանկանում եք կատարել այլ առաջադրանք նույն իրադարձության վրա, դուք պետք է փոփոխեք բնօրինակ կոդը՝ ձեր կարիքները բավարարելու համար:
Հետևյալ VBA կոդը կարող է ձեզ լավություն անել: Խնդրում եմ փորձեք:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից