私がブックを開いたら
MsgboxメッセージボックスやInputBoxインプットボックスをファイルを開くと同時に起動させたい！ということで、調べてみました
よくわからんけどモジュール
これをやるにはコードウィンドウ・モジュール・プロシージャのことを考えることにもつながりました
コードウィンドウはモジュールの土台？ モジュールとはプログラムコードを記述する場所
プロシージャは「VBAではプログラムのことをプロシージャという」調べて理解したかったけど、
ここに書き込めるほど理解できない しゃーない初心者だしね（諦めは早い）
目的のプログラム実行させるには、コードウィンドウにプログラムを実行させる内容に沿ったモジュール（今回は標準モジュールではない）を開きそこにコードを記入する
それはSubから始まる見出しからEndSubで終わり、そのSub～EndsubまでのプログラムをSubプロシージャという（マクロの一つのまとまり）
コード記述の準備
わからなくとも調べた指示の通りにやってみよう！！そしたらいつか理解はできる！
ExcelBookを開く→VBE（alt + F11)→画面左上側のプロジェクトエクスプローラで「ThisWorkbook」(この時はオブジェクトモジュール)を右ワンクリックし「コードを開く」を指定しコード記入部のシートの上の「General」→「Workbook」
「Declarations」→「Open」
に変えて 表示されたPrivateSub内にコードを書く
遊び心のあるメッセージボックス
Private Sub Workbook_Open()
MsgBox “やっほー”
End Sub
短いコードだけどできました～♪ このファイルを開くとかわいらしく「やっほー」と一言声をかけてくれる癒しのExcelファイルに早変わり、ただ無言で開くファイル時代は終わったのです。
でじじぃ今日はタイ料理って言ってたのに忘れて定食屋に魚食べに行こうとしてる様子をそっと見守る
悪だくみはほどほどに
Private Sub Workbook_Open()
MsgBox “はい”
MsgBox “見たね…”, vbYesNo
MsgBox “はい、見てるね”, vbYesNo
MsgBox “あなた まだ見てるね”, vbYesNo
Dim i As Integer
Dim Name As String
For i = 1 To 5
Name = InputBox(“おなまえは？”, “おしえて”)
Cells(i, 1).Value = Name
i = i – 1
Next i
End Sub
お分かりいただけたであろうか、、、、
少し考えればわかったことなのに、考えなしにやった結果 一つのミスで完璧なホラーを作り上げることができました。ほんとに小さな悲鳴でた
For~Nextで５回繰り返す設定にしたけど欲を出してループ増やしたれと i = i -1 出来心でいれました
よく考えれば1から５まで繰り返す指示なのにこの位置でマイナス１とするということは、永遠に２回目は来ず、ずっと１回目を繰り返せとなるわけで… うっかりミスで起ったループ 強制終了で無事に閉じました
コメント
コメント一覧 （3件）
すごい努力だね。
これは努力とは言えない(^^;)
すごい根性だね。