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

Ինչպե՞ս բացել օրացույցը Excel- ում որոշակի բջիջ սեղմելիս:

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


VBA կոդով հատուկ բջիջ սեղմելիս բացեք օրացույց

Խնդրում ենք լուծել այս խնդիրը քայլ առ քայլ.

ՆշումԱյս մեթոդը կարող է աշխատել միայն Microsoft Excel 32-բիթանոցում:

Քայլ 1. Ստեղծեք UserForm օրացույցով

Խնդրում ենք ստեղծել UserForm, որը պարունակում է այն օրացույցը, որը դուք կհայտնվեք ՝ սեղմելով բջիջը:

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Օգտագործողի ձև.

3. Հետո ա Օգտագործողի ձև եւ Այստեղ հղվող էջերը պատուհանները բացվում են, Այստեղ հղվող էջերը, կտտացրեք ցանկացած կառավարման և աջ կտտացրեք, ապա ընտրեք Լրացուցիչ հսկողություն աջ կտտացնելու ցանկից: Տեսեք,

4. Մեջ Լրացուցիչ հսկողություն երկխոսության տուփ, ոլորեք ներքև ՝ ստուգելու համար Microsoft MonthView հսկողություն տարբերակը Հասանելի հսկողություն տուփը, ապա կտտացրեք OK կոճակը:

5. Ապա դուք կարող եք տեսնել այն MonthView կոճակը ավելացվում է Այստեղ հղվող էջերը պատուհան Խնդրում ենք սեղմել այս MonthView կոճակը և այնուհետև կտտացնել UserForm1 պատուհանին ՝ Userform- ում Օրացույց ստեղծելու համար:

ՆշումԴուք կարող եք հարմարեցնել UserForm պատուհանի չափը տեղադրված օրացույցին համապատասխան ՝ քաշելով UserForm- ի սահմանը:

6. Կրկնակի կտտացրեք տեղադրված օրացույցին UserForm1- ում և այն Կոդ պատուհանը, խնդրում ենք փոխարինել բնօրինակ կոդը հետևյալ VBA գրով:

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

ՆշումԱյս կոդը կարող է օգնել օրացույցից ամսաթիվ ընտրելուց հետո ամսաթիվը տեղադրելու ընտրված խցում:

Քայլ 2. Ակտիվացրեք Օրացույցը բջիջը կտտացնելիս

Այժմ կտտացնելիս հարկավոր է նշել որոշակի բջիջներ ՝ օրացույցը բացելու համար: Խնդրում եմ արեք հետևյալ կերպ.

7. Կրկնակի կտտացրեք թերթիկի անունը, որը պարունակում է այն բջիջները, որոնց վրա կտտացրեք կտտացրեք ձախ օրացույցը Նախագիծ պատուհանը, այնուհետև պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում: Տեսեք,

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Նշում: ծածկագրում, A2: A10 բջիջներ են, որոնց կտտացրեք կտտացրեք օրացույցը: Խնդրում ենք փոխել բջիջների տիրույթը, որքան ձեզ հարկավոր է:

8. Մամուլ ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, ընթացիկ աշխատանքային թերթում նշված տիրույթի ներսում գտնվող ցանկացած բջջի վրա կտտացնելիս, օրացույցը կհայտնվի, ինչպես ցույց է տրված նկարում: Եվ ամսաթիվը ավտոմատ կերպով կտեղադրվի ընտրված խցում օրացույցից ամսաթիվ ընտրելուց հետո:


VBA կոդով հատուկ բջիջ սեղմելիս բացեք օրացույց

Այս բաժնում ներկայացվում է Ամսաթիվ ընտրող օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Այս գործառույթն ակտիվացնելուց հետո կտտացրեք ամսաթվի բջիջը կբացվի օրացույց, դուք կարող եք հեշտությամբ փոխարինել առկա ամսաթիվը դրանով նոր ամսաթվով: Այս հատկությունը կիրառելու համար հետևեք ստորև նշված քայլերին:

1: սեղմեք Կուտոլս > Պարունակություն > Միացնել Ամսաթիվ ընտրողը.

2. Այս գործառույթն ակտիվացնելուց հետո կտտացրեք ամսաթվի բջիջին, և օրացույցի պատկերակը կհայտնվի հենց բջիջ:

