Как создать условие запуска макроса

[kuklp]

Вы писали:

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

Возникла необходимость запустить макрос при изменении названия текущего листа.

Вам показали как. То, что Вы ответили в посте от Сегодня 20:13, наверное требует криптологической экспертизы. Я ничего не понял. Либо объясните, чего хочется, на понятном языке и повторюсь, с Вашим примером - либо ждите экстрасенса. Я умываю руки.

[fx59]

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

Вам показали как. То, что Вы ответили в посте от Сегодня 20:13, наверное требует криптологической экспертизы. Я ничего не понял. Либо объясните, чего хочется, на понятном языке и повторюсь, с Вашим примером - либо ждите экстрасенса. Я умываю руки.

Прошу прощения я не хотел Вас запутать. Попробую еще раз на пальцах, ибо примера у меня нет.

Запустил я Excel открыл в нем файл xxx.xlsm. В нем есть некоторое количество листов, оно нам не важно. Важно то, что они будут добавляться методом копирования (хотя для решения задачи я думаю и это не важно). Скопировал я себе лист и сделал его активным. Задаю ему имя "yyy" (щелкая дважды по ярлычку с названием листа внизу). Было бы просто здорово если после нажатия ентер в ячейке A1 (к примеру) ДАННОГО ЛИСТА (ActiveSheet если хотите) возник текст: Лист - yyy, рабочая книга - xxx (без .xlsm)

Излагая ближе к коду: при переименовании листа (применении названия - нажатие ентер) хочу исполнить такой вот код:

ActiveSheet.Range("A1").FormulaR1C1 = Left("Лист - " & LCase(ActiveSheet.Name) & ", " & ThisWorkbook.Name, Len("Лист - " & ActiveSheet.Name & ", " & ThisWorkbook.Name) - 5)

Т. е. вписать в ячейку A1 ActiveSheet'а статичный текст с новым именем листа строчными буквами и отрезать 5 символов в конце - ".", "x", "l", "s" и "m"

[Hugo121]

=ЯЧЕЙКА("имяфайла")
C:\[Книга1.xls]Лист1
Вот и берите из этой строки что нужно. А что нужно, я так и не понял - как это у имени листа отрезать xlsm?

[RAN.]

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

[Казанский]

Ну недоступно это событие "переименование листа", как и многие другие.

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

Однако, если в книге есть хоть одна "летучая" формула (СЕГОДНЯ(), СЛЧИС()), то переименование листа вызывает событие пересчета.
Попробуйте приложенный файл.
Учтите, что обновление текста на активном листе будет происходить при каждом "чихе" - например, при редактировании ячейки на любом листе.

[fx59]

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

как это у имени листа отрезать xlsm?

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

ActiveSheet.Range("A1").FormulaR1C1 = Left("Лист - " & LCase(ActiveSheet.Name) & ", " & ThisWorkbook.Name, Len("Лист - " & ActiveSheet.Name & ", " & ThisWorkbook.Name) - 5)

ActiveSheet.Range("A1").FormulaR1C1 = ThisWorkbook.Name запишет в ячейку A1 активного листа название рабочей книги вместе с расширением файла .xlsm которое мне не нужно как раз.

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

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

Ну недоступно это событие "переименование листа", как и многие другие.

По меньшей мере ЭТОТ и ЭТОТ источники утверждают об обратном. Правда ТУТ я указывал что с ними не ладно. Может у меня что то с руками не ладно? Если бы более опытные взглянули на этот код может и поняли что не так...

Однако, если в книге есть хоть одна "летучая" формула...

Гениально! Сделаю текст выводимый этой функией белым и помещу в свободную ячейку.

Всем спасибо за помощь!

[Казанский]

По меньшей мере ЭТОТ и ЭТОТ источники утверждают об обратном

Там используются события активации/деактивации листа. То есть, например, чтобы метод сработал для листа, который активен сразу после открытия книги, надо сначала перейти на другой лист, потом снова на этот, переименовать, перейти на другой (и снова на этот, чтобы увидеть результат). Не очень удобно, правда?

[fx59]

Сообщение от Казанский

[I]Не очень удобно, правда?

Правда! Только без разъяснений я бы не догадался. Ну да бог с ним. Способ предложенный Вами подходит мне идеально. Спасибо. Тему можно закрывать.