Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4467 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56479】コマンドボタン ﾄｷﾉﾊｼﾞﾒ 08/6/18(水) 21:10 質問[未読]
【56480】Re:コマンドボタン マクロマン 08/6/18(水) 21:24 発言[未読]
【56481】Re:コマンドボタン ﾄｷﾉﾊｼﾞﾒ 08/6/18(水) 22:06 質問[未読]
【56485】Re:コマンドボタン マクロマン 08/6/19(木) 9:35 発言[未読]
【56490】Re:コマンドボタン mizunu 08/6/19(木) 11:42 回答[未読]
【56561】Re:コマンドボタン ﾄｷﾉﾊｼﾞﾒ 08/6/21(土) 9:16 お礼[未読]
【56479】コマンドボタン
質問  ﾄｷﾉﾊｼﾞﾒ  - 08/6/18(水) 21:10 -
引用なし
パスワード
   有れば教えてください。コマンドボタンを押す。又はOKボタンを押す。と云う命令語はあるのでしょうか。
【56480】Re:コマンドボタン
発言  マクロマン  - 08/6/18(水) 21:24 -
引用なし
パスワード
   >又はOKボタンを押す

意味不明です。
MsgBoxの分岐でしょうか？

>コマンドボタンを押す。

コマンドボタンのコードをサブプロシージャ記述しておいて、
それをCallする、ではダメですか？

一応、↓でも出来ます。

ユーザーフォームモジュール
Private Sub CommandButton1_Click()
↓
Public Sub CommandButton1_Click()

で標準モジュール
Call UserForm1.CommandButton1_Click
【56481】Re:コマンドボタン
質問  ﾄｷﾉﾊｼﾞﾒ  - 08/6/18(水) 22:06 -
引用なし
パスワード
   マクロマン様早速のご回答有難う御座います。説明不足ですみません。
複数のシートにてそれぞれコマンドボタンを押して(10回ぐらい)これれを一々押すのをそれそ゛れのコードの中で命令を入れて次々とシートを渡って最後のシートの結果まで行けないかと思っているのですが
【56485】Re:コマンドボタン
発言  マクロマン  - 08/6/19(木) 9:35 -
引用なし
パスワード
   それぞれのコマンドボタンにはどのようなコードを登録しているのでしょうか？

単にシートをループしていくではダメなのでしょうか？
サンプルです。

Dim i As Integer
Dim ws As Worksheet
　For i = 1 To Worksheets.Count
　 Set ws = Worksheets(i)
　 MsgBox ws.Name
　Next i

一応、標準モジュールからシートに配置したコントロールツールボックスのコントロール
のクリックイベントを発声させる方法を書いておきます。

↓は、標準モジュールから左から一番目のシートのコマンドボタン1のクリックイベント
を発生させます。

'標準モジュール
Sub test()
Dim wb As Workbook
　Set wb = ThisWorkbook
　Call wb.Worksheets(1).CommandButton1_Click
　Set wb = Nothing
End Sub

変数wbは念のために入れてあります。
【56490】Re:コマンドボタン
回答  mizunu  - 08/6/19(木) 11:42 -
引用なし
パスワード
   >有れば教えてください。コマンドボタンを押す。又はOKボタンを押す。と云う命令語はあるのでしょうか。

シートのCommandButtonであれば以下で
コマンドボタンを押す、つまりクリックイベントを発生させます。
Sheet1.CommandButton1.Value = True

(ヘルプより)
コマンド ボタン (CommandButton) コントロールでは、マクロまたはプロシージャを通じて Value プロパティに真 (True) を設定すると、Click イベントが発生します｡

直にプロシージャを実行(クリックイベントを発生させてはいない)
しても結果は同じなんですが...

ただ、Clickイベントを発生させる方法だと、
CommandButtonをオブジェクトとして扱う事が出来ます。
以下一例

Sub test_CommandButtonValueTrue()
　Dim cb1 As MSForms.CommandButton
　Set cb1 = Sheet1.CommandButton1
　'
　cb1.Value = True 'Clickイベントを発生させる
End Sub
【56561】Re:コマンドボタン
お礼  ﾄｷﾉﾊｼﾞﾒ  - 08/6/21(土) 9:16 -
引用なし
パスワード
   マクロマン様、mizunu様　色いろと有難う御座います。お礼遅くなってすみません。頑張ってやって見ます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4467 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free