数式を値に固定してついでに#N/Aも消すマクロ

数式を値に固定したあと、#N/Aエラーを消去するマクロを紹介します。何がやりたいかは明らかですね(笑)お忙しい方は、ソースコードをコピーして、使い方例のように実行しちゃえばOKです。コードをしっかり読みたい方は、解説もどうぞ。

2020-07-30

Elseの中にメインコードを書かない

「If 開始条件=False Then 警告 Else メインコード Endif」と書いているマクロは、ExitSub EndIfと一旦If文を閉じることで、メインの処理をElse内に書かずに済みます。メインコードのインデントが1つ減りますし、終わった話は終わったと明示しましょう。

2020-07-27

セル範囲の数式をコピーする - Range.Formula

Range・Cells 基本の書き方シート関数・VBA関数 VBA

セルに入力されたシート関数を、VBAを使って別のセル範囲へコピーする方法を紹介します。D2=B2*C2と入力し、これをD列全体にコピーするには、そもそもコピーする必要もなく一気に「Range("D2:D7").Formula = "=B2*C2"」でOKです。

2020-07-26

セル範囲の値だけをコピーする - Range.Value

Range・Cells 基本の書き方 VBA

セルの値だけを、範囲から範囲へコピーする方法を紹介します。A1:C3の正方形を、D4:F6にコピーするコードは、実は「Range("D4:F6").Value = Range("A1:C3").Value」で済みます。「値貼り付け」より速くて読みやすいので、こちらを使いましょう。

2020-07-25

If～Else～EndIfを1行で書く - IIf関数

シート関数・VBA関数基本の書き方 VBA

便利なのに知名度のイマイチな関数「IIf関数」を紹介します。IIf([条件式], [Trueのときの値], [Falseのときの値])と書きます。IIf関数は初めて見る方でも、()の中身はよく見たことがあると思います。早い話、「シート関数のIF」が、IIf関数です。

2020-07-25

固定のセル(Range)を定数(Const)で定義する

Range・Cells 基本の書き方変数・定数読みやすいコードの書き方 VBA クラスモジュール

「固定セルを定数で扱いたい！」という場面は結構多いです。データシートの上部に固定された、「対象月」や「更新日」のセルとかですね。常に同じRangeオブジェクトをくれる定数がほしいのですが、Constではできませんので、別の方法を使います。

2020-07-24

セル範囲のコピー&ペーストに非表示のセルは含まれる？

VBAの落とし穴 Range・Cells VBA

セル範囲をコピーした場合、オートフィルターで抽出していないレコードはペーストされません。しかし、非表示にしている列はペーストされます。この仕様の違いは、知っている方も多いのではないでしょうか。では両方がかかっているデータをコピーすると…？

2020-07-23

For Each ○ In Range はセルごとのループとは限らない

VBAの落とし穴 Range・Cells 分岐・ループ構文 VBA

落ちると抜け出せなくなるVBAの落とし穴です。For EachでRangeオブジェクトをループしたとき、全セルが処理されない。Rangeオブジェクト.Countがセルの数を返さない。あたりにお悩みの方は、この落とし穴に落ちていないかご確認ください。

2020-07-22

マクロの速度は追求すべきものだけを追求すべし

マクロの高速化入門・まとめ VBA

マクロの速度はどこまで気にするべきか？というテーマです。マクロの早さが気になってキリがないよ～に陥っていた人は、「早くする意味のないマクロ」「早くしても無駄な処理」を意識すると、早さと読みやすさのバランスが取れるようになります。

2020-07-21

If文は判定回数より読みやすさを最適化すべし

読みやすいコードの書き方分岐・ループ構文マクロの高速化 VBA

コードの読みやすさと処理速度のバランスに関するお話です。テーマは「Ifの判定回数にどれだけこだわるか」です。単純な比較時間は、実はほとんど0で、別にIfは重複しても問題ありません。Else地獄に陥らないよう、読みやすさを追求していきましょう。

2020-07-20

For文をたくさん分割しても処理は遅くならない

読みやすいコードの書き方分岐・ループ構文マクロの高速化 VBA

マクロの処理速度に関するお話です。今回のテーマは「錯覚しやすいForステートメントの処理速度」です。For R = 1 To 10000 処理A,B,C,D Nextは、For R = 1 To 10000 処理A Next × 4個に分けても、「Rに1を足す×30000回」しか処理の内容に差がありません。