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ランキング
-
特殊文字を使った顔文字をExcel...
-
本人の許可なく宗教団体に入会...
-
スマホ(iPhone 14 Pro)で、軍手...
-
ラクマの生年月日はどのような...
-
安くてかわいくてオシャレなイ...
-
通信販売ベルーナどう思いますか?
-
e+に登録出来ない
-
ラクマでネックレスを出す時は...
-
gooのIDとパスワードは変更でき...
-
TBCギフト券のことで教えてくだ...
-
「ネックレス(トップつき)」...
-
yuモバイル決済日
-
通販のカタログを断りたいのですが
-
Yahoo! Japan IDを携帯電話番号...
-
全体的に安く、送料も比較的低...
-
石油ストーブのタンクのふたが…。
-
777タウンを退会したのですが・...
-
IDを変えて登録したけどニック...
-
ラクマで生年月日を間違え問い...
-
むれない軍手を探しています。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで、右クリックメニューの項...
-
ETAS登録の確認について
-
Forex-TSDについてですけど、無...
-
特殊文字を使った顔文字をExcel...
-
本人の許可なく宗教団体に入会...
-
綿100%の軍手ってどこで安く売...
-
溝掃除って大変ですか。
-
モノタロウやミスミって個人で...
-
ジモティーで身分証2点の提出で...
-
このサイトの退会方法を教えて...
-
フェリシモ返品にクリックポス...
-
valorant コンペについて コン...
-
yuモバイル決済日
-
安いメンズ服の通販サイト
-
通販のカタログを断りたいのですが
-
ヤフーのニュースにコメントし...
-
トレーニングでできたマメについて
-
フリマサイト楽天ラクマの本人...
-
ACCESSがクラッシュ?
-
軍手の穴あきを防止するには
おすすめ情報