No.2
- 回答日時:
ボタンから呼び出すプロシージャを 3つとも別のものにして、そこから共通のプロシージャを呼び出すとか。
Public Sub aaaa(aButtonName As String)
MsgBox aButtonName
End Sub
Public Sub AddClicked()
Call aaaa("登録")
End Sub
Public Sub SaveClicked()
Call aaaa("保存")
End Sub
Public Sub ExitClicked()
Call aaaa("終了")
End Sub
No.1
- 回答日時:
実際では使ったことないが、3つぐらいなら
Sub AddMenu()
Dim Newb1
Set Newb1 = Application.CommandBars("Cell").Controls.Add()
With Newb1
.Caption = "登録"
.OnAction = ""
.OnAction = "Sample1"
.BeginGroup = False
End With
Dim Newb2
Set Newb2 = Application.CommandBars("Cell").Controls.Add()
With Newb2
.Caption = "保存"
.OnAction = ""
.OnAction = "Sample2"
.BeginGroup = False
End With
Dim Newb3
Set Newb3 = Application.CommandBars("Cell").Controls.Add()
With Newb3
.Caption = "終了"
.OnAction = ""
.OnAction = "Sample3"
.BeginGroup = False
End With
End Sub
Sub Sample1()
MsgBox "登録"
End Sub
Sub Sample2()
MsgBox "保存"
End Sub
Sub Sample3()
MsgBox "終了"
End Sub
上記は、私の好みで、それぞれ別プロへ飛ぶようにしました。
.OnAction = "" は登録をクリアするために要りそうなので入れました。
3セットを1セットで記述する方法もありそうだが、配列などもつかえるかどうかわからないので、似たもの3回繰り返しました。
なお、間違って登録したものの削除が必要な場合は
Sub test1()
For i = 1 To 2
Application.CommandBars("cell").Controls(i).Delete
Next i
End Sub
でできるようだか、0から開始かもしれない。
i は、現表示の何番目のメニューかを指定をすることになるようです。間違えないようにしないと、やり直しが効かないと思う。
一応テスト済み。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) 【ExcelVBA】動的にボタン、ボタン名を生成できますか? 7 2022/04/08 12:54
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) VBAで「クエリと接続」の画面を出せますか? 2 2022/10/24 13:35
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで、右クリックメニューの項...
-
ETAS登録の確認について
-
電子入札の利用者登録について
-
本人の許可なく宗教団体に入会...
-
買い物に失敗し 返品不可 メル...
-
ジモティーで身分証2点の提出で...
-
綿100%の軍手ってどこで安く売...
-
シニア向けファッションの通販...
-
ブラインドの手入れ
-
ジモティーのメッセージでLINE...
-
【セオリー】の使い方
-
名前の変更は?
-
こんな物作ってほしいと思った...
-
フリマサイト楽天ラクマの本人...
-
guとUNIQLOともう一つあるそう...
-
何でか分からないけど…… 多分、...
-
洋服ブランド・tennen フェリシモ
-
ACCESSがクラッシュ?
-
ネットショッピングやアプリの...
-
ラクマの発送方法を普通郵便か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで、右クリックメニューの項...
-
ETAS登録の確認について
-
Forex-TSDについてですけど、無...
-
特殊文字を使った顔文字をExcel...
-
本人の許可なく宗教団体に入会...
-
綿100%の軍手ってどこで安く売...
-
溝掃除って大変ですか。
-
モノタロウやミスミって個人で...
-
ジモティーで身分証2点の提出で...
-
このサイトの退会方法を教えて...
-
フェリシモ返品にクリックポス...
-
valorant コンペについて コン...
-
yuモバイル決済日
-
安いメンズ服の通販サイト
-
通販のカタログを断りたいのですが
-
ヤフーのニュースにコメントし...
-
トレーニングでできたマメについて
-
フリマサイト楽天ラクマの本人...
-
ACCESSがクラッシュ?
-
軍手の穴あきを防止するには
おすすめ情報