[[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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.