Значение ячейки по названию листа - Microsoft Office Excel

VadimSh · 02.12.2008, 12:55

Как получить значение ячейки по названию листа в книге
Допустим, название листа - 2007, в результате в ячейке А1 данного листа должно быть 2007

IgorGO · 02.12.2008, 14:00

=ПРАВСИМВ(ЯЧЕЙКА("имяфайла");ДЛСТР( ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла")))

а если хотите получить число, то еще =ЗНАЧЕН(ПРАВСИМВ(ЯЧЕЙКА("имяфайла") ;ДЛСТР(ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла"))))

VadimSh · 02.12.2008, 14:41

Цитата:

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

=ПРАВСИМВ(ЯЧЕЙКА("имяфайла");ДЛСТР( ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла")))

а если хотите получить число, то еще =ЗНАЧЕН(ПРАВСИМВ(ЯЧЕЙКА("имяфайла") ;ДЛСТР(ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла"))))

Не работает. (см. пример). Мне нужно, что бы значение в ячейке было для каждого листа. Эти значение нужны для дальнейших вычислений

Acro · 02.12.2008, 15:08

Код:

Sub AddSheetName()
Dim s, n As Integer
Dim shtname As Variant
n = 1
For s = 1 To Application.Worksheets.Count
Worksheets(n).Activate
    shtname = ActiveSheet.Name
    If Cells(1, 1).Value <> shtname Then
        Cells(1, 1).Value = shtname
    End If
n = n + 1
Next
End Sub

Вставляет название листа в 1-е ячейки каждого листа.
Может можно и по другому, но моих знаний хватило только на это.

VadimSh · 02.12.2008, 15:29

Нашел другое решение

=ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("]";ЯЧЕЙКА("filename";A1))+1;31)

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

02.12.2008, 12:55	#1
VadimSh Пользователь Регистрация: 26.11.2008 Сообщений: 22	Значение ячейки по названию листа Как получить значение ячейки по названию листа в книге Допустим, название листа - 2007, в результате в ячейке А1 данного листа должно быть 2007 Последний раз редактировалось VadimSh; 02.12.2008 в 13:30.

02.12.2008, 14:00	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	=ПРАВСИМВ(ЯЧЕЙКА("имяфайла");ДЛСТР( ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла"))) а если хотите получить число, то еще =ЗНАЧЕН(ПРАВСИМВ(ЯЧЕЙКА("имяфайла") ;ДЛСТР(ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла")))) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

02.12.2008, 15:08	#4
Acro Пользователь Регистрация: 21.10.2008 Сообщений: 39	Код: `Sub AddSheetName() Dim s, n As Integer Dim shtname As Variant n = 1 For s = 1 To Application.Worksheets.Count Worksheets(n).Activate shtname = ActiveSheet.Name If Cells(1, 1).Value <> shtname Then Cells(1, 1).Value = shtname End If n = n + 1 Next End Sub` Вставляет название листа в 1-е ячейки каждого листа. Может можно и по другому, но моих знаний хватило только на это.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ссылка на лист в функции в зависимости от значение ячейки	VadimSh	Microsoft Office Excel	2	02.12.2008 10:28
Вставить значение ячейки в формулу	jungo	Microsoft Office Excel	2	12.08.2008 15:32
Обработка события Updated не всего листа, а лишь одной ячейки	neugadal	Microsoft Office Excel	7	20.07.2008 18:18

02.12.2008, 15:29	#5
VadimSh Пользователь Регистрация: 26.11.2008 Сообщений: 22	Нашел другое решение =ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("]";ЯЧЕЙКА("filename";A1))+1;31) Всем спасибо за помощь