VBA - [решено] Excel. Присвоить имя листу с определенной ячейки.

Delirium · Отправлено: **14:25, 19-03-2013** | #2

Код:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWorkbook.ActiveSheet.Name <> ActiveWorkbook.ActiveSheet.Range("B2") Then
    ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.ActiveSheet.Range("B2")
    End If
End Sub

Вешаем событие на SheetChange для книги. Оно происходит при любом изменении в книге. В коде сверяется текущее имя книги и значение в ячейке. Если они не равно, происходит присваивание имени.
Можно и без проверки значения, но зачем эти лишние присваивания.
Вместо B2 ставим нужную ячейку и будет счастье

А вообще все это делается очень просто. Запускается запись макроса - изменяем имя книги, изменяем значение в ячейке - останавливаем макрос. Смотрим полученный код, там есть все, что нужно.

andre-tr · Отправлено: **15:14, 19-03-2013** | #3

Спасибо! Все получилось.
А можно сделать не для всей книги, а только для отдельного листа?

AlexVol · Отправлено: **09:36, 20-03-2013** | #4

Цитата andre-tr:

А можно сделать не для всей книги, а только для отдельного листа? »

А Вам что показали? Как раз меняется один текущий лист (что просили, то и дадено). Если надо изменить другой, то вместо ActiveSheet подставляем Worksheets(номер_листа).

andre-tr · Отправлено: **10:28, 20-03-2013** | #5

Спасибо за ответ, разобрался.