Если считать ее последовательно (с помощью F9 по строкам 3, 3+4,5,6, 5+6, потом со 2й до конца, потом с 1й до конца), получается нормальный ответ. А так Excel выдает ошибку #ЗНАЧ!
В исходнике заменить "" на нули не могу - он не мой, его трогать нельзя. Есть способ помочь моему горю?
Sub Calc_1() ' Dim Cell As Range For Each Cell In Selection Range(Cells(Cell.Row + 21, Cell.Column)).GoalSeek Goal:=0, ChangingCell:=Range(Cells(Cell.Row, Cell.Column)) Next ' End Sub
Выдает ошибку 1004: Method 'Range' of object '_Global' failed
Имеются два листа. 1. Выделяем на Листе2 диапазон, скажем, A1:A5, строки всегда меняются, столбец всегда А 1. Надо проверить, содержится ли в столбце A Листа1 значения ячейки A1 Листа2. 2. Если да - перейти к следующей ячейке выделенного диапазона. 3. Если нет, то: а) найти в столбце В Листа1 значения ячейки В1 Листа2, б) добавить строку ниже найденной ячейки в) скопировать в нее формулы из строки выше (очень желательно только формулы, а ячейки со значениями - не копировать), г) в ячейки столбцов С, D, E новой строки Листа1 откопировать значения из ячеек С1, D1, E1 Листа2 (при переходе к ячейке А2 - из ячеек С2, D2, E2 соответственно и т.д.) 4. Проделать со всеми ячейками выделенного диапазона.
Задача: надо, чтобы максрос находил заданную дату на листе
Rак не работает: Sub Dim MyDate As Date MyDate = ActiveCell.Offset(0, -2).Value Windows("File.xls").Activate Sheets("Sheet1").Select Cells.Find(MyDate).Activate End Sub
То же, но с четко указанной датой работает:
Sub Windows("File.xls").Activate Sheets("Sheet1").Select Cells.Find("11.12.2010").Activate End Sub