Excel vba изменить имя листа

Обращение к рабочим листам Excel из кода VBA. Переименование листов, скрытие и отображение с помощью кода VBA Excel. Свойства Worksheets.Name и Worksheets.Visible.

Обращение к рабочим листам

Рабочий лист (Worksheet) принадлежит коллекции всех рабочих листов (Worksheets) книги Excel. Обратиться к листу можно как к элементу коллекции и, напрямую, по его уникальному имени.

Откройте редактор VBA и обратите внимание на вашу книгу в проводнике, где уникальные имена листов указаны без скобок, а в скобках — имена листов, отображаемые на ярлычках в открытой книге Excel. Уникальные имена листов отсортированы по алфавиту и их расположение по порядку не будет соответствовать их индексам (номерам), если листы перемещались по отношению друг к другу. Индексы листов смотрите по порядку расположения ярлычков в открытой книге. Переместили листы — изменились их индексы.

Обращение к рабочему листу в коде VBA Excel:

‘По уникальному имени

УникИмяЛиста

‘По индексу

Worksheets(N)

‘По имени листа на ярлычке

Worksheets(«Имя листа»)
  • УникИмяЛиста — уникальное имя листа, отображаемое в проводнике редактора VBA без скобок, с помощью кода VBA изменить его невозможно.
  • N — индекс листа от 1 до количества всех листов в книге, соответствует порядковому номеру ярлычка этого листа в открытой книге Excel.
  • Имя листа — имя листа, отображаемое в проводнике редактора VBA в скобках, с помощью кода VBA изменить его можно.

Количество листов в рабочей книге Excel определяется так:

‘В активной книге

Worksheets.Count

‘В любой открытой книге,

‘например, в «Книга1.xlsm»

Workbooks(«Книга1.xlsm»).Worksheets.Count

Переименование листов

В VBA Excel есть некоторые особенности в наименовании листов, так как у рабочего листа есть два свойства, связанных с именем: (Name) и Name. Откройте окно «Properties» в редакторе VBA, нажав клавишу «F4», и выделите любой лист в проводнике. Вы увидите, что в окне «Properties» свойству (Name) в скобках соответствует в проводнике уникальное имя листа без скобок, а свойству Name без скобок соответствует изменяемое имя листа в скобках. Оба имени в окне «Properties» можно редактировать.

С помощью кода VBA Excel можно редактировать только имя листа Name, отображаемое на ярлычке листа и в проводнике без скобок. Для этого используется свойство рабочего листа Worksheets.Name со следующим синтаксисом:

expression.Name

где expression — переменная, представляющая собой объект Worksheet. Смена имени осуществляется путем присвоения нового значения свойству Worksheets.Name.

Допустим, у нас есть лист с уникальным именем (Name) — Лист1, индексом — 1 и именем Name — МойЛист, которое необходимо заменить на имя — Реестр.

Лист1.Name = «Реестр»

Worksheets(1).Name = «Реестр»

Worksheets(«МойЛист»).Name = «Реестр»

Скрытие и отображение листов

Для скрытия и отображения рабочих листов в VBA Excel используется свойство Worksheet.Visible со следующим синтаксисом:

expression.Visible

где expression — переменная, представляющая собой объект Worksheet. Свойству Worksheet.Visible могут присваиваться следующие значения:

  • False — лист становится невидимым, но он будет присутствовать в списке скрытых листов, и пользователь сможет его отобразить с помощью инструментов рабочей книги Excel.
  • xlVeryHidden — лист становится супер невидимым и его не будет в списке скрытых листов, пользователь не сможет его отобразить. Актуально для Excel 2003-2016.
  • True — лист становится видимым.

Аналоги присваиваемых значений:

  • False = xlHidden = xlSheetHidden = 1
  • xlVeryHidden = xlSheetVeryHidden = 2
  • True = xlSheetVisible = -1 (константа xlVisible вызывает ошибку)

Примеры:

Лист1.Visible = xlSheetHidden

Лист2.Visible = —1

Worksheets(Worksheets.Count).Visible = xlVeryHidden

Worksheets(«МойЛист»).Visible = True

Как создать, скопировать, переместить или удалить рабочий лист с помощью кода VBA Excel, смотрите в этой статье.

Источник

Home / VBA / How to RENAME a Sheet using VBA in Excel

