нужен такой макрос который будет заполнять до 2000 строк Диапазон A1:A2000 формат "текст" значение "0266" Диапазон B1:B2000 формат "текст" значение "001" Диапазон C1:C2000 формат "текст" значение "02" Диапазон D1:D2000 формат "ДД.ММ.ГГ чч:мм;@" собирается по формуле из допустим Dx=Ex+Fx
на данный момент у меня получается слишком длинный макрос. Делаю его с помощью "Записать макрос" Сейчас я заполняю 2000 строк и после этого проверяю по дате. если дата равна 00.01.00 00:00 то удаляю строку. TextToFindArray = Array("00.01.00 00:00") With Application .ScreenUpdating = False .Calculation = xlCalculationManual For i = 0 To 1 With ActiveSheet.Cells Set iRange = .Find(What:=TextToFindArray(i), LookIn:=xlFormulas, LookAt:=xlPart) If Not iRange Is Nothing Then Do iRange.EntireRow.Delete Set iRange = .Find(What:=TextToFindArray(i), LookIn:=xlFormulas, LookAt:=xlPart) Loop While Not iRange Is Nothing End If End With Next i .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With
Прошу помочь с кодом.
Добавил собственно есть html файл в котором может быть до 2000 строк. Есть значения в 3х столбцах с которыми необходимо работать и используя несколько формул сформировать новый файл. Все могу сделать сам кроме описанной выше проблемы
Доброго времени суток
нужен такой макрос который будет заполнять до 2000 строк Диапазон A1:A2000 формат "текст" значение "0266" Диапазон B1:B2000 формат "текст" значение "001" Диапазон C1:C2000 формат "текст" значение "02" Диапазон D1:D2000 формат "ДД.ММ.ГГ чч:мм;@" собирается по формуле из допустим Dx=Ex+Fx
на данный момент у меня получается слишком длинный макрос. Делаю его с помощью "Записать макрос" Сейчас я заполняю 2000 строк и после этого проверяю по дате. если дата равна 00.01.00 00:00 то удаляю строку. TextToFindArray = Array("00.01.00 00:00") With Application .ScreenUpdating = False .Calculation = xlCalculationManual For i = 0 To 1 With ActiveSheet.Cells Set iRange = .Find(What:=TextToFindArray(i), LookIn:=xlFormulas, LookAt:=xlPart) If Not iRange Is Nothing Then Do iRange.EntireRow.Delete Set iRange = .Find(What:=TextToFindArray(i), LookIn:=xlFormulas, LookAt:=xlPart) Loop While Not iRange Is Nothing End If End With Next i .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With
Прошу помочь с кодом.
Добавил собственно есть html файл в котором может быть до 2000 строк. Есть значения в 3х столбцах с которыми необходимо работать и используя несколько формул сформировать новый файл. Все могу сделать сам кроме описанной выше проблемыswolf74
Сообщение отредактировал swolf74 - Четверг, 29.05.2014, 10:52
Ничего не понял. Нет конечно можно написать макрос для "Диапазон A1:A2000 формат "текст" значение "0266" " Простой макрос, записывается рекордером, немного правится. Но зачем? Вы бы согласно правил показали файл, описали итоговую задачу. Я подозреваю, что всё нужно делать иначе - читать кодом этот html, в памяти всё обработать, выгрузить на лист уже готовый результат. Или может быть вообще в итоге нужно получить другой html или этот же в нужном виде?
Ничего не понял. Нет конечно можно написать макрос для "Диапазон A1:A2000 формат "текст" значение "0266" " Простой макрос, записывается рекордером, немного правится. Но зачем? Вы бы согласно правил показали файл, описали итоговую задачу. Я подозреваю, что всё нужно делать иначе - читать кодом этот html, в памяти всё обработать, выгрузить на лист уже готовый результат. Или может быть вообще в итоге нужно получить другой html или этот же в нужном виде?Hugo