Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9414 / 76738

←次へ　｜　前へ→


	【72886】Re:ブック間で変数を共有したいのですが

ichinose - 12/9/28(金) 13:41 -


	引用なし

	パスワード

こんにちは。

>

>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は、
配列の要素を引数を指定することで取得しています。

取り急ぎ代替案です

0 hits

▼

【72807】ブック間で変数を共有したいのですが やまぐち 12/9/20(木) 13:24