Excel макроса при переименовании листа

Содержание

  1. Пошаговое руководство. Переименование листа Excel с содержимым ячейки с помощью макроса
  2. Решения
  3. Выполнение
  4. Первый шаг
  5. Последний шаг
  6. Шаг кодирования макросов
  7. Макрос для копирования и переименования листов Excel
  8. Как копировать и переименовать лист Excel макросом
  9. Описание исходного кода макроса для копирования и переименования листов
  10. VBA Excel. Рабочий лист (обращение, переименование, скрытие)
  11. Обращение к рабочим листам
  12. Переименование листов
  13. Скрытие и отображение листов
  14. VBA Rename Sheet — Как переименовать лист в Excel, используя VBA?
  15. Переименовать лист в Excel VBA
  16. Как переименовать лист в Excel, используя VBA?
  17. VBA Rename Sheet — Пример № 1
  18. VBA Rename Sheet — Пример № 2
  19. VBA Rename Sheet — Пример № 3
  20. VBA Rename Sheet — Пример № 4
  21. Плюсы Excel VBA Переименовать Лист
  22. То, что нужно запомнить
  23. Рекомендуемые статьи

Пошаговое руководство. Переименование листа Excel с содержимым ячейки с помощью макроса

Эту статью написал Реддини Рахайо (Raddini Rahava), microsoft MVP.

Ниже приведены еженедельные отчеты о продажах. Например, в этом случае имеется 15 человек. Юлии, администратору, назначается сводка данных о продажах в один файл, где все продажи разделены на каждом листе. Для простого упорядочения данных на каждом листе Юлия присвоила имя, соответствующее имени продаж на этом листе. Сначала Юлия понимает это, но так как все больше данных и требует быстрой обработки, Юлия была настолько перегружена. Чтобы обойти эту проблему, Юлия хочет, чтобы листы имен автоматически менялись в соответствии с именем продаж на каждом листе, не переименовываясь вручную.

Решения

Лучшим решением для решения проблемы Юлии является использование макроса. Этот макрос предназначен для каждого листа в этом файле независимо от количества листов. Имя каждого листа будет изменяться в соответствии с именем продаж, которое было определено в одном расположении на каждом листе.

Выполнение

Первый шаг

Разработка форматов отчетов и указание расположения ячейки, в которой будет размещаться имя продажи. В этом случае расположение находится в ячейке J2. Этот формат отчета должен быть одинаковым на каждом листе.

Оставьте имена листов по умолчанию (Sheet1, Sheet2, Sheet3 и т. д.).

Последний шаг

Шаг кодирования макросов

После того как мы определим расположение ячейки, в которую будет помещено имя продажи, теперь можно продолжить следующий шаг— написание кода макросов.

На вкладке « Разработчик» выберите Visual Basic в категории «Код» или нажмите сочетание клавиш ALT+F11 на клавиатуре, чтобы отобразить окно Visual Basic.

В области задач проекта щелкните «Имя книги», а затем в меню « Вставка» выберите « Модуль» и напишите следующий сценарий:

Нажмите клавишу F5 на клавиатуре, если отладка отсутствует, закройте окно Visual Basic и вернитесь в Excel. Если отладка выполняется, проверьте скрипт.

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

Вот и все. Надеемся, что это полезно.

Заявление об отказе от ответственности за сведения о продуктах сторонних производителей

В этой статье упомянуты программные продукты независимых производителей. Корпорация Майкрософт не дает никаких гарантий, подразумеваемых и прочих, относительно производительности и надежности этих продуктов.

Источник

Макрос для копирования и переименования листов Excel

В этом примере детально описана и разобрана автоматизация копирования и переименования листов Excel с исходными кодами макросов.

Как копировать и переименовать лист Excel макросом

Представьте ситуацию: Вы готовите планы работ для сотрудников определенного отдела фирмы. Пример таблицы плана выглядит так:

Руководитель этого отдела пожелал, чтобы названия листов планов работ для каждого сотрудника содержали их имена и фамилии.

Многократное копирование листов шаблона для составления и заполнения планов работ сотрудников с переименованием, потребует много времени и сил если делать все это вручную. Поэтому напишем свой макрос, который упростит данную задачу.

Техническое Задание (ТЗ) для макроса заключается в следующем. После выделения ячеек, которые содержат названия для листов нужно скопировать лист с шаблоном для планов работ ровно столько сколько будет выделенных ячеек и ввести соответствующие названия в ярлычки.

Примечание. В программировании, как и в многих других технических сферах деятельности (например, в бизнес-планировании) – без ТЗ результат ХЗ! Автор цитаты известный бизнесмен и предприниматель Дмитрий Потапенко.

Для этого сначала откройте редактор кода макроса: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» (ALT+F11):

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него следующий код макроса:

Sub PlanRabot()
Dim diapaz As Range
Dim i As Long
Dim list As Worksheet
On Error Resume Next
Set diapaz = Application.InputBox( «Пожалуйста, выделите диапазон ячеек, который содержит названия для новых листов!» , Type:=8)
On Error GoTo 0
If diapaz Is Nothing Then Exit Sub
Set list = ActiveSheet
For i = 1 To diapaz.Count
list.Copy after:=ActiveSheet
ActiveSheet.Name = Left(diapaz(i), 31)
Next
End Sub

