![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_12.png?e8efa67)
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。特にものすごく怒られたときとか、とんでもない損害を与えてしまったときとか…。
-
Access レポートプレビュー時に右クリックを禁止させる方法
Excel(エクセル)
-
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
-
4
アクセス フォーム上で右クリックを無効にしたい
Access(アクセス)
-
5
Accessで独自メニューバーまたはリボンを作成したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 強制終了してしまう
-
Accessが強制終了する理由はな...
-
ACCESS VBA でのエラー解決の根...
-
access2019の起動が遅い
-
Accessのクエリで、replace関数...
-
accessデータを指定したExcel、...
-
Accessというソフトで、生年月...
-
Accessのテキストボックスの入...
-
Access VBA を利用して、フォル...
-
Access IF文でテーブルに存在し...
-
Microsoft365にAccessってあり...
-
実行時エラー3131 FROM 句の構...
-
Access Error3061 パラメータが...
-
accessのフォームに設置したボ...
-
AccessVBAで任意の複数リンクテ...
-
Dlookupにエラーがでてしまう
-
Vba Userformを前面に出すについて
-
VBA。リストボックスの値を別の...
-
Accessのリンクテーブルのパス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで、右クリックメニューの項...
-
怪しい? 無料2次元CAD
-
本人の許可なく宗教団体に入会...
-
綿100%の軍手ってどこで安く売...
-
フェリシモ返品にクリックポス...
-
ヤフーのニュースにコメントし...
-
通販生活のお客様番号を忘れて...
-
ジモティーで身分証2点の提出で...
-
valorant コンペについて コン...
-
フリマサイト楽天ラクマの本人...
-
Yahoo! Japan IDを携帯電話番号...
-
トレーニングでできたマメについて
-
guとUNIQLOともう一つあるそう...
-
モノタロウやミスミって個人で...
-
切粉のついた作業服・軍手の洗...
-
通販のカタログを断りたいのですが
-
仮登録に退会はありますか?
-
このサイトの退会方法を教えて...
-
【セオリー】の使い方
-
777タウンを退会したのですが・...
おすすめ情報