VBAを定型文で覚えよう｜ExcelマクロVBA技術解説

最終更新日：2018-03-26

VBAを定型文で覚えよう

VBAの書籍を読んでも、ネットの解説記事を読んでも、
なかなかVBAをマスター出来ないという場合は、学習方法が間違っているかもしれません。
その人に合った学習方法、人それぞれ違うのは当然です。

本サイトでも、入門者用として多くのページが存在します。

ExcelマクロVBA入門
ExcelマクロVBA再入門
Excelマクロの記録で覚えるVBA

これらを見ても、読んだときは分かったつもりになんだけど、
いざ、実際にVBAを書こうとすると、
どうやって書いたら良いか…
どこから書いたら良いか…
手が止まってしまうというのなら、学習方法を少し変えてみて下さい。
もちろん、
以下で書いていることが、あなたに合っていない事もあります。
そのように感じたら、別の方法を探してください。

ここで推奨しているのは、一言で言えば、
「定型文を丸暗記しましょう」という事です。

ただし、
最低限としてVBEを開いてマクロを書いて実行できるところまでは覚えておいてください。

ExcelマクロVBA入門
第1回.マクロって何？VBAって何？

エクセルのマクロって何でしょうか？ ExcelのVBAって何でしょうか？「マクロ」とは、エクセルの操作を自動化するものです。その自動化する機能が、「マクロ」と呼ばれています。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

第2回.まずはマクロVBAを使う準備

ではマクロを作りましょう。と、その前に、準備があります。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

第3回.マクロの記録

エクセルのマクロを説明する上では、まず最初に、「マクロの記録」を説明しなければなりません。マクロの自動記録とも言われたりしますが、要は、エクセルの手動での操作が、自動記録されるものです。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

第4回.マクロはどこに書くの（VBEの起動）

さて、では、マクロはどこに書いたらよいのでしょうか。まずは、マクロを書くための紙に相当する編集画面を出します。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

第5回.VBEのオプション設定（Option Explicit）

マクロを書き始める前に、ちょっと設定しておいた方が良いオプションがあります。いえ、絶対に設定しておかなければならないオプション設定があります。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

第6回.とにかく書いて見よう（Sub,End Sub）

それでは、とにかく、マクロを書いてみましょう。sub練習1 と入力し、Enterして下さい。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

第7回.マクロを実行するには（F5）

それでは前回作ったマクロ、「練習1」を実行してみましょう。マクロを実行する方法は、大きく2通りあります、・VBEの画面で実行・ワークシートで実行その時の都合で、どちらで実行しても構いません。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

または、
Excelマクロ再入門
第1回.マクロを書く準備をする

マクロを書こうと思ったら、まず初めにマクロを書く準備をする必要があります。と、その前に、ひとつ説明しておくことがあります。マクロが覚えられないという初心者向けに理屈抜きのやさしい解説

第2回.マクロを書いて動かす

マクロを実際に書いて動かしてみましょう、知識の積み上げも必要ですが、それ以上に必要なのが体験の積み上げです、マクロ習得においては、とにかく書く、とにかく動かす、この経験に勝るものはありません。前回のマクロを書く準備は完了していますよね。マクロが覚えられないという初心者向けに理屈抜きのやさしい解説

まずは、以下の2つのサンプルコードを読んでみて下さい。

Sub sample1()
　　Dim i As Long
　　Dim lastRow As Long
　　Dim cnt As Long
　　Dim wb As Workbook
　　Dim ws As Worksheet
　　Dim shtName As String
　　Set wb = ThisWorkbook
　　shtName = "データ"
　　For Each ws In wb.Worksheets
　　　　With ws
　　　　　　If InStr(.Name, shtName) > 0 Then
　　　　　　　　lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　　　　　For i = lastRow To 2 Step -1
　　　　　　　　　　cnt = WorksheetFunction.CountA(.Rows(i))
　　　　　　　　　　If cnt = 0 Then
　　　　　　　　　　　　.Rows(i).Delete
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　End If
　　　　End With
　　Next
End Sub

Sub sample2()
　　Dim i As Long
　　Dim j As Long
　　Dim ws As Worksheet
　　ThisWorkbook.Activate
　　For j = 1 To Worksheets.Count
　　　　With Worksheets(j)
　　　　　　If .Name Like "*データ*" Then
　　　　　　　　i = 2
　　　　　　　　Do Until .Cells(i, 1) = ""
　　　　　　　　　　Select Case .Cells(i, 1)
　　　　　　　　　　　　Case Is >= 70
　　　　　　　　　　　　　　.Cells(i, 2) = "A"
　　　　　　　　　　　　Case Is >= 50
　　　　　　　　　　　　　　.Cells(i, 2) = "B"
　　　　　　　　　　　　Case Else
　　　　　　　　　　　　　　.Cells(i, 2) = "C"
　　　　　　　　　　End Select
　　　　　　　　　　i = i + 1
　　　　　　　　Loop
　　　　　　End If
　　　　End With
　　Next
End Sub

