VBA преименуване на лист - Как да преименувате лист в Excel с помощта на VBA?

• Преименувайте лист в Excel VBA

Преименувайте лист в Excel VBA

Преименуването на всеки работен лист на excel е толкова лесно, колкото преименуването на всеки файл. Това може да стане като щракнете двукратно върху всяко име на работния лист или като изберете Преименуване от списъка с менюто на десния списък. Но какво ще стане, ако искаме да преименуваме работен лист на excel с помощта на макрос VBA. С помощта на VBA Macro можем да преименуваме един или повече от един работен лист на Excel в един кадър. Можем дори да поправим името на всеки работен лист, за да избегнем промяна от никого. Тук ще видим множество начини за преименуване на всеки работен лист.

Как да преименувате лист в Excel с помощта на VBA?

По-долу са различните примери за преименуване на лист в Excel, използвайки VBA код.

Можете да изтеглите този шаблон на VBA Rename Sheet Excel тук - VBA Rename Sheet Excel шаблон

VBA Rename Sheet - Пример №1

Въпреки че е много лесно да преименувате всеки работен лист за excel с помощта на VBA. Има много начини да направите това също. Тук името на нашия работен лист е зададено по подразбиране като „Sheet1“, както е показано по-долу, което ще преименуваме.

Стъпка 1: За този пример ще ни трябва модул, в който ще правим кодирането. Отидете в менюто Вмъкване и изберете Модул, както е показано по-долу.

Стъпка 2: Сега в новооткрития модул напишете подкатегорията в името на VBA Rename Sheet или в друго име.

Код:

 Sub VBA_RenameSheet () Край Sub 

Стъпка 3: Сега дефинирайте променлива в произволно име и я присвойте с типове данни на Работен лист, както е показано по-долу Тук сме го кръстили като „ Лист “.

Код:

 Sub VBA_RenameSheet () Dim Sheet като работен лист End Sub 

Стъпка 4: С помощта на командата Set изберете променлива на листа, както е показано по-долу.

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheet Set Sheet = End Sub 

Стъпка 5: И изберете работния лист, който трябва да преименуваме с помощта на командата на Работен лист .

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheet Set Sheet = Работни листове ("Sheet1") End Sub 

Стъпка 6: Сега използвайте функцията Sheet заедно с Name и задайте името, което искаме да преименуваме. Тук избираме „ Преименуван лист “.

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheet Set Sheet = Worksheets („Sheet1“) Sheet.Name = „Преименуван лист“ End Sub 

Стъпка 7: Сега най-сетне компилирайте кода и го стартирайте, ако има намерена грешка. За да стартирате кода, щракнете върху бутона Възпроизвеждане, разположен под лентата на менюто, както е показано по-долу. Ще видим, нашият лист ще бъде преименуван от Sheet1 в Prename Sheet, както е показано по-долу.

VBA Rename Sheet - Пример №2

В този пример ще видим много по-лесен начин да преименувате всеки работен лист с помощта на макрос VBA. За това ще ни трябва още един свеж модул.

Стъпка 1: Отворете модул и напишете подкатегорията на VBA Rename, както е показано по-долу.

Код:

 Sub VBA_RenameSheet1 () Край Sub 

Стъпка 2: Изберете листа, който искаме да преименуваме с функция Select . Ето нашия лист е Sheet1 .

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Изберете End Sub 

Стъпка 3: В следващия ред помислете за функцията Name с избрания лист, както е показано по-долу.

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Изберете Sheets ("Sheet1"). Име = End Sub 

Стъпка 4: Изберете името, което искаме да дадем след преименуването на листа. Избираме същото име, както в пример-1 като „ Преименуван лист “

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Изберете Sheets ("Sheet1"). Name = "Преименуван лист" End Sub 

Стъпка 5: Отново компилирайте кода и го стартирайте. Ще видим, че sheet1 ще бъде преименуван с ново име като „ Преименуван лист “.

VBA Rename Sheet - Пример №3

Отново има още един подобен начин да преименувате работен лист на excel с помощта на VBA. Това би изглеждало малко подобно на процеса, който видяхме в пример-2, но много по-лесно да се запомни и обработи.

Стъпка 1: Отворете модул и напишете новата подкатегория на VBA Rename Sheet, както е показано по-долу.

Код:

 Sub VBA_RenameSheet2 () Край Sub 

Стъпка 2: Изберете листа, който искаме да преименуваме. Тук можем да изберете листа, като поставим последователността на листа в скоби, както е показано по-долу. Така че не е нужно да пишем името на Sheet, за да бъдем преименувани. Само последователността на този лист ще работи.

Код:

 Sub VBA_RenameSheet2 () Таблици (1) .Изберете край Sub 

Стъпка 3: В следващия ред помислете за функцията Name с избраната последователност на листа, както е показано по-долу.

Код:

 Под VBA_RenameSheet2 () Таблици (1) .Изберете Таблици (1). Име = Край Под 

Стъпка 4: Сега въведете името, което искаме да дадем на избрания Sheet1. Нека разгледаме името, което видяхме в горните примери, като „ преименуван лист “.

Код:

 Под VBA_RenameSheet2 () Таблици (1) .Изберете Таблици (1). Име = "преименуван лист" Край Под 

Стъпка 5: Сега компилирайте кода отново и стартирайте. Ще забележим, че Sheet1 отново е преименуван на „r enamed Sheet “, както е показано по-долу.

VBA Rename Sheet - Пример №4

В този пример ще видим как да преименуваме всеки работен лист само с един ред код.

Стъпка 1: Отворете модул и напишете подкатегорията на VBA Rename Sheet, както е показано по-долу.

Код:

 Sub VBA_RenameSheet3 () Край Sub 

Стъпка 2: Изберете последователността на листа, която искаме да преименуваме заедно с функцията Име и дайте име, с което искаме да преименуваме този лист, както е показано по-долу.

Код:

 Под VBA_RenameSheet3 () Таблици (1) .Name = "преименуване на лист" End Sub 

Стъпка 3: Сега просто стартирайте кода, за да го внедрите. Отново ще наблюдаваме, че Sheet1 вече е преименуван на „ преименуване на лист “

Плюсове на Excel VBA Rename Sheet

• Ако имаме няколко листа, които да бъдем преименувани, тогава използването на VBA код е много по-добро от ръчния процес.
• Можем да променим името на всеки работен лист за excel чрез един ред VBA код, който видяхме в пример-4.
• Въпреки че ръчната промяна на името на всеки лист също е прост начин да го направите. Но VBA Rename Sheet е доста полезен, когато създаваме нов лист и искаме да го отделим с други листове, само за да го категоризираме.

Неща, които трябва да запомните

• За да получите по-добър поглед върху случващите се промени, дръжте прозореца VBA успореден на excel sheet, така че промяната в името на листа ще бъде видима ясно.
• Запазването на файла, след като работата е извършена във формат за активиране на макрос, ще ни позволи да запазим кода и за бъдеща работа.
• Автоматизирането на процеса на промяна на името на листа ще ни помогне да намалим времето за категоризиране на листовете и данните.

Препоръчителни статии

Това е ръководство за VBA Rename Sheet. Тук обсъждаме как да преименувате Sheet в Excel, използвайки VBA код, заедно с няколко практически примера и шаблон за Excel за изтегляне. Можете да разгледате и другите ни предложени статии -

1. Пълно ръководство за VBA Workbook
2. Непряка функция в Excel
3. Уроци по функция VBA Count
4. Как да използвате Excel XOR функция?