Теперь если вы хотите скопировать лист шаблона для заполнения плана работ и создать копии плана для каждого сотрудника имена с фамилиями которых будут присвоены названиям листа, то перейдите на исходный лист с шаблоном плана работ и выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«PlanRabot»-«Выполнить». Сразу же после запуска макроса появиться диалоговое окно:

Теперь перейдите на лист «Имена и Фамилии» и выделите в нем диапазон ячеек, которые содержат имена и фамилии сотрудников. И нажмите на кнопку ОК.

В результате чего макрос сам автоматически скопирует планы работ для каждого сотрудника и присвоит новым листам соответственные имена и фамилии.

Описание исходного кода макроса для копирования и переименования листов

В начале кода макроса вызываем диалоговое окно для выделения диапазона ячеек на рабочем листе Excel и присвоения адреса диапазона в качестве значения для поля ввода данного диалогового окна.

Перед вызовом инструкции открытия диалогового окна отключается контроль ошибок. А после создания экземпляра объекта Range в переменной diapaz, снова включается контроль ошибок. Сделано так потому, что нажатие на кнопку «Отмена» в диалоговом окне вызовет ошибку выполнения макроса. Если же отключить обработку ошибок то, когда пользователь нажмет на кнопку «Отмена», тогда просто не будут выполняться никакие инструкции макроса.

В случаи если пользователь заполнил поле ввода и нажал на кнопку «ОК», тогда в переменную list присваиваться текущий рабочий лист. После чего внутри цикла он копируется ровно столько раз, сколько было выделено ячеек.

В процессе копирования каждому новому листу присваивается имя, которое берется из значения текущей ячейки из предварительно выделенного диапазона. Текст в ячейках обрезается до 31 символов, так как максимальная длинна наименования листа не может содержать более чем 31 символ.

Если необходимо сделать так чтобы соответственные имена и фамилии сотрудников были не только на ярлычках листов, а и в значении ячейки B1 в каждом листе, тогда перед строкой конца цикла Next добавьте следующую строку кода:

Подобным способом можно вводить имена и названия для других ячеек листа. Достаточно указать желаемый адрес ячейки в кавычках.

Версия кода макроса с дополнительной строкой кода выглядит так:

Sub PlanRabot()
Dim diapaz As Range
Dim i As Long
Dim list As Worksheet
On Error Resume Next
Set diapaz = Application.InputBox( «Пожалуйста, выделите диапазон ячеек, который содержит названия для новых листов!» , Type:=8)
On Error GoTo 0
If diapaz Is Nothing Then Exit Sub
Set list = ActiveSheet
For i = 1 To diapaz.Count
list.Copy after:=ActiveSheet
ActiveSheet.Name = Left(diapaz(i), 31)
ActiveSheet.Range( «B1» ) = diapaz(i)
Next
End Sub

Пример вставки имен и фамилий не только в ярлычки листов, а и в их определенные пользователем ячейки:

Таким образом, благодаря макросу в пару кликов мышкой можно выполнить большой объем работы. В данном примере скопировано копий только для 8-ми сотрудников. Особенно ощутимую пользу приносит данный макрос при необходимости копировать большое количество листов. Ведь в некоторых фирмах количество сотрудников, заполняющих планы работы, может превышать 100 человек и более.

Источник

VBA Excel. Рабочий лист (обращение, переименование, скрытие)

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

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

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

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

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

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

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

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

В 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 — МойЛист, которое необходимо заменить на имя — Реестр.

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

Для скрытия и отображения рабочих листов в 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 вызывает ошибку)

Источник

VBA Rename Sheet — Как переименовать лист в 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 или на любое другое имя.

Код:

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

Код:

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

Код:

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

Код:

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

Код:

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

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

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

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

Код:

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

Код:

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

Код:

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

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

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

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

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

Код:

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

Код:

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

Код:

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

Код:

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

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

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

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

Код:

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

Код:

Шаг 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?

Источник

 

marker_mc

Пользователь

Сообщений: 228
Регистрация: 24.12.2012

#1

01.02.2013 11:52:37

Всем добрый день.
Ребята, помогите доделать макрос, не могу понять как.
Есть Док с листом шаблон, я его макросом копирую, и мне нужно его переименовать порядковым номером 1, 2, 3, 4 и т.д., после этого я вставляю в нужную ячейку дату и в нужную ячейку имя этого уже переименованного листа. У меня сложность именно с переименованием листов на 1, 2, 3… также хотелось бы чтоб если к примеру создали лист 4 и удалили его, то при создании нового он стал опять таки 4, тоесть отслеживать имя последнего листа в книге и делать +1

Код
Sub SheetAddRename()
ActiveSheet.Copy After:=ActiveSheet
Range("D16") = DateValue(Now)
Range("G15") = ActiveSheet.name
End Sub

Прикрепленные файлы

  • Накладная.xls (34.5 КБ)

Изменено: marker_mc01.02.2013 11:56:53

 

SkyShark

Пользователь

Сообщений: 71
Регистрация: 18.01.2013

#2

01.02.2013 11:59:28

Можно заменить

Код
ActiveSheet.name = ActiveSheet.Range("A1")

на

Код
ActiveSheet.name = ThisWorkbook.Sheets.Count

Это код согласно прописанному в файле.

Изменено: SkyShark01.02.2013 12:01:29

 

marker_mc

Пользователь

Сообщений: 228
Регистрация: 24.12.2012

О!!! Класс)) спасибо Вам, только я в конце добавил еще минус 1, чтоб нумерация начиналась с первого. Большое спасибо за оперативность

 

