Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11761 / 13645 ツリー ←次へ | 前へ→

【14267】プロジェクト間で・・・。 生茶 04/5/25(火) 9:51 質問[未読]
【14269】Re:プロジェクト間で・・・。 ichinose 04/5/25(火) 10:14 発言[未読]
【14273】Re:プロジェクト間で・・・。 生茶 04/5/25(火) 10:37 質問[未読]
【14276】Re:プロジェクト間で・・・。 ichinose 04/5/25(火) 11:46 発言[未読]
【14327】Re:プロジェクト間で・・・。 生茶 04/5/26(水) 8:44 回答[未読]
【14328】Re:プロジェクト間で・・・。 ichinose 04/5/26(水) 9:05 発言[未読]
【14270】Re:プロジェクト間で・・・。 Asaki 04/5/25(火) 10:17 発言[未読]

【14267】プロジェクト間で・・・。
質問  生茶  - 04/5/25(火) 9:51 -

引用なし
パスワード
   プロジェクト間(A,B2つ)で、保持出来る変数の
宣言方法はありますか!?
又は、何か方法はありますか!?

どなたか分かる方、いらっしゃいませんか!?


(現在宣言している内容)
 Public OK As Integer 'OKボタン

A側でマクロ実行。
少しデータ処理。
 ↓
B側のマクロ実行。
B側のフォームをOpen。
 ↓
B側でフォームOpen後OKボタンを
クリックすると「OK=1」。
「OK=1」を保持する。
 ↓ 
A側に戻り「OK」を確認すると「0」
となり保持出来ていない。

【14269】Re:プロジェクト間で・・・。
発言  ichinose  - 04/5/25(火) 10:14 -

引用なし
パスワード
   ▼生茶 さん:
おはようございます。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=12482;id=excel

↑を参考にして下さい
私の環境では、全部成功しています。


>プロジェクト間(A,B2つ)で、保持出来る変数の
>宣言方法はありますか!?
>又は、何か方法はありますか!?
>
>どなたか分かる方、いらっしゃいませんか!?
>
>
>(現在宣言している内容)
> Public OK As Integer 'OKボタン
>
>A側でマクロ実行。
>少しデータ処理。
> ↓
>B側のマクロ実行。
>B側のフォームをOpen。
> ↓
>B側でフォームOpen後OKボタンを
>クリックすると「OK=1」。
>「OK=1」を保持する。
> ↓ 
>A側に戻り「OK」を確認すると「0」
>となり保持出来ていない。

それから、↑の簡単な再現コードを記述していただけると
何がいけないとか間違っているとか 探しやすいんですが・・。

まずは、リンクを参考にして試してみて下さい。

【14270】Re:プロジェクト間で・・・。
発言  Asaki  - 04/5/25(火) 10:17 -

引用なし
パスワード
   こんにちは。
回答ではありません。

あちらでは、マルチポストは禁止されていますので、いずれかを速やかに閉じられることをお薦めします。

【14273】Re:プロジェクト間で・・・。
質問  生茶  - 04/5/25(火) 10:37 -

引用なし
パスワード
   ichinoseさん、こんにちは。
ご回答頂き大変ありがとうございます。
2.うまくいきました。(感謝)

今回、ご教授頂いた内容は「定数」を宣言して値を設定する
方法でしたが「変動」のある変数の受け渡しは可能でしょうか!?
(Public OK As Integer で変数宣言しても受け渡しが
 可能な方法です。)

【14276】Re:プロジェクト間で・・・。
発言  ichinose  - 04/5/25(火) 11:46 -

引用なし
パスワード
   ▼生茶 さん:
>ご回答頂き大変ありがとうございます。
>2.うまくいきました。(感謝)
ということは、他は駄目だったんですか?
先日もそうだったので、気になるなあ!!

>
>今回、ご教授頂いた内容は「定数」を宣言して値を設定する
>方法でしたが「変動」のある変数の受け渡しは可能でしょうか!?
>(Public OK As Integer で変数宣言しても受け渡しが
> 可能な方法です。)
どちらかというと↑の使い方の方が私は多いです。定数を参照した事はないんです。

例えばブックBook1の標準モジュールに以下のコードがあったとしましょう。
'===========================================================
Public aaa As Integer
'===========================================================
Sub 値セット()
aaa = 1
End Sub

thisWorkbookに
'===================================================
Function get_publicdata() As Integer
  get_publicdata = aaa
End Function


ブックBook2の標準モジュールでは、
'===========================================
Sub testtest()
  MsgBox Workbooks("book1").get_publicdata

End Sub

とした場合、Book1で「値セット」を実行後、testtestを実行してみてください。
1が表示されるはずですが・・・。

変数の置き場所は、内容によって違ってくるので、可能性として・・・、


BOOK1のThisworkbookに
'====================================================
Public bbb As Integer


としておけば、


BOOK2では、

sub testtest()
 msgbox workbooks("book1").bbb
end sub

でも取得できます。設定もできますよ。

sub testtesttest()
  workbooks("book1").bbb=1000
end sub

確認してみて下さい。

それと問題があった場合、この後の投稿は、夜になってしまいます。

続きがあったら、どなたかお願いします。

【14327】Re:プロジェクト間で・・・。
回答  生茶  - 04/5/26(水) 8:44 -

引用なし
パスワード
   ichinoseさん、おはようございます。

先日のご回答方法で実際確認して致しましたが、やはりダメです。。。
Constで定数宣言するとうまく行きますが・・・。
マクロの組み方が悪いのかもしれません。。。(涙)
もう一度、よく確認してみます。。。

【14328】Re:プロジェクト間で・・・。
発言  ichinose  - 04/5/26(水) 9:05 -

引用なし
パスワード
   ▼生茶 さん:
おはようございます。
>
>先日のご回答方法で実際確認して致しましたが、やはりダメです。。。

この「ダメ」とは、具体的にどんな状況なのでしょうか?
エラーになってしまうと言う事ですか?
生茶 さんに限った事ではないのですが、抽象的な結果報告の投稿を時より見かけますが、
具体的にこういうコードで実行したらコードのこの個所で「こういうエラー発生した」
という事を記述していただけないと、私が何度か経験した事象なら、ピンッと
くる事もごく稀にありますが、そうでない場合は、正直何が何だかわかりません。

前回、投稿したコードで私の方では正常に取得できていますから、
ご検討の結果、原因がわかったら、是非教えて下さい。

また、うまくいかない場合は、上記のような記述の投稿をお願いします。


>Constで定数宣言するとうまく行きますが・・・。


>マクロの組み方が悪いのかもしれません。。。(涙)
>もう一度、よく確認してみます。。。

11761 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free