【Microsoft Excel】マクロ構文

IT

MSGBOX("TEST")

"TEST"と表示（JSのalertみたいなかんじ）

デバッグ用の状況表示によく使う。

あとは終わったかどうかわからないマクロの終了を告げるため等。

 

ワークシートセル内ループ処理

①Dim wk_idx As Integer

②Set WS = Thisworkbook.worksheets("Sheet1")

③wk_idx = 1

④Do While WS.cells(wk_idx , 1).value <> ""

⑤ ' 処理を記述

⑥ wk_idx = wk_idx + 1

⑦Loop

シート内セルの簡易ループ走査。 For使うやり方とかあるけど、 実際のところ大体こんなもんで事足りる

①：走査用の変数（行番号を指定する用）を定義

②：ワークシートオブジェクトを取得

worksheetsの引数にはシート名を指定する

この例では「Sheet1」

③：走査用変数の初期化。

１行目から始めるのでwk_idx = 1

④：前判定whileの開始。

脱出条件は”A列セル内の値が空文字（空白）だったら”

逆に言うと空文字が見つからない限り無限ループする

⑤：なんか処理を書く

別シートへの転記とか、ファイルへの書き出しとかだろう。

⑥：走査用変数のカウントアップ

これ忘れるとA1セルから先に進まないので無限ループになる

（個人的によく忘れるので、そうするとEXCEL皆殺しする羽目に陥る）

⑦：Loopおわり

 

簡易ファイル出力

①Dim ff As Integer

②Dim fn As String

③ff = FreeFile

④fn = "D:\work\test.txt"

⑤Open fn For Output As #ff

⑥Write #ff , "Test"

⑦Close #ff

ファイル出力の簡易例。

①：出力ファイル番号受け取り用変数を定義

②：出力ファイル名設定用変数定義

③：出力ファイル番号設定

④：出力ファイルパス（絶対パス）設定

この例ではD:\work\test.txtに書き出す。

⑤：出力ファイルを書き込みモード（Write）で開く

ちなみに追記モードはFor Outputの部分をFor Appendにする

⑥："Test"と書き出す

ちなみにWriteだと書き込む文字列がダブクォ（"）で囲われて出力される

Print #ff , "Test"だとダブクォはつかない。

⑦：ファイルを閉じる