Уважаемые форумчане, доброго времени суток.
Подскажите, пожалуйста, почему c диапазоном в одну ячейку код не работает?
Код |
---|
Sub test()
Dim Qb As Workbook
Dim Mq()Set Qb = ThisWorkbook
Mq = Qb.Application.Range(Cells(1, 1), Cells(1, 1))
End Sub
|
Здесь типы получаются разные: range и variant
Variant()
Код |
---|
?typename(Qb.Application.Range(Cells(1, 1), Cells(1, 1))) |
Range
А когда в диапазоне больше одной ячейки, то код работает:
Код |
---|
Sub test1()
Dim Qb As Workbook
Dim Mq()Set Qb = ThisWorkbook
Mq = Qb.Application.Range(Cells(1, 1), Cells(2, 1))
End Sub
|
Типы остаются без изменений. А ошибки Type mismatch не возникает.