Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена в формуле имени листа на название текущего листа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена в формуле имени листа на название текущего листа (Формулы/Formulas)
Замена в формуле имени листа на название текущего листа
DrMini Дата: Среда, 27.07.2022, 14:48 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1880
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Доброго времени суток форумчане и гости форума.
Имеются несколько файлов excel находящихся в одном каталоге.
Нужно суммировать в один файл из ячеек находящихся в других файлах но с одинаковым именем листа (будут названия месяцев).
При добавлении нового листа хочется что бы в свЯзи с другим файлом изменялось бы только название листа (что бы не менять каждый раз).
В файл 1.xlsm в ячейке D1 суммируются все данные из ячейки C1 этого и других файлов но только с одинаковым именем листа.
Пример прилагаю.
К сообщению приложен файл: 3816004.xlsm (12.3 Kb) · 4698518.xlsm (11.0 Kb)


Сообщение отредактировал DrMini - Среда, 27.07.2022, 14:49
 
Ответить
СообщениеДоброго времени суток форумчане и гости форума.
Имеются несколько файлов excel находящихся в одном каталоге.
Нужно суммировать в один файл из ячеек находящихся в других файлах но с одинаковым именем листа (будут названия месяцев).
При добавлении нового листа хочется что бы в свЯзи с другим файлом изменялось бы только название листа (что бы не менять каждый раз).
В файл 1.xlsm в ячейке D1 суммируются все данные из ячейки C1 этого и других файлов но только с одинаковым именем листа.
Пример прилагаю.
Автор - DrMini
Дата добавления - 27.07.2022 в 14:48
Serge_007 Дата: Среда, 27.07.2022, 15:17 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

Цитата DrMini, 27.07.2022 в 14:48, в сообщении № 1 ()
ри добавлении нового листа хочется что бы в свЯзи с другим файлом изменялось бы только название листа
Так так и будет происходить
В файле 1 скопировали лист Февраль, переименовали в Март, формула по прежнему будет ссылаться на ячейку С1 в файле 2, но на лист Февраль
Если Вы хотите что бы название листа в формуле менялось автоматически, то это только макросом, поскольку функция ДВССЫЛ() не работает с закрытыми книгами

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

Цитата DrMini, 27.07.2022 в 14:48, в сообщении № 1 ()
ри добавлении нового листа хочется что бы в свЯзи с другим файлом изменялось бы только название листа
Так так и будет происходить
В файле 1 скопировали лист Февраль, переименовали в Март, формула по прежнему будет ссылаться на ячейку С1 в файле 2, но на лист Февраль
Если Вы хотите что бы название листа в формуле менялось автоматически, то это только макросом, поскольку функция ДВССЫЛ() не работает с закрытыми книгами
Автор - Serge_007
Дата добавления - 27.07.2022 в 15:17
DrMini Дата: Среда, 27.07.2022, 15:22 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1880
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Serge_007, 27.07.2022 в 15:17, в сообщении № 2 ()
это только макросом

Макросом подойдёт. Может, кто и напишет.
Создать новую тему в разделе VBA или не надо?
Нет наверное макросом неудобно будет. В реале есть 5 файлов и суммировать надо с разных (по наименованию ячеек) в каждом файле.


Сообщение отредактировал DrMini - Среда, 27.07.2022, 15:27
 
Ответить
Сообщение
Цитата Serge_007, 27.07.2022 в 15:17, в сообщении № 2 ()
это только макросом

Макросом подойдёт. Может, кто и напишет.
Создать новую тему в разделе VBA или не надо?
Нет наверное макросом неудобно будет. В реале есть 5 файлов и суммировать надо с разных (по наименованию ячеек) в каждом файле.
Автор - DrMini
Дата добавления - 27.07.2022 в 15:22
Serge_007 Дата: Среда, 27.07.2022, 15:32 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата DrMini, 27.07.2022 в 15:22, в сообщении № 3 ()
Макросом подойдёт
[vba]
Код
Sub DrMini()
   ThisWorkbook.ActiveSheet.Range("d1").Replace _
   What:="Февраль", Replacement:="Март", LookAt:=xlPart
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата DrMini, 27.07.2022 в 15:22, в сообщении № 3 ()
Макросом подойдёт
[vba]
Код
Sub DrMini()
   ThisWorkbook.ActiveSheet.Range("d1").Replace _
   What:="Февраль", Replacement:="Март", LookAt:=xlPart
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 27.07.2022 в 15:32
Serge_007 Дата: Среда, 27.07.2022, 15:35 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата DrMini, 27.07.2022 в 15:22, в сообщении № 3 ()
5 файлов и суммировать надо с разных (по наименованию ячеек) в каждом файле
Можно всё это в макросе один раз прописать, если адреса ячеек не изменяются

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата DrMini, 27.07.2022 в 15:22, в сообщении № 3 ()
5 файлов и суммировать надо с разных (по наименованию ячеек) в каждом файле
Можно всё это в макросе один раз прописать, если адреса ячеек не изменяются
Автор - Serge_007
Дата добавления - 27.07.2022 в 15:35
DrMini Дата: Среда, 27.07.2022, 15:48 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1880
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Serge_007, 27.07.2022 в 15:35, в сообщении № 5 ()
если адреса ячеек не изменяются

