|
こんばんは。
> module側のTOPに記載することでうまくいきました
一番問題の多い解決方法を選択されたような気がしますよ!!
標準モジュール側(module1)に
Public hikitugi as string
sub XXX()
msgbox hikitugi
End sub
Useform1のモジュール内(Commandbutton1があるとして)で
Private Sub CommandButton1_Click()
hikitugi = "aaa"
Module1.xxx
End Sub
などとすれば、コマンドボタンのクリックで確かに aaaと表示されるでしょうが・・。
モジュール間やプロシジャー間の結合度が強いものになってしまい
柔軟性に欠いた構造になってしまいます。
この場合なら、パラメータを使ってデータを渡すのが一般的です。
標準モジュール側(module1)に
sub XXX(hikitugi as string)
msgbox hikitugi
End sub
Useform1のモジュール内(Commandbutton1があるとして)で
Private Sub CommandButton1_Click()
dim 引き継ぎ as string
引き継ぎ = "aaa"
Module1.xxx 引き継ぎ
End Sub
以前に
www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=28808;id=excel
こんな投稿をさせてもらったことがありました。
検討してみてください。
|
|