- ベストアンサー
Excel VBAでのpublic変数の使用方法についての質問
bonaronの回答
- bonaron
- ベストアンサー率64% (482/745)
これは、かなり有名な問題だったと思います。 [VBA] Public 宣言された変数の有効期間 http://support.microsoft.com/kb/408871/ja Access では、普通に対策しておけば、あまりお目にかかりませんが Excel では頻繁に遭遇してしまいます。 対策としては、ブックを開いている間有効にしたい変数は ワーク用の非表示シートを作成し、そこに書き込むようにしています。
関連するQ&A
- access vbaで、変数を含んだプロシージャ
access vbaで、変数を含んだプロシージャを実行したい。 【やりたい事】 下記の矢印の部分で「msg1」「msg2」「msg3」を実行したい。 Public Sub test() For i = 1 To 3 msg & i ←ここを、どのように記述すればいいのでしょうか？ Next End Sub Public Sub msg1() MsgBox "ok1" End Sub Public Sub msg2() MsgBox "ok2" End Sub PublicSub msg3() MsgBox "ok3" End Sub よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 再度,ExcelVBA,public変数が消える
大変申し訳ありません。一度、この件で質問し、その回答を締め切ったばかりなのですが、やはりもう少し知りたくて質問させていただきます。 ある方の回答への補足で、以下のマクロを具体例としてあげました。ただし、以下のマクロは、時にはpublic変数が消えてしまいますが、しかし、消えないこともあります。 消える理由として、 回答していただいたものから考えて、 １．End Sub を通っていないままに終了しているから ２．不完全なマクロ ３．きちんと作られたマクロの流れ（ルーチン）ではない流れがある ４．「Public 変数は、標準モジュールを経由して、ローカルのUserForm に供給、しかし、それを戻すということはしない。つまり、a.ローカルで発生した値 →標準モジュールのPublic 変数 →UserFormのローカルのプロシージャ b.標準モジュールのPublic 変数 → UserFormのローカルのプロシージャ ※ただし、起動時の一回きり、それ以上の持ち回しはしない。逆もしない。」この件に関して、以下のマクロに問題がある。 この様なことを考えました。 ４．の場合、testMainからtest1.showを呼び出し、a=10とするが、このaの値は、testMainには戻らない(戻らないことがある)のでしょうか、あるいは、testMainのend sub の後は値が保障されないのでしょうか。 あるいは、 Worksheet_SelectionChange でend sub で終わっているので、それ以降は値が保持されないのでしょうか。 あるいは、どこかに欠陥のあるマクロなのでしょうか。 http://okwave.jp/qa/q6420530.html への回答のno.6の例のマクロでendをコメントにするかしないかで、endをコメントにした場合はend subで終わった後、値が保持されています。このこととも合わせて考えると、どこに問題があるのか、どのような問題があるのか、よく分からなくなってしまいます。 よろしくお願いします。 標準モジュールにーーーーーーーーーーーーーーーーー Option Explicit Public a As String Sub ini() MsgBox "初期化します" a = "5" End Sub Sub testMain() If a = "" Then ini MsgBox a test1.Show End Sub test1 というフォームのモジュールにーーーーーーーーーーーーーー (このフォームに コマンドボタンがあります。) Private Sub CommandButton1_Click() a = "10" Unload Me End Sub シートのモジュールにーーーーーーーーーーーーーーーーー Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) testMain End Sub
- ベストアンサー
- Visual Basic
- プロシージャーの外で宣言した変数の値の破棄の仕
プロシージャーの外で宣言した変数の値の破棄の仕方について教えてください。 ++++++++++++++++++ Dim i As Long Sub test() i = i + 10 MsgBox i End Sub ++++++++++++++++++ を実行すると、どんどん値が増えていきますが、 回避するには、 ++++++++++++++++++ Dim i As Long Sub test() i = i + 10 MsgBox i i = 0 End Sub ++++++++++++++++++ とするしかないのでしょうか？ ++++++++++++++++++ Dim i As Long Sub test() i = i + 10 MsgBox i Set i = Nothing End Sub ++++++++++++++++++ としたら、エラーになりました。
- ベストアンサー
- Visual Basic
- Excel2003 VBA 変数のスコープについて
お世話になります。 Excel VBAで、Application.Run "Book1!Test"によって、他ブックのプロシージャを実行することができますが、その「他ブックのプロシージャ」で使用した変数を、Application.Run "Book1!Test"終了後も、使用できるような変数宣言の仕方（スコープ）はあるのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 〔EXCEL：VBA〕切捨ての関数は？
初歩的な質問で申しわけありません。 例えば、ある計算結果を「変数：x」に格納して、この「x」の値を切り捨てるにはどのような記述になりますでしょうか？簡単なプロシージャで教えてください。 ------------------------ Sub 切捨て計算() x = 100 / 3 〔変数：xの切捨て〕 MsgBox "変数xは：" & x End Sub ------------------------- 〔 〕内を教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAのプロシージャのことで
TEST1のプロシージャ内に使用している readfileという変数の中にテストという文字列を代入し、 文字列が代入された状態で Callによって別のプロシージャを読みにいったとき TEST(変数)に入った文字列ごと持っていくには どの様に記述すればよいかどなたか教えていただけませんでしょうか・・・。。 ----------------------------------------------------------- Sub TEST () Dim readfile As String readfile = "テスト" Call TEST2 End Sub ----------------------------------------------------------- Sub TEST2() readfile ←テストという文字列をTESTプロシージャから持ってきたい End Sub ----------------------------------------------------------- 単純に書いてみたコードですが、この様なことは可能なのでしょうか？ すいませんがいただけないでしょうか＞＜；
- ベストアンサー
- オフィス系ソフト
- ExcelVBA Static変数の初期化
Static変数はファイルを一旦終了しないと０にリセットできないのでしょうか？ 出来ないとすればStatic変数に代わりそういうことができる方法はありますか？（セルに番号を代入するのは無しで） Sub 番号てすと() Static g As Integer MsgBox "今のＧ= " & g g = g + 1 MsgBox "次のＧ= " & g End Sub
- ベストアンサー
- オフィス系ソフト
- VBAのプロシージャーと変数の名前の区別について
VBAの初心者です。教えてください。 Sub ex() Dim a As Integer Dim b As Integer a = 2 a a, b MsgBox b End Sub Sub a(a As Integer, b As Integer) b = a End Sub 上記のプログラムを実行するとうまくいきません。VBAのプロシージャーと変数って同じ名前を使うとだめなのですか？教えてください。
- ベストアンサー
- Visual Basic
- グローバル変数などについて
Option Explicit Dim str1 As String '・・・(1) Sub テスト() Dim str2 As String '・・・(2) str1 = "テスト1" str2 = "テスト2" MsgBox str1 MsgBox str2 End Sub (1)はグローバル変数と言うとの事ですが (2)は何変数と言うのでしょうか？ ローカル変数ですか？ また、(1)がdimではなく、 Public str1 As String となった場合でも、 プロシージャーの外にあれば、グローバル変数と言うのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 静的変数の現在溜まってる値を知る方法
Sub 静的変数() Static x As Long x = x + 10 MsgBox x End Sub このプロシージャーを実行するとXの値がどんどん加算されていきますが マクロを実行してない時にxの値を取得する方法はありますか？ スッテプインやウォッチウインドウで確認すれば、マクロ実行中にxの値を確認できますが マクロを実行してない時に調べる方法があれば教えてください。 ちなみにウォッチウインドウで見てみると 値は＜対象範囲外＞ 型はＥｍｐｔｙとなります。 （もしマクロを実行してなきゃわからないというのであればそれでも大丈夫です）
- ベストアンサー
- オフィス系ソフト