Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6841 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42786】コマンドボタンの設定について くみたん 06/9/21(木) 21:13 質問[未読]
【42788】Re:コマンドボタンの設定について りん 06/9/21(木) 21:43 発言[未読]
【42789】Re:コマンドボタンの設定について くみたん 06/9/21(木) 22:15 質問[未読]
【42791】Re:コマンドボタンの設定について りん 06/9/21(木) 22:51 回答[未読]
【42792】Re:コマンドボタンの設定について ponpon 06/9/21(木) 22:57 発言[未読]
【42793】Re:コマンドボタンの設定について くみたん 06/9/21(木) 23:06 回答[未読]
【42795】Re:コマンドボタンの設定について りん 06/9/21(木) 23:30 発言[未読]
【42796】Re:コマンドボタンの設定について ponpon 06/9/21(木) 23:35 発言[未読]
【42797】Re:コマンドボタンの設定について くみたん 06/9/21(木) 23:48 お礼[未読]
【42803】Re:コマンドボタンの設定について Jaka 06/9/22(金) 9:35 発言[未読]
【42786】コマンドボタンの設定について
質問  くみたん E-MAIL  - 06/9/21(木) 21:13 -
引用なし
パスワード
   はじめまして
ＶＢＡ初心者なので教えてください
　
コマンドボタンにプロシージャを設定しプログラムを呼び出したいのですが
使用する命令と記述方法がわかりません。どなたか教えてください。お願いします
【42788】Re:コマンドボタンの設定について
発言  りん E-MAIL  - 06/9/21(木) 21:43 -
引用なし
パスワード
   くみたん さん、こんばんわ。

>コマンドボタンにプロシージャを設定しプログラムを呼び出したいのですが
>使用する命令と記述方法がわかりません。どなたか教えてください。お願いします

OnActionプロパティで実行したいマクロを設定します。

かなり昔のマクロですが、参考になれば。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=5030;id=excel
【42789】Re:コマンドボタンの設定について
質問  くみたん E-MAIL  - 06/9/21(木) 22:15 -
引用なし
パスワード
   りんさん　ありがとうございます


OnActionプロパティを見たのですがよく理解できません。
もう少し簡単なサンプルがあればありがたいのですが。お願いします。
【42791】Re:コマンドボタンの設定について
回答  りん E-MAIL  - 06/9/21(木) 22:51 -
引用なし
パスワード
   くみたん さん、こんばんわ。

>OnActionプロパティを見たのですがよく理解できません。
>もう少し簡単なサンプルがあればありがたいのですが。お願いします。

下のコードを標準モジュールにコピーし、Mainを実行すると「てすとBar」という新しいツールバーが出来ます。そこのボタンをクリックするとメッセージが出ます。

Sub Main()
　 Dim cb As CommandBar, cbc As CommandBarButton, cbn As String
　 cbn = "てすとBar"
　 '既存なら削除
　 On Error Resume Next
　 Application.CommandBars(cbn).Delete
　 On Error GoTo 0
　 '新規コマンドバー作成
　 Set cb = Application.CommandBars.Add(cbn)
　 'ボタンを追加
　 Set cbc = cb.Controls.Add(Type:=msoControlButton) 'ボタン
　 With cbc
　　　.Caption = "ちぇけらー"
　　　.Style = msoButtonCaption
　　　.OnAction = "CheckItOut"
　 End With
　 '作ったコマンドバーを表示
　 cb.Visible = True
　 '終了
　 Set cbc = Nothing: Set cb = Nothing
End Sub
'ボタンを押したらこれが実行される
Private Sub CheckItOut()
　 MsgBox Now(), vbExclamation, "ちぇけらー"
End Sub


今回は、リセット（バーを自動的に削除）する部分は作成していないので、表示→ツールバー→ユーザー設定で削除してください。
【42792】Re:コマンドボタンの設定について
発言  ponpon  - 06/9/21(木) 22:57 -
引用なし
パスワード
   ▼くみたん さん：
投稿途中でページを見たら、りんさんが回答してましたが
そのまま投稿します。

りんさん　では、ありませんが、

この質問って、新規ツールバーにボタンを配置してプロシージャを設定しプログラムを呼び出すのではなく、

普通のフォームやコントロールツールボックスの
ボタンにプロシージャを登録したいってことじゃないですか？

違ってたら、ごめんなさい。
【42793】Re:コマンドボタンの設定について
回答  くみたん E-MAIL  - 06/9/21(木) 23:06 -
引用なし
パスワード
   りんさん　ありがとうございます
私の質問の仕方があやふやだったため、誤解をさせてしまったみたいです。
すみませんでした。
PONPONさんの指摘したことが知りたかったのです。詳しく教えて下さいお願いします。
PONPONさんありがとうございました
【42795】Re:コマンドボタンの設定について
発言  りん E-MAIL  - 06/9/21(木) 23:30 -
引用なし
パスワード
   くみたん さん、こんばんわ。

>私の質問の仕方があやふやだったため、誤解をさせてしまったみたいです。
>すみませんでした。
コマンドバーと勘違いしてました。ごめんなさい。

こっちですね。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=38538;id=excel
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=37894;id=excel

あとはおまかせします。
【42796】Re:コマンドボタンの設定について
発言  ponpon  - 06/9/21(木) 23:35 -
引用なし
パスワード
   私は、以下のような方法で登録しています。
他にもいい方法は、あると思います。

　・フォームのボタンの場合
　　表示→ツールバー→フォーム
　　　　ボタンを選び、シート上に貼り付ける。
　　貼り付けると、マクロの登録ダイアログが現れる→キャンセル
　　ボタンを右クリック→マクロの登録
　　すでに作っているマクロが表示されるので選択→OK　登録完了

　・コントロールツールボックスの場合
　　表示→ツールバー→コントロールツールボックス
　　　　コマンドボタンを選び、シート上に貼り付ける。
　　　　コマンドボタンをダブルクリック
　　　　以下のようなVBE画面になるので、
　　　　Private Sub CommandButton1_Click()
　　　　　Call　作っているマクロ名
　　　　End Sub
　　　　デザインモードの終了(三角定規と定規と鉛筆のアイコン）　　
　　　　登録完了　
【42797】Re:コマンドボタンの設定について
お礼  くみたん E-MAIL  - 06/9/21(木) 23:48 -
引用なし
パスワード
   りんさんありがとうございました。

PONPONさんありがとうございました。


何とかやってみます。また、わからないことがあったら教えて下さい。
【42803】Re:コマンドボタンの設定について
発言  Jaka  - 06/9/22(金) 9:35 -
引用なし
パスワード
   ▼ponpon さん：
>　・フォームのボタンの場合
>　　表示→ツールバー→フォーム
>　　　　ボタンを選び、シート上に貼り付ける。
>　　貼り付けると、マクロの登録ダイアログが現れる→キャンセル
>　　ボタンを右クリック→マクロの登録
>　　すでに作っているマクロが表示されるので選択→OK　登録完了
追加
マクロの保存先は、作業中のブックとすること。
これ以外だと、不具合が出るようなことになるかも知れないです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6841 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free