ded2007
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: К сожалению, это не помогло . В макросе при записи прописываются определенные диапазоны ячеек. Напр., "Range("A102:G102").Select" или "Range("E102").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)". И когда я запускаю макрос на исполнение, то все операции повторяются с одними и теми же ячейками. Как разрулить эту ситуацию? |
Но блок команд для заданного форматирования Вы же записали. Дальше
Код: Sub цикл()
For stroka = start To end Step 50
Cells(stroka, 5).Select
выполнить_форматирование
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
Next
End Sub |
По вашему техзаданию получается что-то типа такого
Код: Sub пример()
For stroka = 51 To 10000 Step 51
Rows(stroka).Insert
Range(Cells(stroka, 1), Cells(stroka, 9)).Borders(xlEdgeBottom).Weight = xlMedium
Cells(stroka, 4).Value = "ИТОГО"
Cells(stroka, 4).HorizontalAlignment = xlCenter
Cells(stroka, 4).Font.Bold = True
Cells(stroka, 5).FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
Cells(stroka, 5).Font.Bold = True
Cells(stroka, 5).HorizontalAlignment = xlCenter
Cells(stroka, 6).FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
Cells(stroka, 6).Font.Bold = True
Cells(stroka, 6).HorizontalAlignment = xlCenter
Cells(stroka, 6).NumberFormat = "#,##0.00"
Next
End Sub |
Надеюсь, что все достаточно наглядно 
|
Всего записей: 224 | Зарегистр. 13-02-2009 | Отправлено: 12:13 06-12-2010 | Исправлено: ded2007, 12:48 06-12-2010 |
|
. В макросе при записи прописываются определенные диапазоны ячеек. Напр., "Range("A102:G102").Select" или "Range("E102").Select 