When you add a new sheet in a workbook, you have the option to name it. But you can also rename it any time using the name property of the worksheet. In this tutorial, we will look at different ways to rename a sheet or multiple sheets using a VBA code.

Steps to Rename a Sheet using a VBA Code

  1. First, define the sheet that you want to rename using the worksheet object.
  2. After that, you need to use (.Name) to access the name property that you want to change.
  3. Next, type an equal sign to that to tell VBA the value you want to use to rename the sheet.
  4. In the end, type the name of the sheet that you want to use.

Helpful Links: Run a Macro – Macro Recorder – Visual Basic Editor – Personal Macro Workbook

Rename the Activesheet

If you want to rename the active sheet, in that case, you don’t need to define the sheet name, instead, you need to use the ActiveSheet object that tells VBA to refer to the sheet that is active right now. Here’s the code.

Activesheet.Name = "mySheet"

Note: To rename a sheet you don’t need to activate it.

As you know every sheet has a number based on its position in the workbook. Let’s say you want to rename the sheet that you have on the fifth number, the code would be.

Sheets(5).Name = "mySheet5"

When you run the above macro, it renames the sheet that is on the fifth number.

Check if Sheet Exists before Renaming

If you try to rename a worksheet that doesn’t exist, VBA will show you an error, just like below.

The solution to this problem is the following code that uses FOR EACH, which can loop through all the worksheets to find the sheet that you have defined and then rename that sheet.

Sub check_sheet_rename()
Dim ws As Worksheet
Dim mySheet As String
Dim SheetName As String

mySheet = InputBox("enter the name of the sheet that you want to rename.")
SheetName = InputBox("Enter new name for the sheet.")

For Each ws In ThisWorkbook.Worksheets
    If mySheet = ws.Name Then
    ws.Name = SheetName
    End If
Next ws

End Sub

Rename a Sheet using Value from a Cell or a Range

You can also rename a sheet by taking value from a cell. Let’s say the value is in cell A1.

Sheets("Sheet1").name = Range("A1").Value

But let’s say you want to name multiple sheets based on the values in a range of cells. In that case, you need to have code like the following.

Sub vba_sheet_rename_multiple()
Dim wsCount As Long
Dim rCount As Long
Dim ws As Worksheet
Dim name As Range
Dim i As Long

wsCount = ThisWorkbook.Worksheets.Count
rCount = Range("A1:A10").Rows.Count

'Checks if the count of the names provided is less _
or more than the sheets in the workbook
If wsCount <> rCount Then
    MsgBox "There's some problem with the names provided."
    Exit Sub
Else

    'Check if any of the cells in the name range is empty.
    For Each name In Range("A1:A10")
        If IsEmpty(name) = True Then
            i = i + 1
        End If
    Next name
    If i > 0 Then
        MsgBox "There's is a blank cell in the names range."
        Exit Sub
    End If
End If

'rename each sheet using the value from the range cell by cell.
i = 1

For Each ws In ThisWorkbook.Worksheets
    ws.name = Range("A1:A10").Cells(i, 1).Value
    i = 1 + i
Next ws

End Sub

When you run this VBA code, first it will check if the cells in the range are equal to the number of sheets that you have in the workbook. After that, it will check if all the cells in the range that you have specified have values or not. And in the end, rename all the sheets using those names.

It will verify two conditions using IF THEN ELSE and then rename all the sheets.

More Tutorials on VBA Worksheets

  • Back to VBA Worksheet / VBA Tutorial

Источник

{quote}{login=MSN}{date=08.02.2008 10:44}{thema=}{post}Огромное спасибо, ZVI!  
Все работает.  

  какую литературу посоветуешь по VBA?{/post}{/quote}  
—  
Базовые знания VBA вполне можно получать из VBA Help-а, если английский не смущает и есть понимание азов VBA. Но если начинать с нуля, то лучше сначала прочитать пару книжек, а потом уже по мере надобности — VBA-Help и ресурсы MSDN. Эффективнее всего научиться, пытаясь решать какие-то  реальные свои или чужие задачи с помощью Excel и VBA. В затруднительных ситуациях помогает изучение кода более опытных коллег, если есть такая возможность. Можно найти много VBA-утилит с открытым исходным тестом, которые могут послужить учебниками правильного кодирования.    
Да и на этом сайте Николая Павлова можно найти много интересных примеров.  

  Из с удовольствием прочитанных мною купленных книг, электронные версии которых на русском можно найти в Интернете, посоветую 2:  

  По VBA: «Джон Уокенбах — Профессиональное программирование на VBA в Excel 2002.pdf» 157 Мбайт. Почти все книги этого автора – бестселлеры, и их не мало, можно по фамилии Уокенбах найти много ссылок в поисковиках. Очень интересная его книга «Диаграммы в Excel» с примерами на компакт-диске, эти примеры можно скачать с сайтов издательств, например, отсюда:

