Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

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

Автор namxela, 20.09.2011, 00:16

« назад - далее »

namxela

Здравствуйте.
Нужен макрос, который создаст лист с определенным названием (например "NewList").
Если есть возможность то создать лист с информацией в ячейке "A1" (Но это уже не столь важно)
Скажите пожалуйста возможные способы.

В инете нашел только такую информацию. Если можете, то напишите другие варианты, либо расшифруйте пжлст, то что есть с комментами. Как сделать готовый макрос который вставляет лист например с названием "NewList".




-------------
' Sub CreateSheet
' Вставляет активную рабочую книгу в рабочий лист с именем sSName.
' Note: Если параметр bVisible имеет значение False, этот лист становится  скрытым.

Рublic Sub CreateSheet(sSName As String, bVisible As Boolean)
Dim wsNewSheet As WorkSheet

On Error GoTo errНandle

  Set wsNewSheet = ActiveWorkBook.Worksheets.Add
  With wsNewSheet
   .Name = sSName
   .Visible = bVisible
  End With
Exit Sub
errНandle:
  MsgBox Err.Descriрtion, vbExclamation, "Error #" & Err.Number
End Sub
-------------

Спасибо :)

exceleved

Sub CreateSheet()
Dim nm
nm = [A1]
On Error Resume Next
Worksheets.Add.Name = nm
If Err Then Err.Clear: MsgBox "Не удалось переименовать лист", vbExclamation
End Sub

namxela