VBAを定型文で覚えよう

最終更新日：2018-03-26

VBAを定型文で覚えよう

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

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

ExcelマクロVBA入門

ExcelVBAとは、エクセルの操作を自動化するマクロ機能で使われているプログラミング言語です。VBAは、「MicrosoftVisualBasicApplications」の略になります。このVBA入門シリーズでは、実務で必要とされるVBAの入門として、基本から応用までのVBA全般を解説していきます。

ExcelマクロVBA再入門

本を読んでも、WEBをみても、結局挫折してしまった方を対象に、VBA再入門と題してExcelマクロの基礎を実践例式で進める連載を開始します、理屈は最低限にとどめ、とにかくVBAが書けるようになることを目的とします。従いまして、ここを卒業出来たら、次はしっかりと基礎から応用までを学びなおす為、VBA入門こちらで復習しつつ、

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

EXCELVBAの自動記録を使って、記録されたVBAコードを読みつつ修正しつつVBAを覚えていこうというシリーズです。VBAをある程度覚えた後にも、マクロの自動記録はVBAコードを調べるときによく使われます、そうした時にも、自動記録はVBAコードはしっかりよめるようになっておきましょう。

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

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

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

ExcelマクロVBA入門

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

エクセルのマクロって何でしょうか？ ExcelのVBAって何でしょうか？「マクロ」とは、エクセルの操作を自動化するものです。その自動化する機能が、「マクロ」と呼ばれています。マクロの中身は、プログラムです。

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

さっそくマクロを作りましょう。と、その前に、準備があります、上部のリボンに、「開発」タブを追加します、「開発」タブには、マクロを開発するにあたって必要なアイコンが並んでいます。※画像は、Excel2013になります。

第3回.マクロの記録

エクセルのマクロを説明する上では、まず最初に、「マクロの記録」を説明しなければなりません。マクロの自動記録とも言われたりしますが、要は、エクセルの手動での操作が、自動記録されるものです、もちろん、マクロの言語であるVBAで記録されます。実際には、マクロの記録から作成されたVBAコードを修正して使う事はしません。

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

さて、ではマクロはどこに書いたらよいのでしょうか。まずは、マクロを書くための紙に相当する編集画面を出します。このマクロの編集画面をVisualBasicEditor、略してVBEと呼びます。「VisualBasicEditor」の表示方法 Excel2007、Excel2010以降リボンの「開発」→「VisualBasic」Excel2003 「ツール…

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

マクロを書き始める前に、ちょっと設定しておいた方が良いオプションがあります。いえ、絶対に設定しておかなければならないVBEのオプション設定です、必ず、最初に設定しておいてください。VBEの「ツール」→「オプション」以下の画面が出ます。

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

それでは、とにかく、マクロを書いてみましょう。sub練習1 と入力し、Enterして下さい、このように、subがSubとなり、後ろに()が付きます。そして、下に、EndSubが追加されます。これがマクロです。

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

それでは前回作ったマクロ、「練習1」を実行してみましょう。マクロを実行する方法は、大きく2通りあります、・VBEの画面で実行・ワークシートで実行その時の都合で、どちらで実行しても構いません。ボタンをクリックすることでマクロが自動実行されるのを見たことがあるかもしれません。

または、
Excelマクロ再入門

第1回.マクロを書く準備をする

マクロを書こうと思ったら、まず初めにマクロを書く準備をする必要があります。と、その前に、ひとつ説明しておくことがあります。エクセルのマクロとVBAという言葉の意味です。「マクロ」とは、エクセルの操作を自動化するもので、その自動化する機能を「マクロ」と呼びます。

第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オブジェクトが複数まとまったものは「Worksheetsコレクション」オブジェクト名が単数形であるのに対し、第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マクロで自動化する場合の多くは、条件により処理を変えつつ一定回数繰り返すという事です。第21回.条件分岐（ElseIf）
Select Case	第22回.条件分岐（Select Case）
Instr	第44回.VBA関数についてワークシートに関数があるように、マクロVBAにも専用の関数が用意されています、このマクロVBA専用の関数をVBA関数と呼んだりします。関数とは、多くの人が共通して必要となる機能（命令）を一塊にしてプログラミング言語として用意されているものです。第45回.VBA関数（Format） VBAのFormat関数は、指定した書式に変換した文字列を返す関数で、ワークシート関数のTEXT関数とほぼ同様の機能になります。Format関数は、非常に使用頻度の高い関数でありマクロVBAにおいては重要かつ必須習得関数です。Format関数はしっかと使えるようにしておきましょう。第46回.VBA関数（日付,DateAdd）データ型の中でも日付時刻はかなり特殊であり、関数の使用は必要不可欠になります。ここでは、日付に関するVBA関数の一覧と、DateAdd関数について解説します。DateAdd関数以外の他の関数は、一覧のリンクより個別のページを参照して下さい。第47回.VBA関数（文字列操作,Replace,InStr,StrConv）文字列操作は、マクロVBAでプログラミングする上で必須です、データ整形、データクレンジング、データクリーニング、これらを行うVBAにおいて不可欠なものが、文字列操作関数です。ここでは、文字列操作に関するVBA関数の一覧と Replace関数、InStr関数、StrConv関数について解説します。第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から実行する・[マクロ]ダイアログボックス・シート上にボタンを配置する・メニュー/ツールバーに登録する・クイックアクセスツールバーに登録する【ここでのポイント】ここは、試験対策としてはあまり重要視する必要はないでしょう。一通りの実行方法を見ておけば答えられる程度の問題しか作りようがないと思います。

課題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の幅を広げていってください。
ただし、
メソッドや関数の引数については無理に暗記する必要はありません。
これらは、必要な時に資料を見るかコピペすれば済むことです。
暗記すべきことは、
基本ステートメントの使い方、ロジックの組み立て方になります。

同じテーマ「VBA技術解説」の記事

複雑な条件（複数除外等）のオートフィルター（AutoFilter）
クリップボードを使わないセルのCopy
Rangeの使い方：最終行まで選択を例に
 フルパスをディレクトリ、ファイル名、拡張子に分ける
 Colorプロパティの設定値一覧
VBAを定型文で覚えよう
VBAこれだけは覚えておきたい必須基本例文10
エクセルVBAでのシート指定方法
 文字列結合&でコンパイルエラーになる理由
 手動計算時の注意点と再計算方法
 VBAの用語について：ステートメントとは

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作

トップ >

マクロVBA >

マクロVBA技術解説 >

VBAを定型文で覚えよう

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA技術解説
VBAを定型文で覚えよう