В тази статия са дадени отговори на въпросите ви за как да добавите лист с име в Excel VBA . Ако търсите такива уникални трикове, сте попаднали на правилното място. Тук ще обсъдим 6 лесни & доказани начини за добавяне на лист с име в Excel VBA .

Изтегляне на работна тетрадка за практика

Можете да изтеглите следната работна книга на Excel, за да я разберете по-добре и да се упражните.

Код VBA за добавяне на лист с име

Ще използваме Обект от листове за добавяне на лист в Excel. VBA Кодът за добавяне на лист с име изглежда като този по-долу.

Преди: Това не е задължително. Добавя нов лист преди определен лист.

След: Тя също не е задължителна. Добавя нов лист след определен лист.

Брой: Това също е незадължителен параметър. Той указва броя на листовете, които да се добавят.

Тип: Той също не е задължителен. Определя типа на листа. Тук стойността по подразбиране е xlWorksheet .

6 различни начина за добавяне на лист с име в Excel VBA

В Excel можем да добавим нов лист с командата add ⊕ Мислили ли сте някога да автоматизирате същата задача в Excel? Не мислете повече, защото VBA ви е на разположение.

Тук имаме работен лист с име Отчет за продажбите . Той съдържа Ежедневен отчет за продажбите на определено кафене. В колони B , C и D , има имена на Представители по продажбите , Елементи , и Количество съответно.

Тук ще добавим други листове в тази работна книга с помощта на Макрос VBA .

Тук сме използвали Microsoft Excel 365 версия, можете да използвате всяка друга версия според вашето удобство.

1. Добавяне на лист с име в Excel VBA

В първия ни метод ще добавим лист с името от въвеждане от потребителя . Ако сте любопитни да се научите, следвайте тези прости стъпки.

📌 Стъпки:

• В самото начало отидете в Разработчик таб.
• Второ, изберете Visual Basic на Код група.
• Алтернативно натиснете ALT + F11 за изпълнение на същата задача.

Забележка: Уверете се, че сте натиснали ALT вляво от бутона SPACEBAR . Операцията няма да се изпълни, ако използвате други ALT ключове.

• Веднага след това Microsoft Visual Basic за приложения отваря се прозорец.
• По-късно се преместете в Вмъкване на таб.
• След това изберете Модул от опциите.

• Понастоящем тя отваря кода Модул .
• След това напишете следния код в Модул .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Моля, въведете името на листа ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Разбивка на кода

• Първо, извикваме процедурата Sub като Add_Sheet_with_Name .
• След това определяме типовете променливи.
• По-късно добавихме При грешка продължете Next Това ще игнорира всички грешки.
• След това използвахме InputBox за да получим името на листа от потребителя. Също така съхранихме текстовия низ от InputBox в sheet_name променлива.
• След това, ако sheet_name е празен, кодът няма да продължи.
• Накрая използваме Add.Name за именуване на новосъздадения лист. Тук името ще бъде същото като това на sheet_name променлива.

• В този момент натиснете бутона Бягай (⏵) вместо това можете да натиснете F5 на клавиатурата.

• Изведнъж се отваря поле за въвеждане.
• Тук въведете името на новия лист. В този случай написахме Печалба в кутията.
• По-късно щракнете върху OK .

• Така нашият код ще се изпълни и ще добави лист с име Печалба .

Забележка: Не сме посочили място за нашия лист. По подразбиране той се поставя преди активния лист.

Прочетете още: Excel VBA за добавяне на лист в друга работна книга (3 удобни примера)

2. Прилагане на Excel VBA за добавяне на лист с име преди определен лист

Във втория ни метод ще добавим лист с името преди определен лист. Нека разгледаме процеса стъпка по стъпка.

📌 Стъпки:

• Първо, извикайте кода Модул прозорец, както е показано в Метод 1 .
• Второ, запишете следния код в него.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Отчет за продажбите").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Разбивка на кода

• Първо, извикваме процедурата Sub като Add_Sheet_Before_Specific_Sheet .
• След това активираме Отчет за продажбите Това ще гарантира, че кодът ще се изпълни, ако се намираме на друг лист.
• След това използваме Add.Name да назовете новосъздадения лист. Този лист ще бъде създаден преди листа, наречен Печалба от работната книга. Освен това сме именували листа като Баланс .

