標準モジュールにコピーして、実行・・・??

質問

エクセルＶＢＡ初心者です。
ＶＢＡを勉強すべく関連サイトを見て勉強しようと思ったのですが、
早くもつまづいてしまいました。

コードの例で、
『下記を標準モジュールにコピーして、実行してみてください。』
とあるのですが、
新しいエクセルブックを開いて標準モジュールに、ここでいう
"下記"部分をコピペしたところまでは良かったのですが、その先の
"実行"の仕方が分かりません。

初心者な質問でお恥ずかしいのですが、どなたか教えてください。
お願いします。

回答No.2

noname#70958 · ベストアンサー

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page01.htm
に記載されているコードだと思いますが、おそらく(そのサイトの)記述ミスです。

本来
'----------------------------↓　ココカラ　↓----------------------------
　'[ 呼び出し元 Sub プロシージャ ]
　　Sub Shouhizei()
　　　　Dim Kingaku As Long, Zeigaku As Long
　　　　Kingaku = InputBox("金額を入力してください。")
　　　　Zeigaku = Zeikinkeisan(Kingaku)　　 'Function プロシージャのマクロ名
　　　　MsgBox "消費税は " & Zeigaku & " 円です。"
　　End Sub

　'[ Function プロシージャ ]
　　Function Zeikinkeisan(Kingaku As Long) As Long
　　　　Zeiritsu = 0.05
　　　　Zeikinkeisan = Int(Kingaku * Zeiritsu)
　　End Function
'----------------------------↑　ココマデ　↑----------------------------
とでもすべきコードかと思います。

当該サイトの良否についてはコメントを控えますが、
個人的にお奨めできるサイトを挙げておきます。

■☆ Excelでお仕事！(Excel全般の解説サイト) ☆
http://www.asahi-net.or.jp/~ef2o-inue/top01.html

■moug モーグ
http://www.moug.net/index.html
※定番サイトですが、学習ページは再編成中のようです。

以上ご参考まで。

お礼

そうです！このサイトです！！
ありがとうございました。
できました。

まだ知識不足のためコードの誤りにも気付くことができませんでした。
教えていただいたサイトも見ながらもっともっと勉強します！

また分からないことがあったら宜しくお願いしますm(_ _)m

回答No.1

Turbo415

一度×ボタンでエディターを閉じて、エクセル画面でツール→マクロとやると、作成したマクロの一覧表が出ますので、実行したいマクロを選んで実行ボタンを押せばいいです。

お礼

コピペに指定された部分というのが下記のコードなのですが、
マクロの一覧を開いても登録されたマクロがひとつもない状態です。
どうすればよいのでしょう？

　'[ 呼び出し元 Sub プロシージャ ]
　　Sub Kingaku As Long ,Zeigaku As Long
　　　　Kingaku = InputBox("金額を入力してください。")
　　　　Zeigaku = Zeikinkeisan(Kingaku) 　　'Function プロシージャのマクロ名
　　　　MsgBox "消費税は " & Zeigaku & " 円です。"
　　End sub

　'[ Function プロシージャ ]
　　Function Zeikinkeisan(Kingaku As Long) As Long
　　　　Zeiritsu = 0.05
　　　　Zeikinkeisan = Int(Kingaku * Zeiritsu)
　　End Function