Добрый день! Помогите пожалуйста, можно ли использовать переменную, как имя для поиска файла. Т.е. есть к примеру файл1, который ссылается на другой файл, он каждый месяц имеет новое имя пример "отчет_март", следующий месяц будет уже "отчет_апрель" и так далее. В файле1 есть формула =ИНДЕКС(массив из отчет_март;поискпозиции отчет_март;поискпозиции отчет_март), которая ссылается на файл отчет_март, листы в отчетах всегда одинаковые. Возможно ли с помощью макроса, переписать формулу, чтобы она ссылалась на файл отчет_апрель и т.д. каждый месяц?
Добрый день! Помогите пожалуйста, можно ли использовать переменную, как имя для поиска файла. Т.е. есть к примеру файл1, который ссылается на другой файл, он каждый месяц имеет новое имя пример "отчет_март", следующий месяц будет уже "отчет_апрель" и так далее. В файле1 есть формула =ИНДЕКС(массив из отчет_март;поискпозиции отчет_март;поискпозиции отчет_март), которая ссылается на файл отчет_март, листы в отчетах всегда одинаковые. Возможно ли с помощью макроса, переписать формулу, чтобы она ссылалась на файл отчет_апрель и т.д. каждый месяц?monstr_ork
monstr_ork, привет Найти-Заменить не пробовали? Найти -"март", Заменить - "апрель" область поиска - формулы
Мне нужен макрос, у меня таких формул около 30 в файле и такое нужно делать на 30 файлах. Мне нужен способ, чтобы в переменную значение, которое потому будет соответствовать имени будущего фала
monstr_ork, привет Найти-Заменить не пробовали? Найти -"март", Заменить - "апрель" область поиска - формулы
Мне нужен макрос, у меня таких формул около 30 в файле и такое нужно делать на 30 файлах. Мне нужен способ, чтобы в переменную значение, которое потому будет соответствовать имени будущего фалаmonstr_ork
и вот вместо слова март мне нужна переменная, в которой и будет находится продолжение название файла, отчета. Что-то на подобии "отчет_"переменная".xlsm
и вот вместо слова март мне нужна переменная, в которой и будет находится продолжение название файла, отчета. Что-то на подобии "отчет_"переменная".xlsmmonstr_ork
Сообщение отредактировал monstr_ork - Вторник, 06.03.2018, 06:06
Вы не поняли, к примеру в листе есть ячейка А5, в ней есть значение, к примеру "март" или "апрель" (они будут менять в зависимости от месяца), и вот это значение должно идти в путь файла.
Вы не поняли, к примеру в листе есть ячейка А5, в ней есть значение, к примеру "март" или "апрель" (они будут менять в зависимости от месяца), и вот это значение должно идти в путь файла.
monstr_ork, так используйте вариант от китин через ДВССЫЛ() если кодом, то самое простое например в А4 указать текущее значение (март), в А5 - на что менять(апрель) [vba]
monstr_ork, так используйте вариант от китин через ДВССЫЛ() если кодом, то самое простое например в А4 указать текущее значение (март), в А5 - на что менять(апрель) [vba]
Я может как то не правильно изъяснился, но суть в том, что мне нужно переписать формулы, каждый месяц. В этих формулах меняется только файл, откуда берутся значения. Чтобы не переписывать их каждый раз, потому что таких формул в файле1 около 30, решил сделать через переменную. Ну к примеру, я же могу создать лист с именем из ячейки, куда предварительно внесу значение, вот и тут тоже самое. Вопрос в том, что могу ли я вставить переменную в этот текст кода как продолжение файла или как мне ее туда вставить, чтобы она была продолжением пути к файлу
Я может как то не правильно изъяснился, но суть в том, что мне нужно переписать формулы, каждый месяц. В этих формулах меняется только файл, откуда берутся значения. Чтобы не переписывать их каждый раз, потому что таких формул в файле1 около 30, решил сделать через переменную. Ну к примеру, я же могу создать лист с именем из ячейки, куда предварительно внесу значение, вот и тут тоже самое. Вопрос в том, что могу ли я вставить переменную в этот текст кода как продолжение файла или как мне ее туда вставить, чтобы она была продолжением пути к файлуmonstr_ork
Sub ЗаменитьМесяцнаСвежий() Dim x As Long For x = 1 To 12 Cells.Replace What:=MonthName(x), _ Replacement:=MonthName(Month(Now)), LookAt:=xlPart Next End Sub
[/vba]
Привет! [vba]
Код
Sub ЗаменитьМесяцнаСвежий() Dim x As Long For x = 1 To 12 Cells.Replace What:=MonthName(x), _ Replacement:=MonthName(Month(Now)), LookAt:=xlPart Next End Sub
Вопрос решил через обычный поиск и замену. создал две переменные, где находится текст который нужно найти и текст на который нужно заменить. Ну и соответственно диапазон добавил в котором нужно искать. В принципе это решило мою проблему. [vba]
Код
Sub Макрос3()
Dim name1 Dim name2 name1 = [E5] name2 = [A1] Cells.Replace What:=name1, Replacement:=name2, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
End Sub
[/vba]
Вопрос решил через обычный поиск и замену. создал две переменные, где находится текст который нужно найти и текст на который нужно заменить. Ну и соответственно диапазон добавил в котором нужно искать. В принципе это решило мою проблему. [vba]
Код
Sub Макрос3()
Dim name1 Dim name2 name1 = [E5] name2 = [A1] Cells.Replace What:=name1, Replacement:=name2, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False