Բաց թողնել հիմնական բովանդակությունը

Excel- ում անվան փոխարեն ինչպե՞ս հղել աշխատանքային թերթը ըստ ինդեքսի համարի:

Հեղինակ՝ Սիլյուվիա Վերջին փոփոխությունը՝ 2020-07-02

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

Հղման աշխատանքային թերթը ըստ ցուցիչի համարի ՝ օգտագործողի կողմից սահմանված գործառույթով անվան փոխարեն


Հղման աշխատանքային թերթը ըստ ցուցիչի համարի ՝ օգտագործողի կողմից սահմանված գործառույթով անվան փոխարեն

Խնդրում ենք անել հետևյալը ՝ Excel- ում անվան փոխարեն նշեք աշխատանքային թերթը ըստ ինդեքսի համարի:

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

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Տեղեկանքային թերթ ըստ ցուցիչի համարի Excel- ում

Function SHEETNAME(number As Long) As String
    SHEETNAME = Sheets(number).Name
End Function

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

Notes:

1. Եթե Ձեզ անհրաժեշտ է վկայակոչել որոշակի թերթի անուն `իր համարով, ընտրեք դատարկ բջիջ և մուտքագրեք բանաձև = SHEETNAME (1) անմիջապես բանաձևի բարում, ապա սեղմեք Enter ստեղնը: Տեսեք,

2. Եթե ցանկանում եք աշխատանքային էջից բջջային արժեք ստանալ `ելնելով դրա ինդեքսի համարից, խնդրում ենք օգտագործել այս բանաձևը:

=INDIRECT("'"&SHEETNAME(1) &"'!A1")

3. Եվ եթե ցանկանում եք որոշակի սյունակ կազմել աշխատաթերթում `ելնելով դրա ինդեքսի համարից, խնդրում ենք կիրառել այս բանաձևը:

=SUM(INDIRECT("'"&SHEETNAME(1) &"'!C2:C7"))


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I've successfully implemented the above VBA and formulas. I'm trying to add an additional function. I would like to SUM the same cells across all sheets (created and not yet created) using the above SHEETNAME VBA, but I can seem to figure out how to assemble the formula to make it work. Any ideas? I've tried the following and minor variants, but excel no longer thinks it a formula. =SUM(INDIRECT("'"&SHEETNAME(4) &"'!R7":"'"&SHEETNAME(5) &"'!R7"))
This comment was minimized by the moderator on the site
If you use this UDF, I'd suggest Making two changes in bold below, with notes on why.
Function SHEETNAME(number As Long) As StringApplication.Volatile <--------- this makes the function recalculate when you change the sheets name. Otherwise when you change the sheet name it doesn't change unless you perform a manual recalculation.----------
SHEETNAME = Thisworkbook.Sheets(number).Name <------ If you use this function in multiple workbooks, it will only check names of the workbook the function is in. Otherwise this function will potentially call the tab names from other open Workbooks with this formula.-------
End Function
This comment was minimized by the moderator on the site
Thank you very much for the script and the additions! Exactly what I was looking for without any prior knowledge about VBAs.
This comment was minimized by the moderator on the site
Nice solution. Also, referencing cell B4 of the first sheet in another Excel file can be done like this: =INDIRECT("'[other_filename.xlsx]"&SHEETNAME(1) &"'!B4") However note that the file containing the VBA script needs to be stored as a macro file, .xlsm Cheers,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations