nick7inc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Есть класс: Код: Option Explicit Public r1 As Range Private Sub Class_Initialize() Set r1 = ThisWorkbook.Worksheets(1).Rows(1) End Sub | Есть модуль: Код: Option Explicit Sub test() Dim a As Class1 Set a = New Class1 Debug.Print a.r1.Address Set a.r1 = a.r1.Resize(2, 1) Debug.Print a.r1.Address resize2 a.r1 Debug.Print a.r1.Address End Sub Public Sub resize2(ByRef r2 As Range) Set r2 = r2.Resize(1, 1) End Sub | Вывод: Код: $1:$1 $A$1:$A$2 $A$1:$A$2 | Последняя строка должна быть Код: Почему в Sub игнорируется ByRef и как сдеть так, чтобы результат resize2() передался в класс? | Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 14:24 19-12-2018 | Исправлено: nick7inc, 11:15 03-03-2020 |
|