marker_mc

Пользователь

Сообщений: 228
Регистрация: 24.12.2012

#4

01.02.2013 12:23:01

конечный итог приобрёл такой вид:

Код
Sub SheetAddRename()
    Sheets("шаблон").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    'ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.name = ThisWorkbook.Sheets.Count - 1
    Range("D16") = DateValue(Now)
    Range("G15") = ActiveSheet.name
End Sub
 

каник

Пользователь

Сообщений: 1
Регистрация: 23.05.2015

Нужна помощь срочно, буду крайне признателен.

Нужен макрос для массовой переименовки названия листов.
У меня в книге начиная с 4 листа(название лист14) листы называются по разному ( лист14, следующий лист98 и т.д. ) необходимо с листа4(он же лист14) изменить все названия листов на Лист1 …. Лист2000 по порядку

 

Казанский

Пользователь

Сообщений: 8839
Регистрация: 11.01.2013

#6

24.05.2015 09:06:14

Код
Sub bb()
Dim i&
For i = 4 To Sheets.Count
  Sheets(i).Name = "Лист" & i - 3
Next
End Sub

How do I make it so my macro will work on a spreadsheet even if someone changes the name of the tab for Sheet1, Sheet2, etc.

For example this snippet from my code:

Set MyWorkbook = Workbooks.Open(DataDialog.SelectedItems(Counter))
Set MySheet = MyWorkbook.Worksheets("Sheet1")

Gets the Run-time error ‘9’:

Subscript out of range

The issue is I need this macro to able to be used on multiple different workbooks with different named tabs and in a lot of cases tabs will be hidden and what appears to be Sheet1 is really Sheet3.
Is there a way to have a macro work on the active sheet alone?

Community's user avatar

asked Oct 23, 2014 at 14:28

excelSU's user avatar

2

Yes, You dont have to hardcode «Sheet1». Instead you can do like following:

Method 1:
Declare variable

Dim sName as string
sName = Activesheet.Name

And then you can use name in the variable sName instead of hardcoding it.

Method 2:
You can use index of sheets

sName = Sheets(1).Name

Where 1 indicates index number of sheets in workbook.

So, You can use any of the above two methods to get name of sheet when sheet name changes.

answered Oct 23, 2014 at 14:51

Paresh J's user avatar

Paresh JParesh J

2,3933 gold badges24 silver badges31 bronze badges

2

Обращение к рабочим листам 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, смотрите в этой статье.

В этом примере детально описана и разобрана автоматизация копирования и переименования листов Excel с исходными кодами макросов.

Как копировать и переименовать лист Excel макросом

Представьте ситуацию: Вы готовите планы работ для сотрудников определенного отдела фирмы. Пример таблицы плана выглядит так:

Шаблон плана.

Руководитель этого отдела пожелал, чтобы названия листов планов работ для каждого сотрудника содержали их имена и фамилии.

Многократное копирование листов шаблона для составления и заполнения планов работ сотрудников с переименованием, потребует много времени и сил если делать все это вручную. Поэтому напишем свой макрос, который упростит данную задачу.

Техническое Задание (ТЗ) для макроса заключается в следующем. После выделения ячеек, которые содержат названия для листов нужно скопировать лист с шаблоном для планов работ ровно столько сколько будет выделенных ячеек и ввести соответствующие названия в ярлычки.

Примечание. В программировании, как и в многих других технических сферах деятельности (например, в бизнес-планировании) – без ТЗ результат ХЗ! Автор цитаты известный бизнесмен и предприниматель Дмитрий Потапенко.

Для этого сначала откройте редактор кода макроса: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» (ALT+F11):

РАЗРАБОТЧИК.

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него следующий код макроса:

Sub PlanRabot()
  Dim diapaz As Range
  Dim i As Long
  Dim list As Worksheet
On Error Resume Next
Set diapaz = Application.InputBox("Пожалуйста, выделите диапазон ячеек, который содержит названия для новых листов!", Type:=8)
On Error GoTo 0
If diapaz Is Nothing Then Exit Sub
Set list = ActiveSheet
For i = 1 To diapaz.Count
list.Copy after:=ActiveSheet
ActiveSheet.Name = Left(diapaz(i), 31)
Next
End Sub

Модуль с кодом.

Теперь если вы хотите скопировать лист шаблона для заполнения плана работ и создать копии плана для каждого сотрудника имена с фамилиями которых будут присвоены названиям листа, то перейдите на исходный лист с шаблоном плана работ и выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«PlanRabot»-«Выполнить». Сразу же после запуска макроса появиться диалоговое окно:

Окно с полем ввода.

Теперь перейдите на лист «Имена и Фамилии» и выделите в нем диапазон ячеек, которые содержат имена и фамилии сотрудников. И нажмите на кнопку ОК.

Лист Имена и Фамилии.

В результате чего макрос сам автоматически скопирует планы работ для каждого сотрудника и присвоит новым листам соответственные имена и фамилии.



Описание исходного кода макроса для копирования и переименования листов

В начале кода макроса вызываем диалоговое окно для выделения диапазона ячеек на рабочем листе Excel и присвоения адреса диапазона в качестве значения для поля ввода данного диалогового окна.