http://archive.dialektika.com/archive/5-8459-0474-9/Examples_full_archive.zip  

  По Excel: «Мур, Джеффри Экономическое моделирование в Microsoft Excel.pdf» 214 Мбайт, бумажный вариант книги имеет толщину 5 см. Все 1018 страниц читаются как экономический роман. Книга прекрасно структуирована, содержит множество решений с примерами, может быть учебником по экономическим методам вообще. К книге прилагается компакт-диск, некоторые утилиты которого уже не работают (ограничения по дате), но это — решаемый вопрос. Удивительно, но книгу можно читать без Excel, т.к. на рисунках листы Excel продублированы с отображением формул (Ctrl — ~).  

  В Интернете можно найти много интересных VBA-ресурсов, в т.ч. в и разделе ‘Ссылки’ этого сайта.  
Меня, в основном, носило по англоязычным, на которых есть что-то оригинальное, например, из неспециализированных:  

http://www.cpearson.com/excel/mainpage.aspx  
http://www.oaltd.co.uk/Excel/Default.htm  
http://www.bygsoftware.com/  
http://www.anthony-vba.kefra.com/  

  Резюме для интересующихся VBA:  нужен небольшой начальный ликбез (хотя бы часть хорошей книги), затем — успешное решение нескольких простых, но полезных или интересных для Вас задач средствами VBA. После этого Вы, скорее всего, почувствуете, что теперь сможете сделать многое, если не все :)  
С этого момента Вы обречены на саморазвитие. Если VBA-решения как-то связаны с работой – используйте и демонстрируйте их, и не удивляйтесь, если вскоре Вас начнут воспринимать как эксперта или шамана.  
Может, все будет и не так просто – не отчаивайтесь.    
Если есть интерес – все получится!  
—  
ZVI

Источник

Return to VBA Code Examples

In this Article

  • Get Sheet Name
    • Get ActiveSheet Name
    • Get Sheet Name by index Number
    • Get Sheet Name by Code Name
  • Rename Sheet
    • Rename ActiveSheet
    • Rename Sheet by Name
    • Rename Sheet by Sheet Index Number
    • Rename Sheet by Code Name
  • Check if Sheet Name Exists
  • Copy Sheet and Rename

This tutorial will cover interacting with Sheet names in VBA.

Get Sheet Name

Sheet names are stored in the Name property of the Sheets or Worksheets object.  The Sheet Name is the “tab” name that’s visible at the bottom of Excel:

vba sheet tab name

Get ActiveSheet Name

This will display the ActiveSheet name in a message box:

MsgBox ActiveSheet.Name

Get Sheet Name by index Number

This will display the first worksheet name in a message box:

MsgBox Sheets(1).Name

This will display the name of the last worksheet in the workbook:

MsgBox Sheets(Sheets.Count).Name

Get Sheet Name by Code Name

In the VBA Editor, there is an option to change the “code name” of a Sheet. The code name is not visible to the Excel user and can only be seen in the VBA Editor:

vba sheet code name

In VBA, when working with Sheets, you can reference the usual Tab name:

Sheets("TabName").Activate

or the VBA code name:

CodeName.Activate

Referencing the code name is desirable in case the Sheet tab name ever changes. If you allow you Excel user access to changing sheet names you should reference the code name in your VBA code so that a Sheet tab name mismatch doesn’t cause an error. Sheet code names are discussed in more detail here.

To get the Sheet name using the VBA Code name, do the following:

MsgBox CodeName.Name

Rename Sheet

You can rename Sheets by adjusting the name property of the Sheets or Worksheets object.

Rename ActiveSheet

ActiveSheet.Name = "NewName"

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

automacro

Learn More

Rename Sheet by Name

Sheets("OldSheet").Name = "NewName"

Rename Sheet by Sheet Index Number

Here we use 1 to rename the first Sheet in the Workbook.

Sheets(1).Name = "NewName"

Rename Sheet by Code Name

This code will rename a sheet using it’s VBA code name (discussed above):

