エクセルでマクロを作ってみましょう（修正編）


エクセルのマクロを修正して実行してみましょう。

マクロのプロシージャ名を「cmd実行_Click」、メッセージを「マクロ完成！！」とするとします。

この「cmd実行_Click」の中を差し替えるだけで色々なマクロを作成する事が出来るのです。
ここでは、既に記述されている「マクロ完成！！」というメッセージを「マクロの修正完了！！」というメッセージに変えてみるという修正をしてみます。
修正方法
１．エクセルのメニュー→「ツール」→「マクロ」→「Visual Basic Editor」で選択をします。
２．VBEが画面上に表示されたところで、msgboxの中身を変えて見ましょう
　　・修正前
msgbox 　"マクロ完成！！"
End Sub
　　・修正後
Private Sub cmd実行_Click()
End Sub
３．デザインモードを終了してエクセルの画面に戻り、ワークシート上に作成していたコマンドボタンをクリックします。（ここではコマンドボタンでなくても、セルに直接マクロ名を指定しても大丈夫です。）
４．「マクロの修正完了！！」というメッセージが出たら成功です！
５．作成したマクロが入っているファイルはマクロのテスト用にも仕えますので、テスト用.xlsという名前をつけてファイルを保存して置いてください。




スポンサード リンク

スポンサード リンク

エクセルでマクロを作ってみましょう


まず手始めに簡単なマクロをご紹介しますので一緒に作ってみましょう。

【例題】
ワークシート上にあるコマンドボタンを押し、「マクロ完成！！」というメッセージを出力しましょう。

上記の例題はメッセージを出すだけと言う非常に簡単なマクロですが、もっとも役に立つマクロです。このメッセージ部分を変えるだけでいろんな事に使えるようになります。


１．ワークシート上にコマンドボタンを作成する
　・コマンドボタンを置きたいエクセルファイルを開きます。
　・メニュー→「表示」→「ツールバー」→「コントロールツールボックス」→「コマンドボタン」を選択します。
　・コマンドボタンを配置したい場所に配置します。（このときコマンドボタン上には「CommandButton1」と表示されているはずです。
２．コマンドボタンのプロパティの変更
　・コマンドボタンの表示名を「実行」に変えてみましょう。
　　「プロパティ」→「Caption」の所を「実行」に変更します。（これでボタンの見た目は「実行」に変わります。）
　・実行するマクロを指定します。

３．プログラム（マクロ）を記入してみましょう。
　・ワークシート上の「実行」ボタンをダブルクリックすると、Visual Basic Editor（VBE)が開きます。
　　このときEditor上にはSheet1(Sheet1)に「cmd実行_Click」という名前で空のプロシージャが作成されています。
Private Sub cmd実行_Click()
msgbox 　"マクロ完成！！"
End Sub
　・ツールボックス→「デザインモードの終了」でプログラム作成終了です。
４．マクロの実行
　・「ファイル」→「終了してマイクロソフトエクセルに戻る」でワークシートの画面に戻る。
　・画面上の「実行」ボタンをクリックしてみてください。ここで「マクロ完成！！」というメッセージボックスが出たら成功です。





Excelマクロウイルスとは？


Excelマクロウイルスというのは、エクセルのプログラムフォルダ（モジュール）内にある「XLStart」というフォルダの中にウィルスのワークシートを作成することで感染するというものです。
ウィルスに感染しないためにはまず最初に「XLStart」フォルダ内にあるワークシートがウィルスワークシートでないことを検査して確認しておく必要があります。何故かというと「XLStart」フォルダにあるワークシートファイルはエクセルの起動時に自動的に開かれるのでエクセルが開いたと同時に感染してしまう危険性があるからです。

「XLStart」フォルダ内に作られるウィルスのファイル名ですが、Larouxウィルスに関しては「personal.xls」または「pldt.xls」ファイル名で作られるし、Ninjaウィルスに関しては「Ninja.xls」等のファイル名で作られます。このウィルスファイルがフォルダ内に存在するかどうかの確認ですが、エクスプローラで確認することが出来るのでエクセルと開く前に確認して削除してから使用することが重要になります。

１．メニューの［ツール（T）］→［マクロ（M）］を選択
２．ダイアログボックスが開いたら「auto_open」「check_files」のマクロを一つずつ「削除(D)」で削除してください。
３．このときシートが非表示の場合には削除処理が行えないので、メニューの［ウィンドウ］→［ウィンドウ再表示］で表示させてから削除するようにしてください。