Ինչպես արագ ստեղծել կատալոգ ձեր Excel աշխատանքային գրքի համար VBA- ի միջոցով

Կիսվել հիմա ՝

Բազմաթիվ աշխատանքային թերթերով աշխատանքային գրքի համար կատալոգ ստեղծելը անհրաժեշտ է: Այստեղ մենք ունենք Excel- ի աշխատաթերթում կատալոգ ստեղծելու արագ մեթոդ:

Մեր նախորդ հոդվածում Ինչպես ստեղծել կատալոգ ձեր Excel- ում `հղումների միջոցով, մենք խոսեցինք կատալոգ ստեղծելու մասին ՝ հղումներ տեղադրելով աշխատանքային թերթում: Բազմաթիվ աշխատանքային թերթերով աշխատանքային գրքի համար կատալոգ ստեղծելը կարող է շատ օգտակար լինել: Բայց մեկ առ մեկ ձեռքով հիպերհղումներ ավելացնելը կարող է ժամանակատար լինել: Հետեւաբար, այստեղ մենք ունենք նոր մեթոդ `նման կատալոգ արագ ստեղծելու համար:

Ստեղծել կատալոգ

Ստորև ներկայացված նկարում աշխատանքային գրքում կան բազմաթիվ աշխատաթերթեր:Կատալոգի օրինակ

Եվ հիմա այս աշխատանքային գրքում կարող եք ստեղծել կատալոգ:

  1. Աջ կտտացրեք ժապավենի ներդիրներից մեկը:
  2. Եվ ապա ընտրացանկում կտտացրեք «Անհատականացրեք ժապավենը» կոճակին:Անհատականացրեք ժապավենը
  3. «Excel ընտրանքներ» պատուհանում «Հիմնական ներդիրներ» տարածքում ստուգեք «Կառուցապատող» տարբերակը:
  4. Եվ այնուհետև կտտացրեք «Լավ»:Ստուգեք մշակողին
  5. Այժմ կտտացրեք ժապավենի «Կառուցապատող» ներդիրին:
  6. Դրանից հետո կտտացրեք գործիքների տողի «Visual Basic» կոճակին:Visual Basic

Այսպիսով, դուք բացել եք Visual Basic խմբագիրը: Փաստորեն, խմբագիրն արագ բացելու համար կարող եք նաև սեղմել ստեղնաշարի «Alt + F11» դյուրանցման կոճակը:

  1. Այժմ աջ կտտացրեք VBA պրոյեկտորին:
  2. Եվ ապա ձեր կուրսորը տեղափոխեք «Տեղադրել» տարբերակի վրա:
  3. Ենթ ընտրացանկում ընտրեք «Մոդուլ» տարբերակը:Տեղադրեք մոդուլ

Հետևաբար, դուք նոր մոդուլ եք տեղադրել ծրագրի մեջ:

  1. Այժմ պատճենեք հետևյալ VBA կոդերը նոր մոդուլի մեջ.

Sub CreateMenu ()

    Խամրեք որպես ամբողջ թիվ

    a = 1

    'ավելացնել նոր աշխատանքային թերթ

    Worksheets. Ավելացնել առաջ. = Թերթեր (1)

    Թերթեր (1): Անունը = «Մենյու»

    Աշխատաթերթեր («uաշացանկ»): Շարք («A1»): Արժեք = «uաշացանկ»

    A = 2-ի համար ActiveWorkbook.Worksheets.Count

        Աշխատաթերթեր («uաշացանկ»): Շրջանակ («Ա» և ա) = Թերթիկներ (ա): Անուն

        ActiveSheet.Hyperlinks.Add Anchor: = Worksheets («Menաշացանկ»): Range («A» և a), _

        Հասցե ՝ = ””, _

        Ենթադաշտ. = "'" & Թերթեր (ա): Անունը և "'! R1C1", _

        TextToDisplay: = Թերթեր (ա): Անուն

    հաջորդ

Վերջ Sub

Այս ծածկագրում մենք սկզբում տեղադրում ենք «uաշացանկ» անվամբ նոր աշխատաթերթ: Եթե ​​արդեն կա «uաշացանկ» անունով աշխատաթերթ, կարող եք կամ փոխել VBA կոդը կամ փոխել գոյություն ունեցող աշխատաթերթի անվան անվանումը: Բացի այդ, մենք ցուցակը մուտքագրելու ենք նոր աշխատանքային թերթի առաջին սյունակում: Եթե ​​Ձեզ անհրաժեշտ է մուտքագրել կատալոգը տարբեր տիրույթներում, կարող եք նաև փոփոխել այն ՝ ըստ ձեր կարիքի:

  1. Այժմ գործիքագոտում սեղմեք «Run Sub» կոճակըԳործարկել ենթ

Բացի այդ, կարող եք նաև սեղմել ստեղնաշարի տախտակի «F5» կոճակը:

  1. Այժմ վերադառնանք աշխատանքային թերթի ինտերֆեյս:Կատալոգ

Աշխատանքային տետրում կա «Մենյու» անվամբ նոր աշխատանքային թերթ: Եվ բոլոր թերթերի անունները նշված են համապատասխան հիպերհղումներով աշխատաթերթում: Այս մեթոդից արագ ժամանակում հեշտությամբ կարող եք կատալոգ ստեղծել:

Համեմատություն երկու մեթոդների միջև

Մեր նախորդ հոդվածում Ինչպես ստեղծել կատալոգ ձեր Excel- ում `հղումների միջոցով, մենք կատալոգը ավելացնում ենք ձեռքով: Եվ մենք համեմատելու ենք երկու մեթոդների տարբերությունը ստորև բերված աղյուսակում:

Համեմատություն Ձեռքով ստեղծեք կատալոգ Օգտագործեք VBA կարգը
Առավելություն 1. Excel- ի յուրաքանչյուր օգտվող կարող է հեշտությամբ օգտագործել այս մեթոդը:

2. Եթե VBA- ի մասին գիտելիքներ չունեք, կարող եք օգտագործել այս մեթոդը:

1. VBA ընթացակարգերի միջոցով դուք կարող եք ավարտել այս առաջադրանքը միայն մեկ կտտոցով:

2. Կարող եք նաև փոխել VBA կոդերը `այլ պահանջներ կատարելու համար:

Դժգոհություն 1. Եթե աշխատանքային գրքում շատ աշխատաթերթեր կան, դուք, անշուշտ, շատ ժամանակ կծախսեք հիպերհղումներ տեղադրելու վրա:

2. Անհրաժեշտ է մեկ առ մեկ ընտրել հիպերհղումներ, և դա հեշտությամբ կհանգեցնի սխալների:

1. Եթե դուք ծանոթ չեք VBA կոդերին, ծածկագրերը գործարկելիս խնդիրներ կառաջանաք:

2. VBA կոդերի օգտագործումը կբարդացնի առաջադրանքը:

 

Գործեք Excel- ում անսպասելի իրավիճակների հետ

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

Հեղինակի ներածություն.

Աննա Ման տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել փաստաթղթերի վնասը և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: