[[20221121190441]]　『特定シート内の配列を別シートで参照させたい』（nabeno_21）　ページの最後に飛ぶ

『特定シート内の配列を別シートで参照させたい』（nabeno_21）

お世話になります。ご教授の程、よろしくお願いいたします。

Sheet1に格納されている配列

　Dim takasa(5) As Variant

　takasa(0) = "000"
　takasa(1) = "111"
　takasa(2) = "222"
　takasa(3) = "333"
　takasa(4) = "444"

以上の一次元配列を、Sheet2の別モジュール内でも参照させる事が可能でしたら、教えて頂きたく、よろしくお願いいたします。

以上

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Propertyで渡せばいいでしょう。

 'Sheet1モジュール
 Option Explicit
 Dim takasa(5) As Variant

 Sub test()
  takasa(0) = "000"
  takasa(1) = "111"
  takasa(2) = "222"
  takasa(3) = "333"
  takasa(4) = "444"
 End Sub

 Public Property Get atakasa() As Variant
    atakasa = takasa
 End Property

 'Sheet1モジュール
 Sub test2()
    Debug.Print Sheet1.atakasa(0)
    Debug.Print Sheet1.atakasa(1)
    Debug.Print Sheet1.atakasa(2)
    Debug.Print Sheet1.atakasa(3)
    Debug.Print Sheet1.atakasa(4)
 End Sub 
（hatena） 2022/11/21(月) 19:32:47

Dim takasa(5) As Variant
takasa(0) = 0
takasa(5) = 5
MsgBox takasa(0) & vbLf & takasa(5)
（文化） 2022/11/21(月) 21:40:41

お世話になります。返信が遅くなりました。

少ない情報にも関わらず丁寧に回答頂きありがとうございます。
目からウロコ！、です。感謝、謝謝。

今後も、どうぞご教授の程お願い致します。

（nabeno_21） 2022/11/23(水) 07:45:12

お世話になります。続けて質問をお願いします。

Sheet1の配列に値がセットされた状態でファイルを上書きして、再度、ファイルを開いてセットされた配列を別シートのSheet2で参照する事はできますでしょうか？

ご教授をよろしくお願い致します。
（nabeno_21） 2022/11/30(水) 19:00:22

ファイルを保存して閉じて、再度、ファイルを開いたときに、閉じる前に設定した配列を参照したいということでしょうか。配列などの変数は閉じたら消えてしまいます。次に開いたときまで保存することはできません。当然参照することもできません。

閉じるときに、配列の内容をシートなどに書き込んでおいて、開いたときに、それを配列に読み込むという処理が必要です。非表示のシートに書き込んでおくというがよく使われる手法だと思います。
（hatena） 2022/11/30(水) 22:06:58

丁寧な回答で良く分かりました。いつも即答で助かります。
ありがとうございます。

（nabeno_21） 2022/12/01(木) 07:36:58

コメント返信：

[ 一覧(最新更新順) ]

[[20221121190441]] 『特定シート内の配列を別シートで参照させたい』（nabeno_21） ページの最後に飛ぶ

[[20221121190441]]　『特定シート内の配列を別シートで参照させたい』（nabeno_21）　ページの最後に飛ぶ