はじめに
セルの範囲を指定して、数式を一括入力！
イミディエイトウィンドウとは、VBA（Visual Basic for Application）を利用する時に使うVBE（EXCELなどに付属しているプログラムの開発環境のエディター/Visual Basic Editor）で使用することができる機能で、主にコードの実行結果を試すなど、デバッグする時に使うものです。
イミディエイトウィンドウにVBAコードを書いて、一気に処理する方法を説明しています！
今回は、「セルの範囲に種類の違う値や数式を一括で入力」方法です。
同じ値や数式を一括入力する方法はこちらをどうぞ
↓イミディエイトウィンドウの立ち上げ方などはこちら
使い方
前提：サンプルの筋トレ記録をします。
１回目：腕立て伏せ（１０回）、腹筋（１０回）
２回目：腕立て伏せ（１５回）、腹筋（２０回）
３回目：腕立て伏せ（２５回）、腹筋（１０回）
D列にはそれぞれ合計をする数式を入力します。
※そんなことする機会が無いという話は一旦置いといて下さい。
コード
ちゃんとしたコード
Range(“B2:D4”).Value = Evaluate(“｛10,10,””=sum(B2:C2)””; 15,20,””=sum(B3:C3)””;25,10,””=sum(B4:C4)””}”)
省略コード
[B2:D4] = [｛10,10,”=sum(B2:C2)”;15,20,”=sum(B3:C3)”;25,10,”=sum(B4:C4)”}]
２つとも同じです。
入力画面
「Alt ＋ F11」でVBEを開きます。イミディエイトウィンドウに上記のコードを入力して「Enter」で実行して下さい。
実行動画
結果画面です。
縦や横に同じものを入れたい場合は
最初はこういう状態になってる方が多いですかね。
D列とE列にそれぞれ、合計と平均を一気にいれてみましょう。
ちゃんとしたコード
Range(“D2:E4”).value = Evaluate(“｛””=sum(B2:C2)””,””=average(B2:C2)””}”)
省略コード
[D2:E4] = [｛”=sum(B2:C2)”, “=average(B2:C2)”}]
２つとも同じです。区切りが「,」なので注意
※ちなみに、「value」でも「Formula」でもどっちでも良いですよ。
横の場合。
ちゃんとしたコード
Range(“B5:C6”).value = Evaluate(“｛””=sum(B2:B4)””;“”=average(B2:B4)””}”)
省略コード
[B5:C6] = [｛”=sum(B2:B4)”;”=average(B2:B4)”}]
２つとも同じです。区切りが「；」なので注意
まとめ
まぁ、使う機会はないですね。。。笑
通常は、右辺に一つの値や数式を入れますが、こんかいの様に種類の違う値や数式を入れる場合は、右辺を配列にすることで可能になります。ちゃんとしたコードでは、Evaluateメソッドを使用して２次元配列を作成しています。
セルの範囲と２次元配列の大きさが一致してないと出来ないのでその点だけ注意して下さい！
オススメの本
VBAはこの本きっかけだったな～
コメント