• След това изпълнете кода, както е показано в Метод 1 .
• По този начин се добавя нов лист Баланс преди листа с име Печалба .

Прочетете още: Excel VBA за добавяне на лист с име на променлива (5 идеални примера)

3. Използване на Excel VBA за добавяне на лист с име след определен лист

В този метод ще добавим лист след листа с име Печалба . Нека разгледаме процеса в детайли.

📌 Стъпки:

• Първоначално извикайте кода Модул прозорец, както е показано в Метод 1 .
• След това напишете следния код в него.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Този код е почти сходен с кода на Метод 2 Just, тук използвахме параметъра След а не Преди . Защото искаме да добавим новия лист, който следва определен лист.

• След това изпълнете кода, както е показано в Метод 1 .
• По този начин се добавя нов лист Склад след листа с име Печалба .

Прочетете още: Excel VBA за добавяне на лист, ако той не съществува (с бързи стъпки)

4. Вмъкване на лист с име в началото на работната книга

В този раздел ще вмъкнем нов лист в началото на работната книга в Excel, като използваме VBA Така че, без да се бавим повече, нека видим как го правим.

📌 Стъпки:

• Първоначално извикайте кода Модул прозорец, както е показано в Метод 1 .
• След това напишете следния код в него.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Профил на компанията" End Sub 

Тук добавяме новия работен лист преди първия лист на работната книга. Това означава в началото на работната книга. В резултат на това сега той е първият лист. Също така, нарекохме листа Профил на компанията .

• След това изпълнете кода, както е показано в Метод 1 .
• Следователно ще се добави нов лист Профил на компанията в началото на работната книга.

Прочетете още: Макрос на Excel: Създаване на нов лист и преименуване (3 идеални примера)

5. Използване на Excel VBA за добавяне на лист в края на работната книга

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

📌 Стъпки:

• Преди всичко отворете кода Модул прозорец, както е показано в Метод 1 .
• След това поставете следния код в него.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Отчет за доходите" End Sub 

Разбивка на кода

• Първо, извикваме процедурата Sub като Sheet_End_Workbook.
• След това използваме Add.Name Ще създадем този лист след последния лист на работната книга. Можем да получим номера на последния лист от Sheets.Count Освен това нарекохме листа Отчет за приходите и разходите .

• След това изпълнете кода, както е показано в Метод 1 .
• Следователно ще се добави нов лист Отчет за приходите и разходите в края на работната книга.

Прочетете още: Създаване на нова работна книга и запазване с помощта на VBA в Excel

6. Въвеждане на множество листове чрез използване на стойността на клетката от Excel VBA

За последния метод ще добавим няколко листа в работната книга с името от диапазон от клетки, като използваме Excel VBA . освен това ще поискаме от потребителя да въведе диапазона, в който да вземе името. И така, нека разгледаме стъпките по-долу.

📌 Стъпки:

• Отначало отворете кода Модул прозорец, както е показано в Метод 1 .
• След това копирайте следния код и го поставете в него.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Отчет за продажбите").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Разбивка на кода

• Първо, извикваме процедурата Sub като Add_Multiple_Sheets_Using_Cell_Value.
• След това определяме типовете променливи.
• След това използваме InputBox за получаване на обхвата от данни от потребителя.
• Четвърто, активираме листа Отчет за продажбите .
• По-късно използваме За всеки следващ цикъл, за да преминете през избрания диапазон от клетки една по една.
• След това използваме Add.Name ще създадем тези листове след активния лист. Отчет за продажбите на работната книга.

• Сега изпълнете кода, както е показано в Метод 1 .
• Веднага след това Exceldemy отваря се поле за въвеждане.
• След това дайте клетките в B5:B9 в кутията.
• Накрая щракнете върху ОК .

• Накрая ще вмъкне пет листове с имена на стойностите на клетките в B5:B9 Всички те са след листа Отчет за продажбите .

Заключение

Тази статия предоставя лесни и кратки решения за добавяне на листове с имена от Excel VBA . Не забравяйте да изтеглите Практика файл. благодарим ви, че прочетохте тази статия, надяваме се, че е била полезна. моля, уведомете ни в раздела за коментари, ако имате някакви запитвания или предложения. моля, посетете нашия уебсайт Exceldemy за да проучите повече.