Адреса ячеек будут одни и те же. Подскажите куда в макрос вписать:
— имена файлов откуда будут браться данные
— адрес ячейки откуда будут браться данные


Сообщение отредактировал DrMini - Среда, 27.07.2022, 15:49
 
Ответить
Сообщение
Цитата Serge_007, 27.07.2022 в 15:35, в сообщении № 5 ()
если адреса ячеек не изменяются

Адреса ячеек будут одни и те же. Подскажите куда в макрос вписать:
— имена файлов откуда будут браться данные
— адрес ячейки откуда будут браться данные
Автор - DrMini
Дата добавления - 27.07.2022 в 15:48
Serge_007 Дата: Среда, 27.07.2022, 16:09 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата DrMini, 27.07.2022 в 15:48, в сообщении № 6 ()
имена файлов откуда будут браться данные
[vba]
Код
Workbooks.Open FileName:= "...\...\...\...\"ИМЯФАЙЛА.xls"
[/vba]

Цитата DrMini, 27.07.2022 в 15:48, в сообщении № 6 ()
адрес ячейки откуда будут браться данные
[vba]
Код
Sheets("Лист1").Range("A1")
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата DrMini, 27.07.2022 в 15:48, в сообщении № 6 ()
имена файлов откуда будут браться данные
[vba]
Код
Workbooks.Open FileName:= "...\...\...\...\"ИМЯФАЙЛА.xls"
[/vba]

Цитата DrMini, 27.07.2022 в 15:48, в сообщении № 6 ()
адрес ячейки откуда будут браться данные
[vba]
Код
Sheets("Лист1").Range("A1")
[/vba]
Автор - Serge_007
Дата добавления - 27.07.2022 в 16:09
DrMini Дата: Среда, 27.07.2022, 16:21 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1880
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Serge_007, Большое спасибо.
С работы приду и обязательно попробую.
[p.s.]Я в VBA полный ноль.[/p.s.]
 
Ответить
СообщениеSerge_007, Большое спасибо.
С работы приду и обязательно попробую.
[p.s.]Я в VBA полный ноль.[/p.s.]
Автор - DrMini
Дата добавления - 27.07.2022 в 16:21
Serge_007 Дата: Среда, 27.07.2022, 17:18 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата DrMini, 27.07.2022 в 15:22, в сообщении № 3 ()
Макросом подойдёт. Может, кто и напишет
Напишите полный путь к папке с файлами и имя одного из файлов в этой папке (для примера)
Я напишу Вам макрос

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата DrMini, 27.07.2022 в 15:22, в сообщении № 3 ()
Макросом подойдёт. Может, кто и напишет
Напишите полный путь к папке с файлами и имя одного из файлов в этой папке (для примера)
Я напишу Вам макрос
Автор - Serge_007
Дата добавления - 27.07.2022 в 17:18
_Boroda_ Дата: Среда, 27.07.2022, 17:27 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата Serge_007, 27.07.2022 в 17:18, в сообщении № 9 ()
полный путь к папке с файлами

[vba]
Код
ThisWorkbook.Path
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата Serge_007, 27.07.2022 в 17:18, в сообщении № 9 ()
полный путь к папке с файлами