Component.Name = "NewName"

VBA Programming | Code Generator does work for you!

Check if Sheet Name Exists

We created a function to test if a Sheet with a particular name already exists.

'Test if a Range Exists on a Sheet.
'Leave range blank to test if sheet exists
'Inputs:
' WhatSheet - String Name of Sheet (ex "Sheet1")
' WhatRange (Optional, Default = "A1") - String Name of Range (ex "A1")
Function RangeExists(WhatSheet As String, Optional ByVal WhatRange As String = "A1") As Boolean
    Dim test As Range
    On Error Resume Next
    Set test = ActiveWorkbook.Sheets(WhatSheet).Range(WhatRange)
    RangeExists = Err.Number = 0
    On Error GoTo 0
End Function

The function will return TRUE if the Sheet exists, or FALSE if it does not.

Use the function like so:

Sub Test_SheetExists()
    MsgBox RangeExists("setup")
End Sub

Copy Sheet and Rename

This example is from our article on Copying Sheets.

After copying and pasting a Sheet, the newly created sheet becomes the ActiveSheet. So to rename a copied Sheet, simply use ActiveSheet.Name:

Sub CopySheetRename2()

    Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = "LastSheet"
    On Error GoTo 0

End Sub

Note: We added error handling to avoid errors if the Sheet name already exists.

Источник

  • Переименовать лист в Excel VBA

Переименовать лист в Excel VBA

Переименование любого листа Excel так же просто, как переименование любого файла. Это можно сделать, дважды щелкнув по имени любого листа или выбрав «Переименовать» в правом списке меню. Но что, если мы хотим переименовать лист Excel с помощью макроса VBA. С помощью VBA Macro мы можем переименовать один или несколько рабочих листов Excel за один раз. Мы даже можем исправить имя любого листа, чтобы никто не мог его изменить. Здесь мы увидим несколько способов переименования любого листа.

Как переименовать лист в Excel, используя VBA?

Ниже приведены различные примеры переименования листов в Excel с использованием кода VBA.

Вы можете скачать этот шаблон Excel для VBA Rename Sheet здесь — Шаблон для VBA Rename Sheet Excel

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

Хотя с помощью VBA очень легко переименовать любой лист Excel. Есть много способов сделать это также. Здесь имя нашего рабочего листа по умолчанию установлено как «Лист1», как показано ниже, которое мы будем переименовывать.

Шаг 1: Для этого примера нам понадобится модуль, в котором мы будем выполнять кодирование. Перейдите в меню « Вставка» и выберите « Модуль», как показано ниже.

Шаг 2: Теперь во вновь открытом модуле напишите подкатегорию на имя VBA Rename Sheet или на любое другое имя.

Код:

 Sub VBA_RenameSheet () End Sub

Шаг 3: Теперь определите переменную для любого имени и назначьте ее с типами данных Worksheet, как показано ниже. Здесь мы назвали его « Лист ».

Код:

 Sub VBA_RenameSheet () Dim Sheet As Worksheet End Sub

Шаг 4: С помощью команды Set выберите Sheet variable, как показано ниже.

Код:

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

Шаг 5: И выберите Рабочий лист, который нам нужно переименовать, с помощью команды Рабочий лист .

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheets Set Sheet = Worksheets ("Sheet1") End Sub

Шаг 6: Теперь используйте функцию Sheet вместе с Name и назначьте имя, которое мы хотим переименовать. Здесь мы выбираем « Переименованный лист ».

Код:

 Sub VBA_RenameSheet () Dim Sheet As Sheets Set Sheet = Worksheets ("Sheet1") Sheet.Name = "Переименованный лист" End Sub

Шаг 7: Теперь, наконец, скомпилируйте код и запустите его, если обнаружена ошибка. Для запуска кода нажмите на кнопку Play, расположенную под строкой меню, как показано ниже. Мы увидим, что наш лист будет переименован из Sheet1 в Renamed Sheet, как показано ниже.

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

В этом примере мы увидим гораздо более простой способ переименования любого рабочего листа с помощью макроса VBA. Для этого нам понадобится еще один свежий модуль.

Шаг 1: Откройте модуль и напишите подкатегорию VBA Rename, как показано ниже.

Код:

 Sub VBA_RenameSheet1 () End Sub

Шаг 2: Выберите Лист, который мы хотим переименовать с помощью функции Выбрать . Здесь наш лист Sheet1 .

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Выберите End Sub

