Страницы: 1
RSS
Изменение значения ячеек в большом количестве файлов
 
Добрый день!
Помогите пжл с макросом: необходимо заменить значения определенных ячеек в огромном количестве однотипных файлов Excel.
Файл с примером вложила. Таблица по изменению значений для макроса выделила зеленой заливкой. Если макрос находит пустую ячейку, то ячейка так и остается пустой. Макросом нужно проставить Новую стоимость.
 
Здравствуйте.
Можно попробовать так:
Код
Sub Paletta()
    Dim objC As Range
    For Each objC In Selection
        If objC <> "" Then objC.Offset(0, 1) = objC + 5
    Next objC
End Sub

Выделяете ячейки с первоначальной стоимостью, запускаете макрос.
Кому решение нужно - тот пример и рисует.
 
А если без выделения диапазона, а логикой изменить: например, если в ячейке J20 стоит 10, то ставим значение 15, если пусто, оставляем пусто и т.д. по всем значениям.

ЗЫ: Просто макрос будет вставлен в другой макрос, который в свою очередь открывает сам все файлы, изменяет (вот как изменяет и надо сейчас логику прописать), сохраняет  и закрывает.
 
Код
Sub Paletta()
    Dim objC As Range
    For Each objC In НужныйДиапазон
        If objC <> "" Then objC = objC + 5
    Next objC
End Sub

Требуется тогда задать НужныйДиапазон, по ячейкам которого будете бегать в цикле с проверкой.
Изменено: Пытливый - 06.12.2018 16:53:16
Кому решение нужно - тот пример и рисует.
Страницы: 1
Наверх