ВБА преименовање листа - Како преименовати Екцел радни лист помоћу ВБА кода?

Преименовање листова у Екцелу врши се са траке задатака испод радних листова, двоструким кликом на њих, али у ВБА користимо методу Схеетс или Ворксхеет својство за преименовање листа, синтакса за преименовање листа у ВБА је следећа Схеетс („ Име старог листа "). Наме =" Ново име листа ".

Преименујте лист у програму Екцел ВБА

Сви смо обавили овај задатак преименовања радног листа према нашем идентитету или према нашој погодности, зар не? Преименовање није ракетна наука за савладавање, али ако сте ВБА кодер, онда морате знати овај задатак преименовања радног листа. Будући да радимо са радним листовима користећи њихова имена, важно је знати важност имена радних листова у ВБА кодирању. У овом чланку ћемо вам показати како да преименујете лист помоћу Екцел ВБА кодирања.

Како преименовати лист у ВБА?

Промена назива радног листа не захтева посебне вештине. Само треба да наведемо име листа које мењамо уношењем постојећег имена листа.

На пример, ако желимо да преименујемо лист назван „Лист 1“, онда треба да позовемо лист његовим именом помоћу објекта Ворксхеет.

Радни листови („Лист1“)

Након спомињања имена листа, морамо да одаберемо својство „Наме“ да бисмо преименовали име радног листа.

Радни листови („Лист1“). Име

Сада треба да поставимо својство Наме на име према нашој жељи.

Радни листови („Лист1“). Наме = „Ново име“

Тако можемо да преименујемо назив радног листа у ВБА користећи својство Наме.

У следећим одељцима чланка показаћемо вам све више примера промене или преименовања радног листа.

Примери преименовања радних листова у програму Екцел ВБА

Испод су примери ВБА листа за преименовање.

Пример # 1 - Промените или преименујте лист помоћу ВБА променљивих.

На пример, погледајте доњи пример кода.

Шифра:

Суб Преименуј_Пример1 () Дим Вс Ас Ворксхеет Сет Вс = Ворксхеетс ("Схеет1") Вс.Наме = "Нев Схеет" Енд Суб

Прво сам у горе наведеном коду променљиву прогласио као Радни лист.

Дим Вс Ас Ворксхеет

Даље, поставио сам референцу на променљиву као „Схеет1“ помоћу објекта радног листа.

Постави Вс = Радни листови („Лист1“)

Сада променљива „Вс“ садржи референцу радног листа „Лист1“.

Сада користећи променљиву „Вс“, преименовао сам радни лист у „Нев Схеет“.

Овај код ће променити назив „Схеет1“ у „Нев Схеет“.

Ако код покренем ручно или помоћу пречице Ф5, поново ћемо добити грешку Субсцрипт Оут оф Ранге.

Разлог зашто добијамо ову грешку јер смо у претходном кораку већ променили радни лист под називом „Схеет1“ у „Нев Схеет“. Пошто више не постоји назив радног листа, „Схеет1“ није доступан, ВБА баца ову грешку.

Пример # 2 - Набавите сва имена радног листа у једном листу.

На једном листу можемо добити сва имена радног листа радне свеске. Код у наставку издвојиће сва имена радног листа.

Шифра:

Суб Ренмае_Екампле2 () Затамни В као радни лист Затамни ЛР колико дуго за сваки В у АцтивеВоркбоок.Ворксхеетс ЛР = Радни листови ("Главни лист"). Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .Ров + 1 Целлс (ЛР, 1) .Изаберите АцтивеЦелл.Валуе = Вс.Наме Следећи Вс Енд Суб

Овај код ће издвојити сва доступна имена радног листа на лист под називом „Главни лист“.

Пример # 3 - Поставите трајно име на Екцел радни лист помоћу ВБА

Будући да у кодирању радимо са именима листова, важно је да им поставимо трајна имена. Како да им поставимо стална имена?

На пример, погледајте доњи код.

Шифра:

Суб Преименуј_Пример3 () Радни листови ("Лист1"). Изаберите Енд Суб

Горњи код ће одабрати Схеет1.

Ако вашу радну свеску користи много људи, ако је неко променио име радног листа, добићемо грешку Субсцрипт Оут оф Ранге.

To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.

Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.

Step 2: Press the F4 key to see the Properties window.

Step 3: Under Name, Property Change the name to “New Name.”

As you can see, one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet.”

Now in coding, we will use the new name instead of an actual visible name.

Code:

Sub Rename_Example3() NewSheet.Select End Sub

Now come back to the worksheet window. We can still see the sheet name as “Sheet1” only.

Now I will change the sheet name to “Sales.”

Ако код покренем помоћу тастера Ф5 или ручно, он ће и даље одабрати само лист назван „Продаја“. Будући да смо му дали трајно име, и даље ће одабрати само исти лист.

Занимљиви Чланци...