自作関数をメニューボタン表示

質問

自作関数で消費税を作作成しました。
Function 消費税(金額)
消費税 = Int(金額 * 0.05)
End Function
Excelで表を作成して、セルに関数を入力しておりましたが、
VBAで作成したいと考え、教本で作成しました。
使用頻度が高いので、メニューボタン（もしくはツールボタン）に作成したいのですが、可能でしょうか。
よろしくお願いします。

回答No.1

imogasi · ベストアンサー

質問者には先の課題のように思う。
まずはシートのコマンドボタンクリックイベントなどから始めるべきだろう。
丸投げ質問（ボタンをどこまで調べたのか、書いてない）である。コードをコピーして実行してみる、から入るより仕方がない。
ただし田中先生の
http://officetanaka.net/excel/vba/tips/tips54.htm
など、判りやすいコードが有るので勉強のこと。
VBAの市販解説書にも、半数には載っていると思う。
ーーー
標準モジュールに
Sub Sample2()
Dim myBar As CommandBar
Dim myButton As CommandBarButton
Set myBar = CommandBars.Add
Set myButton = myBar.Controls.Add '新しいボタンを追加します。ツールバーの枠だけ作られる
myButton.FaceId = 463 'ボタンが追加される
myButton.OnAction = "myMacro" 'ボタンがクリックされたとき実行するマクロを設定します
myBar.Visible = True
End Sub
Sub myMacro()
MsgBox "税計算します"
消費税 'メイン処理するモジュール
End Sub
Sub 消費税()
ActiveCell.Offset(0, 1) = Int(ActiveCell * 0.05)
End Sub
＝＝＝＝
上記はあるセルをアクチブにして、ボタンを押すと、同行隣列に消費税金額をセットする内容になっている。
＝＝＝＝
ほかに
Googleででも、「FaceID」のことを照会して勉強のこと。

お礼

imogasi 様
早速のご回答ありがとうございました。
コマンドボタンは作成しております。
一度、教本でボタン作成したことがありましたが、・・・
田中先生のコーナーも活用さしていただきます。
FaceIDも参照して勉強いたします。
大変参考になり、また、VBAに興味も持ち、楽しく学習できると思います。
50才から始めましたので、なかなか覚えが悪くて、また、機会がありましたらよろしくお願いします。