[[20210912165027]]　『ユーザーフォームの複数のコマンドボタンを同時に』（功一）　ページの最後に飛ぶ

『ユーザーフォームの複数のコマンドボタンを同時に押すコード』（功一）

ユーザーフォームの複数のコマンドボタンを同時に押すコード
同じユーザーフォームにある一つのコマンドボタンを押せば三つ同時に実行なんてできれば仕事が速くできていいんじゃないかと思いますが、私自身EXCEL　VBA初心者で　CALLの呼び出ししか分かりません教えて頂けないでしょうか？

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 ちわ　＾＾
ＶＢＡはマルチスレッドはサポートしてないと思います。←多分ですが＾＾；
なので、同時実行は出来ないかと。。。←絶対出来ないとは言いませんが
やらないほうが安全＾＾；
順番にならいくつでも実行できますよ。多分。。。(*^^*)ｖ

（隠居Ｚ） 2021/09/12(日) 17:15

すいません順番にです。

（功一） 2021/09/12(日) 17:35

＞＞CALLの呼び出ししか分かりません

 これがわかれば、後は、何も無いとは思いますが。
ほとんど、↑で、いけると思いますが、別途
アプリケーション.ラン
というのが有りますので、調べてみると良いと思います。
具体的に何をなさりたいのか、教えて頂くと、何かお手伝いは
出来るかもしれません。でわ
m(_ _)m
（隠居Ｚ） 2021/09/12(日) 18:17

Private Sub CommandButton1_Click()
・
・
・

Application.Run "E:\完成\製造ライン点検表Aライン点検リスト.xlsm!UserForm1.CommandButtom2_Click"
Application.Run "E:\完成\製造ライン点検表Aライン点検リスト.xlsm!UserForm1.CommandButtom3_Click"

END　Sub
まったくコマンドボタン2、3の自動実行ができませんどのようにコードを書けばいいのでしょうか？
ご指導のほどお願いいたします。
（功一） 2021/09/12(日) 20:31

 こんばんわ　＾＾
他のブックのユーザーフォームを操作するのでしょうか
それでしたら、私はやったことが有りませんので、他の
お詳しい方の回答をお待ち下さいませ。
m(_ _)m
（隠居Ｚ） 2021/09/12(日) 21:13

 追伸
そうではなくて、最初にご提示の様に
同じフォームならブックのフルネーム部分は必要ないかと思います
それと、確かに呼び出せますが、直接イベントプロシジャーを強引に
呼び出すより、イベントで走らせるコード内容を、いくつかのサブプ
ロシジャーとして、記述して、←を順次CALLすれば良いのではと思います。
（隠居Ｚ） 2021/09/12(日) 21:19

＞＞確かに呼び出せますが、直接イベントプロシジャーを強引に
やってみましたが、フォームモジュールからはダメみたいでした
済みません。
↑の別案がよろしいかと。。。A＾＾；
m(__)mm(__)mm(__)m

（隠居Ｚ） 2021/09/12(日) 22:04

追伸
何度もすみません。
ちょっと、手違いが有ったみたいで、。。。ちょっとお待ちくださいね
たしか、実行できたはずなのですが。調べてみます。無効にしたある
コマンドボタンを指定してたかも。再確認してみますね。
m(__)m
（隠居Ｚ） 2021/09/12(日) 22:13

 私の勘違いだったようです
呼び出せなかったよぉです。(T_T)
ま、呼び出せなくても、何とでもなりますよ、先ほど申し上げた
代替案で。。。(*^^*)ｖ
コマンドボタン1のクリックイベントの所へ、実行したいコード[プロシジャ]
をぜ～んぶほりこんじゃえば良いと、思いますよ。(*'▽')
でわでわ
呼び出せたら、おしえてくださいね～～～。。。。m(_ _)m
すみませんでした～～～ぁ。m(_ _)m
（隠居Ｚ） 2021/09/12(日) 22:34

 Private Sub CommandButton1_Click()
  Call Macro1
 End Sub

 Private Sub CommandButton2_Click()
  Call Macro2
 End Sub

 Private Sub CommandButton3_Click()
  Call Macro3
 End Sub

↓こう変える

 Private Sub CommandButton1_Click()
  Call Macro1
  Call Macro2
  Call Macro3
 End Sub

（きまぐれおじさん） 2021/09/12(日) 22:47

コメント返信：

[ 一覧(最新更新順) ]

[[20210912165027]] 『ユーザーフォームの複数のコマンドボタンを同時に』（功一） ページの最後に飛ぶ

[[20210912165027]]　『ユーザーフォームの複数のコマンドボタンを同時に』（功一）　ページの最後に飛ぶ