Ինչպե՞ս բացել օրացույցը 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-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:
Առնչվող հոդվածներ:
- Ինչպե՞ս գործարկել Macro- ն ՝ կտտացնելով Excel- ի հատուկ բջիջը:
- Ինչպե՞ս փոխել բջջի գույնը, երբ բջիջը կտտացվում է կամ ընտրվում է Excel- ում:
- Ինչպե՞ս հանել հաղորդագրության տուփը Excel- ում որոշակի բջիջ սեղմելիս:
- Ինչպե՞ս անջատել կոճակը Excel- ում մեկ անգամ կտտացնելուց հետո:
- Ինչպե՞ս անջատել Excel- ում թերթիկի ներդիրի աջ սեղմումը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: