パソコン裏技道場　師範　派祖混蔵

ファイルを開くとメッセージが出る技じゃ！

エクセルのファイルを開いた時や閉じる時にメッセージを出す方法じゃ。

例えば、ファイルを開いたら「おはよう。今日もがんばれよ！」とメッセージ

が出たらおもろいじゃろう？


方法はきわめて簡単じゃ。


エクセルのファイルを開いたら、一番上のツールバーから

「ツール」→「マクロ」→「Microsoft Visual Basic」の順にクリックすると

Microsoft Visual Basic の画面が開く。

こんな画面じゃ↓↓↓
http://pcurawaza.meruta.info/images/220.jpg


左のウィンドウが出てない時は 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にその数字が入力されるという訳

じゃ。



どうじゃな？　いろいろと応用はできんかな？？

パソコン救急隊・業務日誌

パソコン救急隊、出張サポート、ｅ−太陽堂 茨城県南、千葉県北をサービスエリアにパソコン出張サポート。 パソコン救急隊などでの出来事を記録するつも...

PCフリーソフト ― 無料でいこう！

パソコンは買っただけではただの箱です。この箱にあなた好みのソフトを入れていくことで、 あなたのオリジナルパソコンが出来あがっていきます。 ウ...

超ビギ・パソコン教室

「超ビギナーのためのパソコン教室」を開いていて、実際に出てくる、疑問、質問、知っておいてほしいことなどを回覧板のように回していきます。 日頃の、質...

flap software　ニュース

flap softwareのニュースをお届け！

失敗＆後悔しない中古パソコン購入術！

「中古パソコンを用途別に選ぶ方法」や「中古パソコン購入時の注意点」などの情報を中古パソコン購入ナビゲーションに合わせて配信していきます。

この記事へのコメント

おすすめカードローン！

オリックスＶＩＰローンカードなら

<<年率5.9％〜15.0％、利用可能枠最高500万円>>
ゆとりのカードローンです。
お申込みはこちら⇒

melma!協賛企業