何をしているかが判読できて、
これくらいならスラスラ書けるよって人は、この下は読む必要がありません。

何とか読めるには読めるけど書く自信がない
そもそも全然わからない
というのなら、以下をじっくり読んでみて下さい。

上図のように、シートが複数あり、
「データ1」「データ2」というよな名前のシートにはデータが入っています。
その他の名前のシート（Sheet1やSheet2）は、説明文等の別の用途に使っています。
そして、「データ○」のシートにはA列に点数が入っています
・途中の空行を削除したい
・点数に応じた評価をB列に出したい
　(70以上はA、50以上はB、その他はC)

上記のVBAコードは、
sample1は、途中の空行を削除しています。
sample2は、点数に応じた評価を出力しています。

sample1について、以下の課題1～課題6をやってみましょう。

課題1

やっている処理内容が理解出来たら、
分からない構文や単語があっても構いませんので、
もう一度VBAコードをじっくり読んでみましょう。

課題2

では次に、分からない構文・単語を調べてみましょう。

完全に理解しようとしなくて良いです。
軽くさっと読む程度でも構いません。
もちろん、じっくり理解してはいけないという事ではありません、
理解できない・覚えられないと思っても先に進んでくださいという事です。

構文・単語の手引き

構文・単語	解説ページ
Dim	第12回.変数とデータ型（Dim）
Workbook	第53回.Workbookオブジェクト
Worksheet	第55回.Worksheetオブジェクト
Thisworkbook	第53回.Workbookオブジェクト
Activate	第27回.ブック・シートの選択（Select,Activate）
Set	第52回.オブジェクト変数とSetステートメント
For Each … Next	第58回.コレクションとは同種のオブジェクトを複数まとめたものを「コレクション」と呼びます、コレクションもオブジェクトの一種です。例えば、Workbookオブジェクトが複数まとまったものは「Workbooksコレクション」Worksheetオブジェクトが複数まとまったものは「Worksheet,Excelマクロの基礎と応用第59回.コレクション処理（For Each）
For … Next	第16回.繰り返し処理（For Next）
Cells(.Rows.Count, 1).End(xlUp).Row	第18回.最終行の取得（End,Rows.Count）
Rows(i).Delete	第29回.セル・行・列の削除・挿入（Delete,Insert）
With … End With	第51回.Withステートメント
If … End If	第20回.条件分岐（If）ある条件の時だけ処理したい事もあれば、条件によって処理内容を変更したい事もあります、条件により処理を分岐させたい場合に使うのが、Ifステートメントです。VBAマクロで自動化する場合の多くは、条件により処理を変えつつ一定回数繰り返すという事です。Excelマクロの基礎と応用第21回.条件分岐（ElseIf）
Select Case	第22回.条件分岐（Select Case）
Instr	第44回.VBA関数についてワークシートに関数があるように、マクロにも専用の関数が用意されています、このマクロ専用の関数をVBA関数と呼んだりします。また、マクロでは、VBA関数だけでなく、ワークシート関数も使えますが、それは、WorkSheetFunctionクラスを使うもので、これについては,Excelマクロの基礎と応用第45回.VBA関数（Format） VBAのFormat関数は、指定した書式に変換した文字列を返す関数で、ワークシートのTEXT関数と同様の機能になります。VBAのFormat関数は、非常に使用頻度の高い関数であり、マクロVBAにおいては必須習得関数です。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説第46回.VBA関数（日付,DateAdd）データ型の中でも、日付時刻はかなり特殊であり、関数の使用は必要不可欠になります。ここでは、日付に関するVBA関数の一覧と、DateAdd関数について解説します。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説第47回.VBA関数（文字列操作,Replace,InStr,StrConv）文字列操作は、プログラミングする上で必須です、データ整形、データクレンジング、データクリーニング、これらを行うVBAにおいて不可欠なものが、文字列操作関数です。ここでは、文字列操作に関するVBA関数の一覧と Replace関数、InStr関数、StrConv関数について,Excelマクロの基礎と応用第48回.VBA関数（その他,Fix,Int,Rnd,Round,IsEmpty）
WorksheetFunction.CountA	第87回.WorksheetFunction（ワークシート関数を使う）
Do … Loop	第17回.繰り返し処理（Do Loop）

構文や単語の理解が少し進んだところで、
もう一度VBAコードをじっくり読んでみましょう。

課題3

次はVBAを書いてみましょう。
上記のVBAコードを見ながら、そのまんま書き写せば良いです。
ただし、
インデント（字下げ）はちゃんとするようにして下さい。
つまり、全く同じように書かなければダメです。

書き方の手順について

Sub ～ End Sub
If ～ End If
Select Case ～ End Select

For ～ Next
For Each ～ Next
Do ～ Loop
With ～ End With

