Ինչպե՞ս բացել օրացույցը 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. Կտտացրեք օրացույցի պատկերակին ՝ այն բացելու համար Ամսաթիվ ընտրող երկխոսության տուփ, ապա կտտացրեք նոր ամսաթվին ՝ ընտրված խցում ամսաթիվը փոխարինելու համար:

Նշումներ:

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

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

• Ինչպե՞ս գործարկել Macro- ն ՝ կտտացնելով Excel- ի հատուկ բջիջը:
• Ինչպե՞ս փոխել բջջի գույնը, երբ բջիջը կտտացվում է կամ ընտրվում է Excel- ում:
• Ինչպե՞ս հանել հաղորդագրության տուփը Excel- ում որոշակի բջիջ սեղմելիս:
• Ինչպե՞ս անջատել կոճակը Excel- ում մեկ անգամ կտտացնելուց հետո:
• Ինչպե՞ս անջատել Excel- ում թերթիկի ներդիրի աջ սեղմումը:

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...