[vba]
Код
ThisWorkbook.Path
[/vba]
Автор - _Boroda_
Дата добавления - 27.07.2022 в 17:27
Serge_007 Дата: Среда, 27.07.2022, 17:28 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Это если файл с макросом лежит в той же папке, что и файлы, данные которых надо суммировать

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЭто если файл с макросом лежит в той же папке, что и файлы, данные которых надо суммировать
Автор - Serge_007
Дата добавления - 27.07.2022 в 17:28
_Boroda_ Дата: Среда, 27.07.2022, 17:29 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата DrMini, 27.07.2022 в 14:48, в сообщении № 1 ()
Имеются несколько файлов excel находящихся в одном каталоге.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата DrMini, 27.07.2022 в 14:48, в сообщении № 1 ()
Имеются несколько файлов excel находящихся в одном каталоге.
Автор - _Boroda_
Дата добавления - 27.07.2022 в 17:29
Serge_007 Дата: Среда, 27.07.2022, 17:32 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Да, я видел, но из этой фразы нет однозначного вывода, что файл с макросом тоже будет лежать вместе с остальными)
Обычно таким образом аналитики ПЭО далают отчеты для руководства, файл отчета лежит в папке с отчетами, а файлы исходники - в общей операционной папке

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеДа, я видел, но из этой фразы нет однозначного вывода, что файл с макросом тоже будет лежать вместе с остальными)
Обычно таким образом аналитики ПЭО далают отчеты для руководства, файл отчета лежит в папке с отчетами, а файлы исходники - в общей операционной папке
Автор - Serge_007
Дата добавления - 27.07.2022 в 17:32
DrMini Дата: Четверг, 28.07.2022, 05:19 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1880
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Serge_007, 27.07.2022 в 17:32, в сообщении № 13 ()
но из этой фразы нет однозначного вывода, что файл с макросом тоже будет лежать вместе с остальными

Всё однозначно. :D
Все файлы находятся в одном каталоге.
Наш кассир в этих файлах по месяцам учитывает приход/расход по разным складам.
И вот вчера она пришла и попросила, что бы со всех файлов нужные ей данные за каждый месяц были видны в выбранном месяце.
Я сделал, но каждый раз в к нужной для суммирования ячейке придётся переписывать путь. А именно меняется только месяц. Во всех файлах названия листов соответствуют названию месяца.
Ух. %) вроде понятно написал.
Хотя не всё так однозначно.
:D
 
Ответить
Сообщение
Цитата Serge_007, 27.07.2022 в 17:32, в сообщении № 13 ()
но из этой фразы нет однозначного вывода, что файл с макросом тоже будет лежать вместе с остальными

Всё однозначно. :D
Все файлы находятся в одном каталоге.
Наш кассир в этих файлах по месяцам учитывает приход/расход по разным складам.
И вот вчера она пришла и попросила, что бы со всех файлов нужные ей данные за каждый месяц были видны в выбранном месяце.
Я сделал, но каждый раз в к нужной для суммирования ячейке придётся переписывать путь. А именно меняется только месяц. Во всех файлах названия листов соответствуют названию месяца.
Ух. %) вроде понятно написал.
Хотя не всё так однозначно.
:D
Автор - DrMini
Дата добавления - 28.07.2022 в 05:19
_Boroda_ Дата: Четверг, 28.07.2022, 10:20 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Михаил, ловите
Макрос тупо меняет в формулах всё типа ААА на ВВВ, где ВВВ - название текущего листа с ! - Март! - (если это название месяца, конечно), а ААА - название предыдущего месяца - Февраль!
[vba]
Код
Sub ZamMes()
    shn_ = ActiveSheet.Name
    On Error Resume Next
    mes1_ = Format(CDate("1." & shn_), "MMMM") & "!"
    If Err Then
        MsgBox "Наименование листа - не название месяца"
        Exit Sub
    End If
    On Error GoTo 0
    mes0_ = Format(CDate("1." & shn_) - 1, "MMMM") & "!"
    Cells.SpecialCells(xlCellTypeFormulas, 23).Replace What:=mes0_, Replacement:=mes1_, LookAt:=xlPart
End Sub
[/vba]
На кнопку повесьте или на панель быстрого доступа выведите
Файл, к сожалению, не могу приложить - запрет безопасности

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМихаил, ловите
Макрос тупо меняет в формулах всё типа ААА на ВВВ, где ВВВ - название текущего листа с ! - Март! - (если это название месяца, конечно), а ААА - название предыдущего месяца - Февраль!
[vba]
Код
Sub ZamMes()
    shn_ = ActiveSheet.Name
    On Error Resume Next
    mes1_ = Format(CDate("1." & shn_), "MMMM") & "!"
    If Err Then
        MsgBox "Наименование листа - не название месяца"
        Exit Sub
    End If
    On Error GoTo 0
    mes0_ = Format(CDate("1." & shn_) - 1, "MMMM") & "!"
    Cells.SpecialCells(xlCellTypeFormulas, 23).Replace What:=mes0_, Replacement:=mes1_, LookAt:=xlPart
End Sub
[/vba]
На кнопку повесьте или на панель быстрого доступа выведите
Файл, к сожалению, не могу приложить - запрет безопасности
Автор - _Boroda_
Дата добавления - 28.07.2022 в 10:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена в формуле имени листа на название текущего листа (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!