これらは、ブロック構文と呼びます。
ブロック構文は、
最初の行を書いたら、次にはブロック構文の終了文を書いてから中身を書きます。

　　For Each ws In wb.Worksheets
　　　　
　　Next

↓

　　For Each ws In wb.Worksheets
　　　　With ws
　　　　　　
　　　　End With
　　Next

↓

　　For Each ws In wb.Worksheets
　　　　With ws
　　　　　　If InStr(.Name, shtName) > 0 Then
　　　　　　　　
　　　　　　End If
　　　　End With
　　Next

↓

　　For Each ws In wb.Worksheets
　　　　With ws
　　　　　　If InStr(.Name, shtName) > 0 Then
　　　　　　　　lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　　　　　For i = lastRow To 2 Step -1
　　　　　　　　　　
　　　　　　　　Next
　　　　　　End If
　　　　End With
　　Next

↓

　　For Each ws In wb.Worksheets
　　　　With ws
　　　　　　If InStr(.Name, shtName) > 0 Then
　　　　　　　　lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　　　　　For i = lastRow To 2 Step -1
　　　　　　　　　　cnt = WorksheetFunction.CountA(.Rows(i))
　　　　　　　　　　If cnt = 0 Then
　　　　　　　　　　　　
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　End If
　　　　End With
　　Next

インデント（字下げ）には、必ずTabキーを使ってください。

課題4

今度は、単に書き写すのではなく、
何を（どんな処理）を書いているかを考えながら書いてください。

課題5

ステップイン（F8）実行しながら、シートがどのように変化していくかを見つめて下さい。

このように、VBAとバックのシートが同時に確認できるようにして、
VBAコードの実行によって、シートがどう変化していくか、
VBAコードとシートの動きを対比しながら見つめて下さい。

ステップインについては → マクロの実行

・VisualBasicEditorから実行する・[マクロ]ダイアログボックス・シート上にボタンを配置する・メニュー/ツールバーに登録する・クイックアクセスツールバーに登録する【ここでのポイント】ここは、試験対策としてはあまり重要視する必要はないでしょう。Excel VBAエキスパート対策です。合格後の業務改善の実務での活用まで。

課題6

いよいよ、サンプルコードを見ずに書いてみましょう。

途中で分からないところがあっても、分かる所だけでけでも書き進めましょう。

一通り分かる所だけでも書いたら、
サンプルコードと見比べて、分からなかった所、間違ったところを書き直しましょう。

書き終えたら、ステップイン（F8）実行しながら、1行づつ確認しながら進めてみましょう。

課題7

サンプルコードを見ずに書いて、そのままステップイン実行してみましょう。

文法エラーや実行エラーは、自力で解決しましょう。

・文法エラーや実行エラーを解決できない
・実行結果が正しくない
このような場合は、課題6に戻ってください。

エラーなく正しい結果になれば、無事終了です。

sample1が終わったら、次はsample2です。

sample2について、上記の課題1～課題7をやってみましょう。

課題7が完了したら、VBAコード全体を見渡してみて下さい。
なんとなく全体を見渡す感じが良いです。
sample1の課題1で最初に見たときとは、全く違った見え方になっているはずです。

ふと目に止まった1行を見ただけでも、
VBAコードの意味、シートの動き、変数の変化、
これらが頭の中にイメージできるようになってきます。

つまり目標は、
VBAコードを見て、シートの動き・変数の変化が頭の中にイメージできるようになる事です。
頭の中に、ブック、シート、変数これらを用意します。
VBAコードにあわせて、頭の中でこれらを変化させていきます。
これが無理なくできるようになることを目指してください。

この状態は、
VBAを日本語に訳さずに読んでいる状態です。
初心者（VBAを始めたばかりの頃）は、
VBAの命令 ⇔ 日本語に訳す ⇔ 物体・事象を思い浮かべる
この状態から、
VBAの命令 ⇔ 物体・事象を思い浮かべる
この状態になっているという事です。
身近な例で言うなら、
apple ⇔
多くの人は「りんご」という日本語を介さずにイメージしているはずです。
appleという単語に繰り返し何度も触れたことでこのような状態になったという事です。
VBAも繰り返し何度も触れることでこの状態になります。

この段階を過ぎれば、
後は、VBAで使えるステートメント・メソッド・プロパティ・関数を増やしていけば良いだけです。
逆に言えば、
この段階を経ずに、VBAのステートメント・メソッド・プロパティ・関数をいくら覚えても、
実際のVBAコードをスラスラ書けるようにはならないという事です。

ここでの課題で一定の成果があったと感じたら、
いろいろなパターンの良いサンプルコードを見つけて、この課題をやってみて下さい。
そして、使えるVBAの幅を広げていってください。
ただし、
メソッドや関数の引数については無理に暗記する必要はありません。
これらは、必要な時に資料を見るかコピペすれば済むことです。
暗記すべきことは、
基本ステートメントの使い方、ロジックの組み立て方になります。