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ランキング
-
ETAS登録の確認について
-
本人の許可なく宗教団体に入会...
-
綿100%の軍手ってどこで安く売...
-
石油ストーブのタンクのふたが…。
-
たとえば123って3桁って言いま...
-
ラクマというアプリで商品を出...
-
guとUNIQLOともう一つあるそう...
-
Jookeyの退会方法
-
業務用の冷凍庫で作業する時、...
-
通販会社のギフト券(お買い物...
-
内径22cmの塩ビ系のパイプ
-
通販生活のお客様番号を忘れて...
-
valorant コンペについて コン...
-
ディノスでとことん安く買う方法
-
日本の携帯電話番号でSMS認証が...
-
ラクマの発送方法を普通郵便か...
-
「ネックレス(トップつき)」...
-
Twitterの2段階認証でアプリでQ...
-
モノタロウやミスミって個人で...
-
通販(毎月届くやつ)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで、右クリックメニューの項...
-
特殊文字を使った顔文字をExcel...
-
ETAS登録の確認について
-
本人の許可なく宗教団体に入会...
-
モノタロウやミスミって個人で...
-
yuモバイル決済日
-
フェリシモ返品にクリックポス...
-
溝掃除って大変ですか。
-
綿100%の軍手ってどこで安く売...
-
ヤフーのニュースにコメントし...
-
ジモティーで身分証2点の提出で...
-
ジモティーのメッセージでLINE...
-
石油ストーブのタンクのふたが…。
-
valorant コンペについて コン...
-
通販生活のお客様番号を忘れて...
-
guとUNIQLOともう一つあるそう...
-
Twitterの2段階認証でアプリでQ...
-
【セオリー】の使い方
-
たとえば123って3桁って言いま...
-
切粉のついた作業服・軍手の洗...
おすすめ情報