Ｐａｇｅ 75 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼変数の使用について ハタ 02/9/12(木) 14:05 ┗Re:変数の使用について Nakamura 02/9/12(木) 20:20 ┗使ったことありませんが・・ ichinose 02/9/12(木) 21:36 ┗Re:使ったことありませんが・・ ハタ 02/9/13(金) 15:08 ─────────────────────────────────────── ■題名 ： 変数の使用について ■名前 ： ハタ ■日付 ： 02/9/12(木) 14:05 -------------------------------------------------------------------------
| 初歩的かもしれませんが、また質問させて下さい。 worksheet(1)内で使用した変数を、worksheet(2)、Thisworkbook、 userform等で使用するには、どのように変数を宣言すればいいでしょうか？ 宜しくお願いします。 |
| ▼ハタ さん： >初歩的かもしれませんが、また質問させて下さい。 > >worksheet(1)内で使用した変数を、worksheet(2)、Thisworkbook、 >userform等で使用するには、どのように変数を宣言すればいいでしょうか？ > >宜しくお願いします。 こんにちは 標準モジュールにPublicで変数を宣言して下さい。 それでは |
| ▼Nakamura さん： ▼ハタ さん： こんばんは。 >>初歩的かもしれませんが、また質問させて下さい。 >> >>worksheet(1)内で使用した変数を、worksheet(2)、Thisworkbook、 >>userform等で使用するには、どのように変数を宣言すればいいでしょうか？ >> >>宜しくお願いします。 >標準モジュールにPublicで変数を宣言して下さい。 ↑普段は､これですが・・・ こんな方法、どうでしょう？ Sheet1のモジュールに '============================================================ Private mydata As Variant '================================================= Property Get sht1_data() As Variant sht1_data = mydata End Property '================================================= Property Let sht1_data(set_data As Variant) mydata = set_data End Property '================================================= Private Sub Worksheet_Change(ByVal Target As Range) mydata = Target.Value End Sub '======================================================= ' Sheet2、又は､Thisworkbookモジュールに '======================================================= Sub test() a = Sheet1.sht1_data MsgBox a End Sub Sheet1でセル入力した後､Test実行で・・・ |
| Nakamuraさん、ichinoseさん こんにちは。 今回の問題は、標準モジュールにPublicで変数を宣言する事により解消しました。 ichinoseさんのテキストもテストさせていただきました。 このような使い方は、初めて知りました。（勉強不足を痛感しました。） ありがとうございました。 |