Перед вызовом инструкции открытия диалогового окна отключается контроль ошибок. А после создания экземпляра объекта Range в переменной diapaz, снова включается контроль ошибок. Сделано так потому, что нажатие на кнопку «Отмена» в диалоговом окне вызовет ошибку выполнения макроса. Если же отключить обработку ошибок то, когда пользователь нажмет на кнопку «Отмена», тогда просто не будут выполняться никакие инструкции макроса.

В случаи если пользователь заполнил поле ввода и нажал на кнопку «ОК», тогда в переменную list присваиваться текущий рабочий лист. После чего внутри цикла он копируется ровно столько раз, сколько было выделено ячеек.

В процессе копирования каждому новому листу присваивается имя, которое берется из значения текущей ячейки из предварительно выделенного диапазона. Текст в ячейках обрезается до 31 символов, так как максимальная длинна наименования листа не может содержать более чем 31 символ.

Если необходимо сделать так чтобы соответственные имена и фамилии сотрудников были не только на ярлычках листов, а и в значении ячейки B1 в каждом листе, тогда перед строкой конца цикла Next добавьте следующую строку кода:

ActiveSheet.Range(«B1») = diapaz(i)

Подобным способом можно вводить имена и названия для других ячеек листа. Достаточно указать желаемый адрес ячейки в кавычках.

Версия кода макроса с дополнительной строкой кода выглядит так:

Sub PlanRabot()
  Dim diapaz As Range
  Dim i As Long
  Dim list As Worksheet
On Error Resume Next
Set diapaz = Application.InputBox("Пожалуйста, выделите диапазон ячеек, который содержит названия для новых листов!", Type:=8)
On Error GoTo 0
If diapaz Is Nothing Then Exit Sub
Set list = ActiveSheet
For i = 1 To diapaz.Count
list.Copy after:=ActiveSheet
ActiveSheet.Name = Left(diapaz(i), 31)
ActiveSheet.Range("B1") = diapaz(i)
Next
End Sub

Пример вставки имен и фамилий не только в ярлычки листов, а и в их определенные пользователем ячейки:

Пример вставки имен.

Читайте также: Макрос для копирования листов Excel с заданным количеством копий.

Таким образом, благодаря макросу в пару кликов мышкой можно выполнить большой объем работы. В данном примере скопировано копий только для 8-ми сотрудников. Особенно ощутимую пользу приносит данный макрос при необходимости копировать большое количество листов. Ведь в некоторых фирмах количество сотрудников, заполняющих планы работы, может превышать 100 человек и более.

Содержание

  1. Требования к именам листов
  2. Процесс переименования
  3. контекстное меню ярлыка
  4. двойной щелчок по ярлыку
  5. Как переименовать лист рабочей книги при помощи мыши?
  6. Вставка нового листа в Excel
  7. Обращение к рабочим листам
  8. Скрытие и отображение листов
  9. Описание задачи
  10. Как копировать и переименовать лист Excel макросом
  11. Перемещение/копирование листов в Excel
  12. Как сменить название листа
  13. Как изменить имя листа при помощи контекстного меню?
  14. Удаление листа в Excel

Требования к именам листов

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

1) длина введенного имени не должна превышать 31-го знака;

2) имя листа не должно содержать ни одного из следующих знаков: двоеточи” ( : ), косая черта ( / ), вопросительный знак ( ? ), звездочка ( * ) и квадратные скобки ( [ ] );

3) имя не должно быть пустым.

Процесс переименования

Процедура переименования листов в Экселе в целом интуитивно понятна. Тем не менее, у некоторых пользователей, которые только начинают освоение программы, возникают определенные трудности.

Прежде, чем перейти непосредственно к описанию способов переименования, выясним, какие названия давать можно, а присвоение каких будет некорректным. Имя может быть присвоено на любом языке. При его написании можно использовать пробелы. Что же касается основных ограничений, то следует выделить следующие:

  • В наименовании не должны присутствовать такие символы: «?», «/», «», «:», «*», «[]»;
  • Название не может быть пустым;
  • Общая длина наименования не должна превышать 31 знак.

При составлении имени листа нужно учитывать вышеуказанные правила. В обратном случае программа не даст завершить данную процедуру.

контекстное меню ярлыка

Наиболее интуитивно понятный способ переименования – это воспользоваться возможностями, которые предоставляет контекстное меню ярлыков листов, расположенных в левой нижней части окна приложения сразу над строкой состояния.

  1. Кликаем правой кнопкой по ярлыку, над которым хотим произвести манипуляцию. В контекстном меню выбираем пункт «Переименовать».
  2. Как видим, после этого действия поле с названием ярлыка стало активным. Просто набираем туда с клавиатуры любое подходящее по контексту наименование.
  3. Жмем на клавишу Enter. После этого листу будет присвоено новое имя.

двойной щелчок по ярлыку

Существует и более простой способ переименования. Нужно просто кликнуть двойным щелчком по нужному ярлыку, правда, в отличие от предыдущего варианта, не правой кнопкой мыши, а левой. При использовании данного способа никакого меню вызывать не нужно. Наименование ярлыка станет активным и готовым к переименованию. Вам останется только набрать нужное название с клавиатуры.

Как переименовать лист рабочей книги при помощи мыши?

Для переименования листа необходимо:

1) в окне открытой книги дважды щелкнуть левой кнопкой мыши на ярлычке нужного листа;

2) набрать нужное имя листа, соблюдая требования к листам, изложенные выше;

3) нажать клавишу Enter на клавиатуре для закрепления введенного имени.

  1. Чтобы вставить новый рабочий лист, найдите и нажмите кнопку Новый лист.
  2. Откроется новый пустой лист.

