Требуется, чтобы каждая забитая макросом ячейка автоматически присваивала себе атрибуты от конкретной ячейки (границы, заливка, выравнивание и тд). [vba]
Код
Sub Example_04() n = 10 For i = 1 To n 'атриубты от Лист2.Cells(5, 3) для Лист2.Cells(i + 3, 3) = i 'атриубты от Лист2.Cells(5, 4) для Лист2.Cells(i + 3, 4) = i 'атриубты от Лист2.Cells(5, 5) для Лист2.Cells(i + 3, 5) = i 'атриубты от Лист2.Cells(5, 6) для Лист2.Cells(i + 3, 6) = i Next i End Sub
[/vba]
Требуется, чтобы каждая забитая макросом ячейка автоматически присваивала себе атрибуты от конкретной ячейки (границы, заливка, выравнивание и тд). [vba]
Код
Sub Example_04() n = 10 For i = 1 To n 'атриубты от Лист2.Cells(5, 3) для Лист2.Cells(i + 3, 3) = i 'атриубты от Лист2.Cells(5, 4) для Лист2.Cells(i + 3, 4) = i 'атриубты от Лист2.Cells(5, 5) для Лист2.Cells(i + 3, 5) = i 'атриубты от Лист2.Cells(5, 6) для Лист2.Cells(i + 3, 6) = i Next i End Sub
n = 10 Лист2.Range("C5:F5").Copy Лист2.Range("C4:F" & 3 + n).PasteSpecial Paste:=xlPasteFormats
[/vba] А можно вообще без явного копирования ячеек листа - сначала тупо все копируем и сразу же вставляем в нужный диапазон, потом стираем значения, а форматы остаются [vba]
[/vba] А можно и вообще без копирования, протяжкой форматов [vba]
Код
n = 10 Лист2.Range("C5:F5").AutoFill Destination:=Лист2.Range("C5:F" & 3 + n), Type:=xlFillFormats
[/vba]
А что бы не все сразу покрасить? [vba]
Код
n = 10 Лист2.Range("C5:F5").Copy Лист2.Range("C4:F" & 3 + n).PasteSpecial Paste:=xlPasteFormats
[/vba] А можно вообще без явного копирования ячеек листа - сначала тупо все копируем и сразу же вставляем в нужный диапазон, потом стираем значения, а форматы остаются [vba]