Как считать в пользовательскую переменную значения ячеек

[Евгений Д.]

Коллеги, поясните, что не так, когда я пытаюсь присвоить пользовательской переменной значения из диапазона? И вообще можно ли это делать?

Код: Выделить всё

Type MyType
    var1 as Integer
    var2 as String
    var3 as Boolean
End Type

Public MyVar as  MyType

sub Test

    MyVar =Range("A1:A3").value

   ...

end sub


VBA ругается: Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions.

И что это за "public object modules" в VBA?

[GSerg]

Это ж какую надо иметь самобытность, чтобы такое могло придти в голову Ужос...

Нет, нельзя, и нет, в VBA нет public object modules.

И да, dim v as variant : v=Range("A1:A3").value.

[Евгений Д.]

Получается, что явно я не могу заполнить в пользовательской переменной сразу все поля? Только по одному полю:

Код: Выделить всё


   MyVar.var1 = ...
   MyVar.var2 = ...
   MyVar.var3 = ...



[GSerg]

Да, именно так, хотя и непонятно, зачем вообще нужна пользовательская переменная.

[Евгений Д.]

Просто хотелось считывать и запоминать значения элементов управления формы не через массив, а через, на мой взгляд, более осысленную структуру - пользовательскую переменную. Ну раз нельзя, значит будем по старинке . Спасибо за науку.

[GSerg]

public Const Var1 As Long = 0
public Const Var2 As Long = 1
public Const Var3 As Long = 2

public MyVar as variant

...
myvar = Range("A1:A3").value

msgbox MyVar(Var1)
msgbox MyVar(Var2)
msgbox MyVar(Var3)

[Евгений Д.]

Да, что-то в этом духе. Только

Код: Выделить всё


msgbox MyVar(Var1,1)
msgbox MyVar(Var2,1)
msgbox MyVar(Var3,1)