Для того чтобы изменить количество листов, открываемых по умолчанию в новой книге Excel, перейдите к представлению Backstage, нажмите Параметры, затем выберите количество листов, которые необходимо включать в каждую новую книгу.

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

Рабочий лист (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 используется свойство 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, смотрите в этой статье.

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

Описание задачи

Как правило, когда мы долго работаем с большим количеством листов, возникает потребность в их переименовании. Переименовать листы поштучно достаточно просто дважды кликнув по вкладке и введя новое название. Однако, если листов десятки, то это утомительно и отнимает время. Гораздо удобнее использовать надстройку VBA-Excel.

C помощью нее переименовать все листы в книге можно следующим образом:

  1. Нужно подготовить два списка. Первый с перечнем наименований текущих листов. Второй – с новыми наименованиями листов. Проще всего сделать два столбца в первом старые наименования и рядом список, как нужно переименовать.
  2. Перейдите на вкладку VBA-Excel (она будет доступна после установки программы).
  3. В меню Диспетчеры найдите пункт Диспетчер листов.
  4. В диспетчере выберите команду Переименовать
  5. В диалоговом окне Переименовать листы из выделенного списка укажите диапазон со старыми наименованиями листов и аналогичный диапазон, содержащий новые названия, которые должны получиться в процессе переименования.

    При необходимости можно заполнить диапазон текущими названиями листов нажав кнопку Заполнить.
  6. Нажмите кнопку Переименовать.

Как копировать и переименовать лист Excel макросом

Представьте ситуацию: Вы готовите планы работ для сотрудников определенного отдела фирмы. Пример таблицы плана выглядит так:

Руководитель этого отдела пожелал, чтобы названия листов планов работ для каждого сотрудника содержали их имена и фамилии.

Многократное копирование листов шаблона для составления и заполнения планов работ сотрудников с переименованием, потребует много времени и сил если делать все это вручную. Поэтому напишем свой макрос, который упростит данную задачу.

Техническое Задание (ТЗ) для макроса заключается в следующем. После выделения ячеек, которые содержат названия для листов нужно скопировать лист с шаблоном для планов работ ровно столько сколько будет выделенных ячеек и ввести соответствующие названия в ярлычки.

Для этого сначала откройте редактор кода макроса: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» (ALT+F11):

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него следующий код макроса:

SubPlanRabot()
DimdiapazAsRange
DimiAs Long
DimlistAsWorksheet
On Error Resume Next
Setdiapaz = Application.InputBox("Пожалуйста, выделите диапазон ячеек, который содержит названия для новых листов!", Type:=8)
On Error GoTo0
IfdiapazIs Nothing Then Exit Sub
Setlist = ActiveSheet
Fori = 1Todiapaz.Count
list.Copy after:=ActiveSheet
ActiveSheet.Name = Left(diapaz(i), 31)
Next
End Sub

Теперь если вы хотите скопировать лист шаблона для заполнения плана работ и создать копии плана для каждого сотрудника имена с фамилиями которых будут присвоены названиям листа, то перейдите на исходный лист с шаблоном плана работ и выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«PlanRabot»-«Выполнить». Сразу же после запуска макроса появиться диалоговое окно:

Теперь перейдите на лист «Имена и Фамилии» и выделите в нем диапазон ячеек, которые содержат имена и фамилии сотрудников. И нажмите на кнопку ОК.

В результате чего макрос сам автоматически скопирует планы работ для каждого сотрудника и присвоит новым листам соответственные имена и фамилии.

Перемещение/копирование листов в Excel

Перемещать листы в Excel с помощью мышки очень просто: возьмите ярлычок листа и, двигаясь по горизонтали, перетащите его на новое место.

Если во время этой операции вы нажмете и будете удерживать клавишу [Ctrl], то лист… правильно, скопируется! (Вспомните, как мы копировали файлы в WINDOWS ). То же самое можно делать с группой листов.

Эту же операцию можно выполнить в Excel с помощью команды контекстного меню листа Переместить/скопировать или команды Правка/Переместить/скопировать лист . Ими особенно удобно пользоваться, если вы хотите скопировать или переместить лист в другую книгу.

Перед копированием или перемещением листа в другую книгу необходимо открыть книгу-получатель. Кроме того, в случае копирования не забудьте установить флажок в поле Создать копию . В противном случае лист просто переместится в указанное вами место.

Задание для самостоятельной работы:

В книге Мои таблицы. xls переместите лист Население Земли в конец книги, верните его на прежнее место, сделайте копию листа в этой же книге, скопируйте его в новую книгу.

Создайте пустой файл Мои таблицы-копии.xls ( для этого новую рабочую книгу сохраните под этим названием в каталоге C:ST). Скопируйте в него лист Население Земли.

Как сменить название листа

При создании новой книги Excel рабочие листы по умолчанию носят имя Лист1, Лист2 и т.д.

Как правило, листы переименовывают в более подходящие имена, в зависимости от его содержания. Это может быть и «Отчет» и «График» и т.д. Чтобы переименовать название листа, дважды кликните на ярлыке данного листа.

Программа выделит этот ярлык и включит название в режим редактирования, так что вы сможете прописать любое название какое захотите.

НО!

1. Название листа может содержать максимум до 31 символа, причем пробелы допускаются.

2. В названии листа нельзя прописывать следующие символы:

* (звездочка).

: (двоеточие);

/ (косая черта);

[ ] (квадратные скобки);

(кавычка);

< > угловые скобки);

