Задание имени листа формулой (макрос)

@Churchill · Регистрация: 20.08.2015

Author24 — интернет-сервис помощи студентам

Доьрый день!
Интересует следующее. Есть шаблон для расчета инвест. проектов, с листом "Содержание", на котором должны отображаться основные параметры всех созданных проектов, листом "Справочник" со всеми исходниками и листом "Шаблон" - собственно шаблоном расчета проекта.
Необходимо добиться того, чтобы при нажатии кнопки "Добавить проект" на листе "Содержание" лист "Шаблон" копировался и вставлялся в конец книги под названием "(условное обозначение предприятия)_1,2,3,4,5,n...", где (условное обозначение предприятия) - некая аббревиатура предприятия, меняющаяся в зависимости от заданного названия предприятия на листе "Содержание" и 1,2,3,4,5,n... - есть номер проекта, меняющийся в зависимости от количества уже созданных, то есть если, скажем, уже существуют листы (проекты) с названиями (условно) СНГ_1, СНГ_2, СНГ_3 и СНГ_4, макрос должен будет создать лист под именем СНГ_5.

Заранее благодарен за информацию.

Добавлено через 6 минут
Извиняюсь, возможно некорректно указал название вопроса.

@Казанский · 26.08.2015, 11:14

Churchill,

Visual Basic

Sub Churchill()
Dim sBaseName As String, n As Long, mx As Long, sh As Object, s As String
sBaseName = "СНГ_" 'заданное название предприятия
For Each sh In Sheets
  s = sh.Name
  If s Like sBaseName & "*" Then
    s = Mid$(s, Len(sBaseName) + 1)
    If IsNumeric(s) Then
      n = s
      If n > mx Then mx = n
    End If
  End If
Next
Sheets("Шаблон").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = sBaseName & mx + 1
End Sub

@Churchill · 26.08.2015, 12:12 **[ТС]**

В этом случае лист "Содержание" переименовывается в "СНГ_1" и создается куча копий листа "Шаблон".
Нужно, чтобы лист "Содержание" был статичен, не подвергался изменениям, а лист "Шаблон" копировался под новым именем исходя из выбора предприятия на листе "Содержание".

Например:
На листе "Содержание" выбрано предприятие "Саратовнефтегаз", аббревиатура к нему для именивновь создаваемого проекта "СНГ_". После нижнего подчеркивания должен стоять номер проекта. Список предприятий и аббревиатур к ним содержится на листе "Справочник".

@Казанский · 26.08.2015, 12:47

Сообщение от Churchill

В этом случае лист "Содержание" переименовывается в "СНГ_1"

Неправда, макрос не переименовывает существующие листы.

Сообщение от Churchill

... и создается куча копий листа "Шаблон"

Опять неправда, создается только один лист с очередным номером.

Сообщение от Churchill

Список предприятий и аббревиатур к ним содержится на листе "Справочник".

Если бы Вы сразу об этом написали, и приложили файл-пример, то можно было бы дописать пару строк для определения переменной sBaseName.
Мне эта тема более неинтересна. Bye.

@Churchill · 26.08.2015, 13:01 **[ТС]**

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

@Churchill 0 / 0 / 0 Регистрация: 20.08.2015 Сообщений: 4
		1
	Задание имени листа формулой (макрос) 26.08.2015, 09:24. Показов 4737. Ответов 4 Метки нет (Все метки) Доьрый день! Интересует следующее. Есть шаблон для расчета инвест. проектов, с листом "Содержание", на котором должны отображаться основные параметры всех созданных проектов, листом "Справочник" со всеми исходниками и листом "Шаблон" - собственно шаблоном расчета проекта. Необходимо добиться того, чтобы при нажатии кнопки "Добавить проект" на листе "Содержание" лист "Шаблон" копировался и вставлялся в конец книги под названием "(условное обозначение предприятия)_1,2,3,4,5,n...", где (условное обозначение предприятия) - некая аббревиатура предприятия, меняющаяся в зависимости от заданного названия предприятия на листе "Содержание" и 1,2,3,4,5,n... - есть номер проекта, меняющийся в зависимости от количества уже созданных, то есть если, скажем, уже существуют листы (проекты) с названиями (условно) СНГ_1, СНГ_2, СНГ_3 и СНГ_4, макрос должен будет создать лист под именем СНГ_5. Заранее благодарен за информацию. Добавлено через 6 минут Извиняюсь, возможно некорректно указал название вопроса. 0

@Churchill 0 / 0 / 0 Регистрация: 20.08.2015 Сообщений: 4
	26.08.2015, 12:12 [ТС]	3
	В этом случае лист "Содержание" переименовывается в "СНГ_1" и создается куча копий листа "Шаблон". Нужно, чтобы лист "Содержание" был статичен, не подвергался изменениям, а лист "Шаблон" копировался под новым именем исходя из выбора предприятия на листе "Содержание". Например: На листе "Содержание" выбрано предприятие "Саратовнефтегаз", аббревиатура к нему для именивновь создаваемого проекта "СНГ_". После нижнего подчеркивания должен стоять номер проекта. Список предприятий и аббревиатур к ним содержится на листе "Справочник". 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.08.2015, 12:47	4
	Сообщение от Churchill В этом случае лист "Содержание" переименовывается в "СНГ_1" Неправда, макрос не переименовывает существующие листы. Сообщение от Churchill ... и создается куча копий листа "Шаблон" Опять неправда, создается только один лист с очередным номером. Сообщение от Churchill Список предприятий и аббревиатур к ним содержится на листе "Справочник". Если бы Вы сразу об этом написали, и приложили файл-пример, то можно было бы дописать пару строк для определения переменной sBaseName. Мне эта тема более неинтересна. Bye. 0

@Churchill 0 / 0 / 0 Регистрация: 20.08.2015 Сообщений: 4
	26.08.2015, 13:01 [ТС]	5
	Пардон, не имею возможности отправить файл-пример сейчас, нахожусь не дома, а с телефона файл не прикрепить, смогу выложить только вечером. Да и опыта общения на форумах на подобные темы у меня совсем нет, столкнулся с необходимостью, - решил написать, спросить у знающих людей. 0