Excel VBA
Range("A1").Select
Range("B1") = Range("A1").OutlineLevel
Это не работает!
Код:
Range("B1").Value = Range("A1").Rows.OutlineLevel
Код:
Sub test()
i = 6
Range("B23").Value = Range("A" + ).Rows.OutlineLevel
End Sub
i = 6
Range("B23").Value = Range("A" + ).Rows.OutlineLevel
End Sub
Это не работает!
Код:
i = 6
Range("B23").Value = Range("A" & i).Rows.OutlineLevel
Cells(23, 2).Value = Cells(i, 1).Rows.OutlineLevel
Range("B23").Value = Range("A" & i).Rows.OutlineLevel
Cells(23, 2).Value = Cells(i, 1).Rows.OutlineLevel