Шаг 3: В следующей строке рассмотрите функцию Name с выбранным листом, как показано ниже.

Код:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Выберите Sheets ("Sheet1"). Name = End Sub

Шаг 4: Выберите имя, которое мы хотим дать после переименования листа. Мы выбираем то же имя, что и в примере 1, как « Переименованный лист ».

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Выберите Sheets ("Sheet1"). Name = "Renamed Sheet" End Sub

Шаг 5: Снова скомпилируйте код и запустите его. Мы увидим, что sheet1 будет переименован с новым именем как « Renamed Sheet ».

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

Существует еще один аналогичный способ переименования листа Excel с помощью VBA. Это выглядело бы немного похожим на процесс, который мы видели в примере 2, но намного легче запомнить и обработать.

Шаг 1: Откройте модуль и напишите новую подкатегорию VBA Rename Sheet, как показано ниже.

Код:

 Sub VBA_RenameSheet2 () End Sub

Шаг 2: Выберите лист, который мы хотим переименовать. Здесь мы можем выбрать лист, поместив последовательность листов в скобки, как показано ниже. Таким образом, нам не нужно писать имя листа для переименования. Только последовательность этого листа будет работать.

Код:

 Sub VBA_RenameSheet2 () Sheets (1). Выберите End Sub

Шаг 3: В следующей строке рассмотрите функцию Name с выбранной последовательностью листов, как показано ниже.

Код:

 Sub VBA_RenameSheet2 () Sheets (1). Выбрать Sheets (1) .Name = End Sub

Шаг 4: Теперь введите имя, которое мы хотим дать выбранному Листу1. Давайте рассмотрим имя, которое мы видели в приведенных выше примерах, как « переименованный лист ».

Код:

 Sub VBA_RenameSheet2 () Sheets (1). Выбрать Sheets (1) .Name = "renamed Sheet" End Sub

Шаг 5: Теперь снова скомпилируйте код и запустите. Мы заметим, что Sheet1 теперь снова переименован в «r enamed Sheet », как показано ниже.

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

В этом примере мы увидим, как переименовать любой лист с помощью только одной строки кода.

Шаг 1: Откройте модуль и напишите подкатегорию VBA Rename Sheet, как показано ниже.

Код:

 Sub VBA_RenameSheet3 () End Sub

Шаг 2: Выберите последовательность листов, которую мы хотим переименовать вместе с функцией Name, и дайте имя, по которому мы хотим переименовать этот лист, как показано ниже.

Код:

 Sub VBA_RenameSheet3 () Sheets (1) .Name = "переименовать лист" End Sub

Шаг 3: Теперь просто запустите код для его реализации. Мы снова заметим, что Sheet1 теперь переименован в « rename Sheet »

Плюсы Excel VBA Переименовать Лист

  • Если у нас есть несколько листов, которые нужно переименовать, тогда использование кода VBA намного лучше, чем ручной процесс.
  • Мы можем изменить имя любого рабочего листа Excel одной строкой кода VBA, который мы видели в примере 4.
  • Хотя изменение названия любого листа вручную также является простым способом сделать это. Но VBA Rename Sheet весьма полезна, когда мы создаем новый лист, и мы хотим отделить его от других листов, чтобы классифицировать его.

То, что нужно запомнить

  • Чтобы получить лучшее представление о происходящих изменениях, держите окно VBA параллельно листу Excel, чтобы изменение имени листа было ясно видно.
  • Сохранение файла после выполнения работы в формате Macro enable позволит нам сохранить код и для дальнейшей работы.
  • Автоматизация процесса изменения имени листа поможет нам сократить время классификации листов и данных.

Рекомендуемые статьи

Это руководство к VBA Rename Sheet. Здесь мы обсудим, как переименовать лист в Excel, используя код VBA, а также несколько практических примеров и загружаемый шаблон Excel. Вы также можете просмотреть наши другие предлагаемые статьи —

  1. Полное руководство по VBA Workbook
  2. НЕПРАВИЛЬНАЯ функция в Excel
  3. Учебники по функции подсчета VBA
  4. Как использовать функцию Excel XOR?

Источник

Понравилась статья? Поделить с друзьями:
  • Excel vba измененная ячейка
  • Excel vba игнорировать ошибку
  • Excel vba значение ячейки в другую ячейку
  • Excel vba значение соседней ячейки
  • Excel vba значение переменной по умолчанию