| |
|
|
| | Как получить значение ячейки по названию листа в книге Excel | |
| |
| |
|
|
| |
|
|
| | Допустим, название листа "2007", в результате в ячейке А1 данного листа должно быть 2007 | |
| |
| |
| |
|
|
| | Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Value = ActiveSheet.Name
End Sub | |
| |
| |
| |
|
|
| | Нашел другое решение
=ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("]";ЯЧЕЙКА("filename";A1))+1;31)
Всем спасибо за помощь | |
| |
| |
| |
|
|
| | 
Этак вы будете вставлять на каждый лист эту формулу
В моем варианте
Range("A1").Value = ActiveSheet.Name
На всех листах значения ячейкам присваивается автоматически. И в строке формул будет видна не формула, а значение названия листа.
Но, как говорится, хозяин-барин.
| |
| |
| |