? (знак вопроса);

(обратная косая черта);

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

Как изменить имя листа при помощи контекстного меню?

Чтобы переименовать лист при помощи контекстного меню, нужно:

1) в окне открытой книги один раз кликнуть правой кнопкой мыши на ярлыке нужного листа;

2) в контекстном меню выбрать пункт “Переименовать”;

3) набрать новое имя листа в соответствии с требованиями к именам листов;

4) нажать клавишу Enter на клавиатуре, чтобы закрепить новое имя.

Удаление листа в Excel

  1. Щелкните правой кнопкой мыши по ярлычку листа, который необходимо удалить, и из контекстного меню выберите пункт Удалить.
  2. Лист будет удален.

Удаление листа из рабочей книги нельзя отменить. Это одно из немногих необратимых действий в Excel. Хорошенько подумайте, прежде чем удалять их.

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

Источники

  • http://macros-vba.ru/nadstrojki/excel/246-kak-pereimenovat-list-v-rabochej-knige-excel-pereimenovanie-listov
  • https://lumpics.ru/how-to-rename-worksheet-in-excel/
  • https://office-guru.ru/excel/pereimenovanie-vstavka-i-udalenie-lista-v-excel-24.html
  • https://vremya-ne-zhdet.ru/vba-excel/rabochiy-list-obrashcheniye-pereimenovaniye-skrytiye/
  • https://micro-solution.ru/projects/addin_vba-excel/sheets-rename
  • https://exceltable.com/vba-macros/makros-pereimenovat-listy
  • https://best-exam.ru/pereimenovanie-listov-v-excel/
  • https://zen.yandex.ru/media/topnews/urok-excel–32-kak-izmenit-nazvanie-i-cvet-iarlyka-rabochego-lista-5b2b7d5bcb0ffb00a9d43087

Здравствуйте! Мне нужно чтобы лист сам автоматически переименовывался в название из ячейки. Например на листе1 есть ячейка A1. Там, в ячейке забито слово Колобок. Нужно чтобы лист1 сам переименовывался в название Колобок.


Через кнопку наверное так:
Sub Кнопка1_Щелкнуть()
    NewIm = Range(«A1»)
    Sheets(«Лист1»).Name = NewIm
End Sub

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Wasilic спасибо, но как же автоматом сделать? ???


Цитата: ActionFace от 05.01.2010, 17:32
Wasilic спасибо, но как же автоматом сделать? ???

Что значит «АВТОМАТОМ»? Если не по нажатию кнопки, то при каких условиях? При включении комьютера или открытия книги? Или ….???
Может я и не смогу ответить.

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Wasilic , впринципе и так хорошо! Спасибо! Но можно еще вопрос? У меня есть и второй лист который должен переименовываться :) Можно написать код для двух листов в пределах одного макроса? У листа2 есть свой A1 и там название предположим пчелка.


Sub Кнопка1_Щелкнуть()
    NewIm = Range(«A1»)
    Sheets(«Лист1»).Name = NewIm
    NewIm = Sheets(«Лист2»).Range(«A1»)
    Sheets(«Лист2»).Name = NewIm
End Sub

Не  понимаю смысла этой автоматизации. 
Если это одноразовая процедура, то почему не ручками — нажав правую кнопку на имени листа.
Но, если и новое имя листа будет переименовываться, то этот макрос не подойдет.

В общем то, это в тему о макросах VBA.
Внизу под сообщением есть выбор тем:
Выбери «Проекты VBA»
А много  разных ответов поищи здесь.
http://msoffice.nm.ru/faq/macros.htm

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Если автоматически, то может быть так?
Меняйте ячейки А1 в разных  листах

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995


_Boroda_ Круто! :D Спасибо! Но как вы это сделали? Я не вижу ни формулы, ни макроса в присланном файле. Можете написать пошаговую инструкцию? :'(


Нужно два раза кликнуть мышой по «Эта книга» в VBA. Там макрос и сидит.

Сам макрос:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Sh.Range("a1")
If Not Err.Number = 0 Then MsgBox "Лист " & Sh.Name & " нельзя переименовать в " _
& Sh.Range("a1") & "," & Chr(10) & "лист " & Sh.Range("a1") & " уже есть в этой книге."
On Error GoTo 0
End If
End Sub

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995


_Boroda_ Спасибо Большое все заработало! Не сочтите за наглость, а можно вас еще кое о чем спросить? Проблема такая. Мне нужно с экспортить с листа1 данные в текстовом файле с разделителем табуляции(.txt) Но вот незадача. В моих данных имеются точка с запятой ; . И при создании txt в экспортируемом тексте у меня появляются кавычки » ! Кавычки мне не нужны! Как можно от них избавиться? Я конечно могу не экспортировать, а просто скопировать и вставить, но проблема в том что у меня данные в разных ячейках и при копировании txt понимает что это разные ячейки и ставит между ними невидимую палку |. Как от нее можно избавиться?


Мне это нужно для одной управляющей програмки, которая кушает только txt.
1.Вообщем я на листе1 в ячейке A1 пишу допустим Kolobok.
2.Потом там же в A1 дописываю точку с запятой(;). 
3.Далее в ячейке B1 пишу цифру 1.
4.Затем в ячейке C1 пишу точку с запятой(;). 
5.Потом делаю экспорт в формате txt с раздел табуляции.
6.В файле txt должно получиться: Kolobok;1;
Но этот Excel делает между словом Kolobok и знаком ; невидимый промежуток в виде знака | и самое страшное, между знаком ; excel пишет кавычки!
То есть TXT файл получается: «Kolobok;»   1   «;»
Приложил пример.


