
初歩的な質問で申し訳ありません、
googleでもどのように検索してよいのかわからないので教えてください。
Userformにて作成したコード内にhogehogeという変数を宣言したとします。
これをPublic Sub CommandButton1_Click()内でhogehogeに文字列abcを代入します。
そしてcall を使ってmodule1の処理を行うのですが、
module1内で変数hogehogeに文字列abcが既に代入されているものとして
hogehogeを使いつつ、処理を続けるにはどのようにすればよいのでしょうか?
callで呼ぶ際に変数hogehogeの受け渡しなどが必要なのでしょうか?
(ちなみに全てPublic Subで書いております)
初心者なので質問がおかしいかもしれませんが
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
標準的なコードの書き方があります。
具体的なコードがないので、こちらは想像の範囲なので、行き違いがあるのはご容赦願います。
>Userformにて作成したコード内にhogehogeという変数を宣言したとします。
変数を共有化(厳密にはグローバル化されていない、プロジェクト内のみ共有)するには、通常、「標準モジュール」で、プロシージャ外の変数は、Public変数になります。そして、明示的に、Public ○○と書きます。仮に、それが、UserFormモジュール内で使用されるものでも、標準モジュールに書くことになります。
>これをPublic Sub CommandButton1_Click()内でhogehogeに文字列abcを代入します。
そういう書き方は、本当に特殊な例を除いて書きません。Privateキーワードだけです。
つまり、ローカルモジュール(シートモジュール、ThisWorkbookモジュール、UserFormモジュール)には、Public キーワードは用いません。また、そこへのCallでの、呼び出しもしません。共有化させる場合は、一般的には「標準モジュール」を利用します。
しかし、別途、ユーザー定義関数やサブプロシージャで、引き数を参照渡し/値渡しで、変数の内容を渡すことがあります。この方が安定していますが、多少、コードの可読性が落ちます。
>callで呼ぶ際に変数hogehogeの受け渡しなどが必要なのでしょうか?
具体的にどのようなコードになっているか分かりませんし、Callでどう呼ぶのかは分かりませんが、引き数を設ければ、それはそれで済みます。
例:
'UserForm1 上 CommandButton1とTextBox1 を用意
'UserFormモジュール内
Private Sub CommandButton1_Click()
Dim a As Variant
a = Val(TextBox1.Value)
Call Test1Ref(a)
MsgBox a
End Sub
'標準モジュール、そのままで参照渡しになっている
Public Sub Test1Ref(arg1 As Variant)
arg1 = arg1 * 10
End Sub
ただし、この程度ならば、UserFormモジュール内で、Test1Refを置いても同じです。その時は、Publicキーワードは不要です。
No.2
- 回答日時:
はい、できますよ。
いくつかポイントがあるのでそちらを説明したのちにコードを掲載しておきます。
■他のモジュールの変数にアクセスしたい時
アクセスしたい変数はDimではなくPublicで宣言する必要があります。
スコープ範囲が外からでもアクセスできるようにする必要があるからです。
Publicで宣言した後、どのようにアクセスすればよいかですが
たとえば、Sheet1という名前のシート内で宣言したPublic変数にアクセスしたい時は
debug.print Thisworkbook.Sheets("Sheet1").変数名
でアクセスできます。
標準モジュール(Module1)内であれば
debug.print Module1.変数名
■ユーザーフォームの変数にアクセスする時
ユーザーフォーム(UserForm1)内であれば
debug.print UserForm1.変数名
でアクセスできます。
ただし、UnLoadや×印で閉じてしまうとメモリ上から消えてしまい変数にアクセスすることはできません。
そのため、×印を押した際に閉じるのではなく、非表示にしてあげる必要があります。
以上を踏まえると以下のようになります。
標準モジュール:Module1
Sub SampleCode()
MsgBox "変数abcの値は:" & UserForm1.hogehoge
UserForm1.Show
MsgBox "変数abcの値は:" & UserForm1.hogehoge
End '全ての処理が終わったらEndでPublic宣言の変数をリセットする
End Sub
ユーザーフォーム:UserForm1
Public hogehoge As String
Private Sub CommandButton1_Click()
hogehoge = "abc" 'UserForm1の変数に保存
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Me.Hide 'メモリから消えてしまわないよう非表示にする
Cancel = True 'デフォルトの挙動(メモリから消える)をキャンセルする
End Sub
No.1
- 回答日時:
それらの変数等には、スコープという概念が存在します。
これは簡単に言うと、それらの変数等のオブジェクトが、どの位置まで使用出来るかという事を示します。
説明が下手なので申し訳ありませんが、以下のサイト等を参考にしてみては如何でしょうか。
参照URL : http://homepage1.nifty.com/rucio/main/kiso/Scope …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
Excel VBAで、ユーザーフォームの値を、モジュールで使用したい。
Visual Basic(VBA)
-
-
4
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
private subモジュールを他のモジュールから呼び出して使う方法を教えてください(-.-)
Visual Basic(VBA)
-
11
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
12
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
13
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
14
カンマ区切りのCSVファイルから"を削除したい
その他(プログラミング・Web制作)
-
15
[VBA] Classから他のClassを呼び出す場合
Visual Basic(VBA)
-
16
ExcelでVBAを使用した際に、『パス名が無効です』とエラーになります。
Excel(エクセル)
-
17
【VBA】エラー処理で別プロシージャに飛ばす方法
Visual Basic(VBA)
-
18
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
19
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
20
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大量の標準モジュールを解放す...
-
クラスモジュールを使わないと...
-
VBAで旧字体を異字体に一括で変...
-
フォーム名一覧の取得
-
Excel VBAで、ユーザーフォーム...
-
pythonでファイル移動できません。
-
フォーム内のテキストボックス...
-
エクセルVBAでシートモジュール...
-
Catalyst6506の導入について
-
SendKeysの使い方について
-
「デバイスは PRN を初期化でき...
-
例外処理のフローチャートの記...
-
Net::Telnetモジュールをインス...
-
LCD ディスプレイを Raspberry ...
-
perlをバージョンアップしたら...
-
CPANでのDBIインストールが途中...
-
failed: Can't connect to loca...
-
Excel VBAから利用できるフリー...
-
VBScriptでCurrentDirectoryを...
-
PerlでImage::Magickを使いたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
エクセルVBAでシートモジュール...
-
VBでグローバル変数を宣言するには
-
ユーザー定義関数に#NAME?が返...
-
Excel VBAで、ユーザーフォーム...
-
Excel VBA 定義されたプロージ...
-
vba userFormのSubを標準モジュ...
-
標準モジュールを削除したい。(...
-
'Range'メソッドは失敗しました
-
VBAで別モジュールへの変数の受...
-
モジュールからフォームのボタ...
-
モジュールの最大数はいくつな...
-
グラフのX,Y座標を取得したい
-
モジュールとクラスの違いって...
-
【vba】フォームに書いてあ...
-
Form間の値の渡し方
-
VBのフォームモジュールと標準...
-
VBA モジュールで共通に使う変...
-
Excel VBA 『Call』で呼び出す...
-
acwzlibとは?
おすすめ情報