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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

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

Здравствуйте!
Возник вопрос. Как присвоить имя листу экселя значение с определенной ячейки, т.е. нужно чтоб при изменении значения в ячейки "В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

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

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

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