Excel VBA質問箱 IV

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

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


67021 / 76738 ←次へ | 前へ→

【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

確認してみて下さい。

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

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

0 hits

【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 発言

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