意味不明のタイトルじゃが、エクセルのファイルを開いた時や閉じる時にメッセージを出す方法じゃ。
恋文を出せば面白いと思ってタイトルにしただけじゃ。
例えば、ファイルを開いたら「実はずっと以前からあなたが好きでした!」とメッセージが出たらおもろいじゃろう?
方法はきわめて簡単じゃ。
エクセルのファイルを開いたら、一番上のツールバーから
「ツール」→「マクロ」→「Microsoft Visual Basic」の順にクリックすると
Microsoft Visual Basic の画面が開く。
こんな画面じゃ↓↓↓画像をクリックすると拡大するぞい!
左のウィンドウが出てない時は Microsoft Visual Basic の表示から「プロジェクトエクスプローラー」をクリックすれば現れるぞい。
左のウィンドウから「ThisWorkbook」をクリックする。
上の(General)となっているプルダウンメニューから「Workbook」を選択して、右側のプルダウンメニューを開けば、「Open」を選ぶ。
この「Open」がファイルを開く時という意味じゃ。
他にも、
「BeforeClose」が閉じる前、
「BeforePrint」が印刷する前
「SheetSelectionChange」は選択したところが変更された時
に実行されるという意味じゃ。
「Open」を選択すると下のような文字が現れたはずじゃ。
------------------------------------------
Private Sub Workbook_Open()
End Sub
------------------------------------------
この真ん中の行に
Msgbox"おはよう!今日も一日ガンバロー"
と入力してみよう。
こんな感じじゃな?
↓↓↓↓
------------------------------------------
Private Sub Workbook_Open()
Msgbox"おはよう!今日も一日ガンバロー"
End Sub
------------------------------------------
入力が終わったら一旦このファイルを保存してもう、もう一度開いてみるのじゃ。
どうじゃ? メッセージが出たかの?
他人に何かエクセルファイルを送った時に、メッセージボックスに挨拶文を入れておくというのも気が利いていると思うぞ。
応用としてインプットボックスを使う手もある。
こんな感じじゃ↓↓↓。
------------------------------------------
Private Sub Workbook_Open()
Range("A1") = InputBox("あなたの年齢を入力して下さい。")
End Sub
------------------------------------------
ファイルを開くと別ウィンドウが開いて「あなたの年齢を入力して下さい」とメッセージと入力欄が出てくる。
ここに数字を入れて「OK」を押すとセルA1にその数字が入力されるという訳じゃ。
どうじゃな? いろいろと応用はできんかな??