Excel VBA質問箱 IV

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

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


4456 / 13644 ツリー ←次へ | 前へ→

【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様 色いろと有難う御座います。お礼遅くなってすみません。頑張ってやって見ます。


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