ITradar
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые, подскажите пожалуйста в чем ошибка?
Мне нужен Макрос для ранжирования строк(поднять строку вверх, т.е. простая замена ячеек местами, столбцов C и D) сочетанием клавиш, но таким образом чтоб нумерация в первом столбце (B - Приоритет) не менялась, и формулы в Столбце E пересчитывались(в столбце Е привел формулы и результат).
| A | B | C | D
1 |Планы расходов. |Бюджет:|7385 |руб
2 |Приорите|Необходимо |Цена |Остаток
3 | 1 |Набор резцов|2000 |=D1-C3=5385
4 | 2 |Фоторамки |600 |=D3-C4=4785
5 | 3 |Привод DVD |900 |=D4-C5=3885
6 | 4 |HDD 300Гб |2500 |=D5-C6=1385
Sub SelectedUP()
'
' SelectedUP Макрос
' Макрос записан 18.10.2008 (Radmir)
'
' Сочетание клавиш: Ctrl+u
'
Dim UpRow As Integer
UpRow = Selection.Row
Range(Cells(UpRow, 2), Cells(UpRow, 3)).Select
Selection.Formula.Cut Destination:=Range("I1:J1")
Range(Cells(UpRow - 1, 2), Cells(UpRow - 1, 3)).Select
Selection.Formula.Cut Destination:=Range(Cells(UpRow, 2), Cells(UpRow, 3)).Formula
Range("I1:J1").Select
Selection.Formula.Cut Destination:=Range(Cells(UpRow - 1, 2), Cells(UpRow - 1, 3)).Formula
End Sub
Ошибка:
Run-time error '424'
object required
Когда у меня был код по проще, у меня смена местами получалась, но результаты формул Остатков не менялись, так как менялись сами формулы, как бы привязываясь к строкам.
Добавлено:
Я внес изменения: убрал .Formula, чтоб Макрос оперировал с Ячейками... Но Остатки всё же не пересчитываются... Пытаюсь решить и эту проблему, но пока сам не справляюсь.
Sub SelectedUP()
'
' SelectedUP Макрос
' Макрос записан 18.10.2008 (Radmir)
'
' Сочетание клавиш: Ctrl+u
'
Dim UpRow As Integer
UpRow = Selection.Row
Range(Cells(UpRow, 2), Cells(UpRow, 3)).Select
Selection.Cut Destination:=Range("I1:J1")
Range(Cells(UpRow - 1, 2), Cells(UpRow - 1, 3)).Select
Selection.Cut Destination:=Range(Cells(UpRow, 2), Cells(UpRow, 3))
Range("I1:J1").Select
Selection.Cut
Range(Cells(UpRow - 1, 2), Cells(UpRow - 1, 3)).Select
ActiveSheet.Paste
End Sub |
Всего записей: 4 | Зарегистр. 31-03-2008 | Отправлено: 14:46 09-12-2008 | Исправлено: ITradar, 14:50 09-12-2008 |
|