Если я правильно понял, необходимо сохранить значения из ячеек разделив их знаком точка с запятой «;». Попробуйте сохранить в формате *.csv. У меня на 2003 как раз такой результат получается. Формат .csv можно просто переименовать в .txt или же напрямую открыть текстовым редактором.


Еще один вариант автонаименования листа по ячейке. Используются свойства листа:

1. В случае изменения ячейки вручную на активном листе
Private Sub Worksheet_Change(ByVal Target As Range)
    Me.Name = Me.Cells(1, 1)
End Sub

2. В случае измениния ячейки в неактивном листе посредством формулы-ссылки (в приложении третий лист)
Private Sub Worksheet_Calculate()
    Me.Name = Me.Cells(1, 1)
End Sub


Цитата: ActionFace от 13.01.2010, 23:46
Мне это нужно для одной управляющей програмки, которая кушает только txt.
1.Вообщем я на листе1 в ячейке A1 пишу допустим Kolobok.
2.Потом там же в A1 дописываю точку с запятой(;).  
3.Далее в ячейке B1 пишу цифру 1.
4.Затем в ячейке C1 пишу точку с запятой(;).  
5.Потом делаю экспорт в формате txt с раздел табуляции.

Извратиться, как написал boroda, наверное можно через дополнительный лист  формулой  «=Лист1!A1 & Лист1!B1 & Лист1!C1»  

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Цитата: ActionFace от 13.01.2010, 23:46
Мне это нужно для одной управляющей програмки, которая кушает только txt.
1.Вообщем я на листе1 в ячейке A1 пишу допустим Kolobok.
2.Потом там же в A1 дописываю точку с запятой(;). 
3.Далее в ячейке B1 пишу цифру 1.
4.Затем в ячейке C1 пишу точку с запятой(;). 
5.Потом делаю экспорт в формате txt с раздел табуляции.
6.В файле txt должно получиться: Kolobok;1;

Посмотри файлик. Выкрутишся наверняка.

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Отловить переименование листа

Alex

Дата: Пятница, 17.01.2014, 16:30 |
Сообщение № 1

Как в экселе отловить переименование листа?
Есть комбобокс на форме в нем список листов книги.
При добавлении листа событие NewSheet
При удалении листа событие SgeetBeforeDelete

А как синхронизировать список в комбике, если лист переименовали?

 

Ответить

Alex

Дата: Пятница, 17.01.2014, 17:35 |
Сообщение № 2

При удалении листа в событии SHeetBeforeDelete выставляю флаг, а на событии SheetActivate вызываю процедуру обновления комбика
так же флаг выставляю в NewSheet
а в процедуре после обновления комбика сбрасываю флаг.
Это все работает, но как отследить смену имени листа???

 

Ответить

SkyPro

Дата: Пятница, 17.01.2014, 17:40 |
Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1206


Репутация:

255

±

Замечаний:
0% ±


2010

Обращайтесь к листу по CodeName
[vba]

Код

sheets(1).codename
Лист1.[A1].address(1,1,1,1)

[/vba]
Тогда переименование листов не «испортит» вам макросы.


skypro1111@gmail.com

Сообщение отредактировал SkyProПятница, 17.01.2014, 17:40

 

Ответить

Alex_ST

Дата: Пятница, 17.01.2014, 22:17 |
Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

Обращайтесь к листу по CodeName

Это точно!
Я тоже это часто использую для защиты от шаловливых ручонок шибко дюже грамотных пользователей.
По умолчанию листы в книге создаются с кодовым именем = имени листа. А после переименования листа кодовое имя остаётся прежним. Это хорошо видно в Object Browser’e VBA-проекта. Там сначала написано кодовое имя листа, а потом в скобочках — имя листа.
Этим удобно управлять в Properties Window (F4): кодовое имя отображается в самой верхней строчке свойств листа в строке (Name), а имя листа — ближе к концу списка свойств в строке Name
Я в некоторых случаях чтобы не путаться у важных листов даже намеренно изменяю кодовое имя на такое, чтобы его ни с чем не спутать.



С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_STПятница, 17.01.2014, 22:18

 

Ответить

Alex

Дата: Воскресенье, 19.01.2014, 12:16 |
Сообщение № 5

Нет,Про CodeName я в курсе и тут это немного не в тему)
Мне необходимо отловить именно смену имени(название на ярлычке)листа
Что бы в комбике были имена листов книги.
На данный момент все работает, но только при смене имени листа в комбике остается старое имя и как-то не много не суразно, хотя все работает даже при выборе «несуществующего листа» в комбо.

Вопрос — Можно ли вообще поймать событие переименование листа?

 

Ответить

Serge_007

Дата: Воскресенье, 19.01.2014, 12:18 |
Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 15888


Репутация:

2623

±

Замечаний:
±


Excel 2016

Такого события не существует в эксель


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

nilem

Дата: Воскресенье, 19.01.2014, 12:21 |
Сообщение № 7

Группа: Авторы

Ранг: Старожил

Сообщений: 1612


Репутация:

563

±

Замечаний:
0% ±


