Dim i As Long, j As Long
With iGrid1
.RowMode = True
For i = 1 To 5
.AddCol sHeader:="Col " & i, lWidth:=45, bIncludeInSelect:=IIf(i = 1, False, True)
Next
.AddCol bRowTextCol:=True
.RowTextStartCol = 3
For i = 1 To 3
.AddRow
For j = 1 To 5
.CellValue(i, j) = "cell " & i & "/" & j
Next
.CellValue(i, 6) = "Long long long row text"
.RowHeight(i) = 40
Next
End With
Сейчас этот форум просматривают: Yandex-бот и гости: 3