Excel VBA質問箱 IV

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

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


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

【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 -

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

【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 登録完了
追加
マクロの保存先は、作業中のブックとすること。
これ以外だと、不具合が出るようなことになるかも知れないです。

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