Excel 2013, 2016

Есть комбобокс на форме в нем список листов книги.

а комбобокс у вас как заполняется?


Яндекс.Деньги 4100159601573

 

Ответить

Alex

Дата: Воскресенье, 19.01.2014, 12:35 |
Сообщение № 8

Цитата nilem

а комбобокс у вас как заполняется?

Forma.Combo.AddItem

Цитата Serge_007

Такого события не существует в эксель

Жаль :(
Ясно, дело — труба

 

Ответить

Serge_007

Дата: Воскресенье, 19.01.2014, 12:45 |
Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 15888


Репутация:

2623

±

Замечаний:
±


Excel 2016

Не всё так печально :)

Можно пробегаться циклом по листам и брать новое название переименованного листа

Или вообще — брать список имен листов с листа, на котором этот список сделать формулами. Формулы-то пересчитываются сразу после переименования :)


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

Alex

Дата: Воскресенье, 19.01.2014, 12:46 |
Сообщение № 10

[vba]

Код

Sub UpdateList(Ind As Integer)
If Not NeededUpdateList Then GoTo Ind
FrmRep.cbRep.Clear
For N = 3 To ThisWorkbook.Sheets.Count
FrmRep.cbRep.AddItem pvargitem:=ThisWorkbook.Sheets(N).Name
Next N
NeededUpdateList = False
Ind:
If Ind < FrmRep.cbRep.ListCount Then FrmRep.cbRep.ListIndex = Ind
End Sub

[/vba]

При удалении листа в событии SHeetBeforeDelete выставляю флаг, а на событии SheetActivate вызываю процедуру обновления комбика
так же флаг выставляю в NewSheet
а в процедуре после обновления комбика сбрасываю флаг.

 

Ответить

Alex

Дата: Воскресенье, 19.01.2014, 12:52 |
Сообщение № 11

[quote=Serge_007]Можно при выполнении AddItem пробегаться циклом по листам и брать новое название переименованного листа[/quote]

Комбо вновь синхронизируется, после смены имени листа, если удалить или добавить новый лист.

Но хотелось бы еще и на момент переименования, ну т.е. сразу после переименования :)

 

Ответить

Alex

Дата: Воскресенье, 19.01.2014, 12:56 |
Сообщение № 12

[quote=Serge_007]Формулы-то пересчитываются сразу после переименования[/quote]

Т.е. Эксель как-то определяет переименование? А пользователю (VBA) не говорит. Засада)

Ладно, это обидно, но не критично.

А по поводу формул и списка листов на отдельном листе — подумаю, но врядли.

 

Ответить

Serge_007

Дата: Воскресенье, 19.01.2014, 13:05 |
Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 15888


Репутация:

2623

±

Замечаний:
±


Excel 2016

Эксель как-то определяет переименование? А пользователю (VBA) не говорит

Excel и VB — это два разных программных продукта, реализованные разными разработчиками и изначально не связанные друг с другом. С появлением VBA связь появилась, но не 100%-я. Естественно, что средства самого Excel намного более применимы при работе с Excel, чем средства стороннего (хоть и адаптированного) продукта :)

В перспективе видится VSTO — полностью адаптированный к офису (не только к Excel) язык программирования


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

RAN

Дата: Воскресенье, 19.01.2014, 13:23 |
Сообщение № 14

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Сколько ни читал, так и не понял смысла всего этого геморроя.
Чем не нравится
[vba]

Код

Private Sub UserForm_Activate()

[/vba] ?


Быть или не быть, вот в чем загвоздка!

 

Ответить

Serge_007

Дата: Воскресенье, 19.01.2014, 13:25 |
Сообщение № 15

Группа: Админы

Ранг: Местный житель

Сообщений: 15888


Репутация:

2623

±

Замечаний:
±


Excel 2016

Если переименование листа произошло ПОСЛЕ активации формы?


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

RAN

Дата: Воскресенье, 19.01.2014, 14:42 |
Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

.

К сообщению приложен файл:

6412516.xls
(54.5 Kb)


Быть или не быть, вот в чем загвоздка!

 

Ответить

Serge_007

Дата: Воскресенье, 19.01.2014, 14:54 |
Сообщение № 17

Группа: Админы

Ранг: Местный житель

Сообщений: 15888


Репутация:

2623

±

Замечаний:
±


Excel 2016

:)

Опять-таки, события переименования листа не существует :)
Только костыли :)


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

alex77755

Дата: Воскресенье, 19.01.2014, 19:13 |
Сообщение № 18

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362


Репутация:

64

±

Замечаний:
0% ±


[vba][/vba]
И никто не переименует лист пока форма открыта


Могу помочь в VB6, VBA
Alex77755@mail.ru

 

Ответить

Alex_ST

Дата: Воскресенье, 19.01.2014, 19:17 |
Сообщение № 19

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003


Но ведь форма-то и так по умолчанию в модальном режиме открывается и пока она открыта никто листы переименовать не может.
Значит топик-стартеру нужно либо не модальный режим, либо комбобокс не на форме, а прямо на листе…
Иначе чего тогда было бы мудрить?



С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_STВоскресенье, 19.01.2014, 19:19

 

Ответить

RAN

Дата: Воскресенье, 19.01.2014, 19:27 |
Сообщение № 20

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Дык я специально для Сержа не модальную сделал! Так сказать, по максимуму гемора. :D


Быть или не быть, вот в чем загвоздка!

 

Ответить

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