Добрый день.
У меня есть объектная переменная
rng на конкретную ячейку.
Как мне сделать или как написать, чтобы эта строка вся,
rng .Row, была бы выделена жирным шрифтом
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim stroki As Range, rng As Range
Set stroki = ThisWorkbook.Worksheets("Лист1").Range("A3", "A2000")
For Each rng In stroki
' ТУТ ЧТО-ТО СЧИТАЮ
' ...
rng.Offset(1).EntireRow.Insert
rng.Offset(1).Value = "итог"
___?____.Rows("_?_:_?_").Font.Bold = True ' КАК ЗДЕСЬ СДЕЛАТЬ ШРИФТ ЖИРНЫМ НА ВСЮ СТРОКУ
Next
сейчас делаю так
1.
2.
3.
4.
5.
6.
7.
For Each rng In stroki
' ТУТ ЧТО-ТО СЧИТАЮ
' ...
rng.Offset(1).EntireRow.Insert
rng.Offset(1).Value = "итог"
ThisWorkbook.Worksheets("Лист1").Rows("" & rng.Row & ":" & rng.Row).Font.Bold = True
Next
подскажите пожалуйста, но это от не знания
