|
こんにちは。
>
>Thisworkbookのモジュールに
>配列も含む変数を定義すれば良いとの事だったのですが、
>オブジェクト変数には、
>定数や配列のPublic変数は定義出来ないと
>エラーとなってしまいました。
>エラーとならない設定があるのでしょうか?
失礼、配列だとちょっと工夫が必要でした。
Thisworkbook側で
Option Explicit
Private a(1 To 5) As String
Public Property Get MYa(idx As Long) As String
MYa = a(idx)
End Property
Public Property Let MYa(idx As Long, myvalue As String)
a(idx) = myvalue
End Property
別ブック側では
Sub test()
With Workbooks("book1")
.MYa(1) = "aaa"
.MYa(2) = "bbb"
MsgBox .MYa(1) & ":" & .MYa(2)
End With
End Sub
この場合、プロパティ MYaは、
配列の要素を引数を指定することで取得しています。
取り急ぎ代替案です
|
|