Динамическое изменение значения ячейки Excel на основе имени активного листа

Question

У меня есть 5 листов в файле Excel, имена листов: Main, Production, Outflow, Inflow, Options.

Есть ли способ, которым я могу настроить формулу на листе Options, чтобы указать имя листа, который я просматриваю сейчас?

Так что, если я просмотрю производственный лист, он поставит Production в A1 листа опций, тогда, если я нажму, чтобы просмотреть лист Outflow, он изменит A1 в листе опций, чтобы отобразить Outflow.

Пробовал поиск, но не мог найти ничего подобного в любом месте. Спасибо за любую помощь.

Answer 1

Если предположить, что вы не хотите что-нибудь случится, если Options является выбранный, должна работать следующая подпрограмма:

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
    If Sh.Name <> "Options" Then 
     ThisWorkbook.Sheets("Options").Range("A1") = Sh.Name 
    End If 
End Sub 

Если вы хотите показать Options, когда выбрано Options лист, просто удалите блок IF-THEN. :)

Обязательно скопируйте и вставьте вышеуказанное в область кода ThisWorkbook.

Сообщите нам, если это поможет.

Answer 2

В ThiwWorkbook модуле добавить

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
Sheets("Options").[a1] = Sh.Name 
End Sub 

, который положит имя текущего листа в ячейку A1 листа под названием Опции