[[20050705083641]]　『ユーザーフォームの変数をモジュールで利用する』（ばーびー）　ページの最後に飛ぶ

『ユーザーフォームの変数をモジュールで利用する』（ばーびー）

[ユーザーフォームで宣言した変数をモジュールで利用するには・・・]

エクセル2000を使用しています。

ユーザーフォームで宣言した変数を標準モジュールの中で使用することは可能でしょうか？

例えば　ユーザーフォームで　

AAA = TEXTBOX1.text

Application.run ("BBB")

とあったとします。

ここで　モジュール　BBB の中でユーザーフォームで宣言した　変数AAA を利用したいのですが、そのまま　例えば　MSGBOX AAA とやっても変数が宣言されてないというエラーがでます。

この変数 AAA をモジュール BBBで利用するにはどうすればいいのでしょうか？教えてください。宜しくお願いします。

 読解力ないんでフィーリングで回答＾＾

 変数　AAA　を　送り込む！！
 Call Test(AAA)

 変数の宣言
 Dim AAA as Integer
 こんな感じで宣言されてるなら

 ↓
 Public AAA as Integer
 にして共有してしまうとか・・・

 (Null)

上記方法を試してみましたが、エラーになってしまいます。
初心者ですので,Publicをヘルプで見てもよく分かりませんでした・・・

ちなみにユーザーフォームではコマンドボタンを使ってまして、

Private Sub commandButton_Click()

Dim AAA as Integer

AAA = TEXTBOX1.text

Application.run ("BBB")

・・・・

これと別にモジュールBBBで

Sub BBB()

Msgbox AAA

・・・

のような感じで変数AAAを使用したいのです。

１つの変数宣言で全てのユーザーフォーム・モジュールで共有できればいいような感じがするのですけど・・・

（ばーびー）

 モジュールの一番上の何もないところに1行空けて変数を宣言すると
 ご希望のことができます、多分。（kazu）

 [モジュール]
 public aaa as integer   ' ←ここです
 Sub abcd()
    ...
 End Sub

 Sub efgh()
    ...　　　　　　　　　' ←中でもaaaを使えます

 End Sub

 [ユーザーフォーム]
 Private Sub Command_Click()
    aaa = Textbox1.text
 End Sub

 参考になると思います。　　
http://www6.plala.or.jp/MilkHouse/begin/contents204/contents20402.html
  (INA)

 一例ですが、
 関数に引数を渡すパターンです。(Nullさんの一個目の方法と同じです)
 Private Sub commandButton_Click() 
 Dim AAA as Integer 
 AAA = TEXTBOX1.text 
 'Application.run ("BBB")       ここを変更
 Call BBB(AAA)
 ・・・・

 'Sub BBB()                     ここを変更
 Sub BBB(AAA As Integer)
 Msgbox AAA 
 ・・・ 
 (nak)

できましたー。NULLさん・KAZUさん・NAKさんアドバイスありがとうございました。またINAさんのご紹介のサイトも勉強になりました。ホントにありがとうございました。
（ばーびー）

コメント返信：

[ 一覧(最新更新順) ]

[[20050705083641]] 『ユーザーフォームの変数をモジュールで利用する』（ばーびー） ページの最後に飛ぶ

[[20050705083641]]　『ユーザーフォームの変数をモジュールで利用する』（ばーびー）　ページの最後に飛ぶ