3. Կտտացրեք օրացույցի պատկերակին ՝ այն բացելու համար Ամսաթիվ ընտրող երկխոսության տուփ, ապա կտտացրեք նոր ամսաթվին ՝ ընտրված խցում ամսաթիվը փոխարինելու համար:

Նշումներ:

  • Հետարկել կոճակը. Կտտացրեք այս կոճակին ՝ փոխարինելու ամսաթիվը հետարկելու համար.
  • Փակել կոճակը. Կտտացրեք այս կոճակին Ամսաթիվ ընտրողի երկխոսության տուփը փակելու համար;
  • Այս հատկությունը կարող է տարածվել միայն ամսաթիվ պարունակող բջիջների վրա:

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (18)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ ընտրված բջիջի տակ ցուցադրել թռուցիկ օրացույց: Ինչպե՞ս պետք է անեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ այս VBA կոդերը և մինչ այժմ ամեն ինչ կարգին է: Շրջանակը A2:A10 է, և օրացույցը հայտնվում է, երբ ընտրում եք դրա մեջ բջիջ: Բայց եթե նորից նշեք 2-ից 10-րդ շարքը, օրացույցը նորից բացվում է: Նույնն է «Ա» սյունակի դեպքում, եթե նշես, նորից օրացույցը դուրս է գալիս: Ինչպե՞ս վարվեմ, որպեսզի օրացույցը ստանամ միայն իմ սահմանած միջակայքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին,

Կարո՞ղ է որևէ մեկը ինձ ասել, թե ինչպես բացել օրացույցը մի շարք բջիջներում, բայց սկսելով միայն աղյուսակի վերնագրի ներքևում գտնվող աջ բջիջից և excel սյունակի ներքևում:


Կանխավ շնորհակալ ենք Ձեր.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Կներեք, որ չհասկացա ձեր հարցը: Լավ կլիներ, եթե կարողանայիք սքրինշոթ տրամադրել, թե ինչ եք փորձում անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործել, այսինքն՝ միջակայք ("B6:C30")
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործել, այսինքն՝ միջակայք ("B6:C30")
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
եթե փորձեմ տող ընտրել, ելնող պատուհանը կակտիվանա, և ամսաթիվը կհայտնվի այդ տողի յուրաքանչյուր բջիջում


ինչպես կարող եմ խուսափել սրանից
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Սեմ,
Հոդվածում կոդը թարմացվել է խնդրի լուծման հետ։ Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Save il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Հնարավո՞ր է ամսաթվերի ընտրիչի ելնող պատուհանը մի քանի սյունակի համար, քանի որ իմ թերթիկում ունեմ «սկիզբը», «ավարտի ամսաթիվը» և «համաձայնության ամսաթիվը»: եթե այո, ապա ինչպես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջիթ,
Հետևեք քայլերին և երկրորդ VBA կոդի «A2:A10» միջակայքը փոխարինեք ձեր սյունակի տիրույթով (օրինակ՝ C2:E2):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Այս ուղղությունները շատ օգտակար էին :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օրացույցը կհայտնվի, բայց երբ սեղմում եմ ամսաթվի վրա, բջիջը չի լցվում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կոդն իմ դեպքում լավ է աշխատում։ Excel-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցուցակված չկա Microsoft MonthView Control (Office 365), և այստեղի ցուցումները չեն բացատրում, թե ինչպես կարելի է ստանալ այդ հսկողությունը, այնպես որ սա գրեթե անօգուտ է, քանի դեռ չեք օգտագործում Excel-ի հին տարբերակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցուցակում ես չեմ տեսնում Microsoft MonthView Control-ը, բայց կարող է լինել այնպես, ինչպես Փիթը (#32847) նշեց, որ դա չի աշխատի Office 365 կամ 64-բիթանոց Microsoft Office-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Թիգան Քոդլ,
Ես փնտրեցի և փորձեցի google-ում առաջարկված մեթոդները, բայց ի վերջո չկարողացա գրանցել MonthView հսկողությունը Microsoft 365-ում:
Ներողություն անհանգստության համար. Գուցե դուք կարող եք ստուգել սա:
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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