【2026年7月最新】VBAのDim変数宣言完全ガイド｜データ型・スコープ・Option Explicit・Claude Code活用法

この記事の内容

1. 01VBAの変数とは？基本と役割
2. 02VBAのデータ型一覧：Integer・Long・String・Boolean等
3. 03Dim文で変数を宣言する基本構文
4. 04変数名の命名規則とベストプラクティス
5. 05Option Explicitで変数宣言を強制する
6. 06変数の初期化と代入：値を入れて使う方法
7. 07変数のスコープ（有効範囲）：プロシージャ・モジュール・Public
8. 08配列変数の宣言と使い方
9. 09VBA変数でよく起きるエラーとデバッグ方法
10. 10Claude CodeでVBAの変数設計・マクロ生成を効率化する
11. FAQよくある質問

📚 用語解説

変数（Variable）：プログラムで計算途中の値や処理で繰り返し使う値を格納するための名前付きメモリ領域。「変数名 = 値」で値を格納し、「変数名」として参照する。VBAではDim文で変数を宣言してから使うのが正しいルール。変数に格納できるデータの種類（整数・文字列・日付等）を「データ型」と呼ぶ。変数はプロシージャ（Sub/Function）が終了すると内容が消える（スコープに依存）。

' 変数を使わない場合（読みにくい）
Sheet1.Cells(1, 1).Value = Sheet1.Cells(2, 1).Value + Sheet1.Cells(3, 1).Value + Sheet1.Cells(4, 1).Value

' 変数を使った場合（読みやすい）
Dim totalSalary As Long
totalSalary = Sheet1.Cells(2, 1).Value + Sheet1.Cells(3, 1).Value + Sheet1.Cells(4, 1).Value
Sheet1.Cells(1, 1).Value = totalSalary

📚 用語解説

IntegerとLongの違い：どちらも整数を格納するデータ型だが、扱える数値の範囲が違う。Integerは-32,768〜32,767（約3万）、Longは-2,147,483,648〜2,147,483,647（約20億）。Excelの最大行数は1,048,576（約100万）なので、行番号を格納する変数はIntegerではオーバーフローするためLongを使う必要がある。VBAの実行速度は32bit環境ではIntegerよりLongの方が速いとも言われ、迷ったらLongを使うのが実務の経験則。

' データ型の宣言例
Dim i As Integer          ' ループカウンタ（小さい整数）
Dim rowCount As Long       ' 行数（Integerでは溢れる可能性）
Dim price As Double        ' 金額（小数点が必要な場合）
Dim userName As String     ' 氏名
Dim isActive As Boolean    ' フラグ（True/False）
Dim targetDate As Date     ' 対象日付
Dim ws As Worksheet        ' ワークシートへの参照
Dim anything As Variant    ' 型不明（多用を避ける）

VBAの変数宣言でデータ型を省略（「Dim x」のみ）すると自動的にVariant型になります。Variantは便利ですが最も多くのメモリを使い、実行速度が遅くなります。大量データを扱うループでVariantを使うと著しく遅くなるため、可能な限り適切なデータ型を明示してください。

' 基本構文
Dim 変数名 As データ型

' 例
Dim userName As String
Dim count As Long
Dim price As Double
Dim isValid As Boolean

' 初期値（宣言直後のデフォルト値）
' Numeric型: 0
' String: "" (空文字)
' Boolean: False
' Date: #00:00:00#
' Object: Nothing

' 複数の変数を宣言する方法

' 方法1: 1行ずつ宣言（推奨・読みやすい）
Dim firstName As String
Dim lastName As String
Dim age As Integer

' 方法2: カンマ区切りで1行に（簡潔だが長くなりがち）
Dim firstName As String, lastName As String, age As Integer

' 注意: 型を省略するとVariantになる
Dim a, b As String  ' a は Variant（Stringではない！）
Dim c As String, d As String  ' c も d も String（正しい書き方）

「Dim a, b As String」と書くと「aとbをStringで宣言」しているように見えますが、VBAではaがVariant（型指定なし）、bがStringになります。全てStringにするには「Dim a As String, b As String」と各変数に型を明示する必要があります。VBA初心者が最もよく犯すミスの1つです。

VBAでは変数宣言をSub/Function内のどこでも書けますが、プロシージャの先頭にまとめて書くのがベストプラクティスです。「どんな変数が使われるか」を最初に把握できるため、コードの読みやすさが向上します。

📚 用語解説

キャメルケース（camelCase）とスネークケース（snake_case）：プログラミングで複数の単語を組み合わせた変数名を書くときの表記ルール。キャメルケースは「totalSalary」「userName」のように2語目以降の先頭を大文字にする（ラクダのこぶのように見えるから）。スネークケースは「total_salary」「user_name」のようにアンダースコアで区切る。VBAではキャメルケースが一般的に使われる。「i」「j」「k」は伝統的にループカウンタに使われる短縮変数名。

' 良い変数名の例（キャメルケース）
Dim totalSalary As Long       ' 合計給与
Dim customerName As String    ' 顧客名
Dim isDataValid As Boolean    ' データが有効かフラグ
Dim lastUpdatedDate As Date   ' 最終更新日
Dim rowCount As Long          ' 行数カウンタ

' 悪い変数名の例
Dim x As Long          ' 何を表すか不明
Dim a1 As String       ' 意味が分からない
Dim data As Variant    ' 「data」は広すぎて曖昧
Dim tmp As Double      ' tmpは何の一時変数か分からない

変数名は「3ヶ月後の自分が読んでも分かるか」を基準に付けてください。「i」はループカウンタという文脈があるので許容されますが、「x」や「a」のような単文字変数名は何を格納しているか分かりません。「totalAmount（合計金額）」「isEmailValid（メールが有効かフラグ）」のように、変数名自体が説明になるのが理想です。

📚 用語解説

Option Explicit（変数宣言の強制）：VBAモジュールの先頭に書く命令。「Option Explicit」が設定されているモジュールでは、Dim/Public/Private等で宣言していない変数を使うとコンパイルエラー「変数が定義されていません」が発生する。スペルミスによる暗黙の変数生成（タイポバグ）を防ぐことができる。VBAを業務で使う全てのプログラマーが設定すべきベストプラクティス。

' Option Explicitなし（デフォルト）の場合
Sub BadExample()
    totalSalary = 100000  ' 宣言なしで使える（タイポのリスク）
    ttalSalary = 200000   ' タイポ！ totalSalaryに反映されない
    MsgBox totalSalary    ' 「100000」が表示（ttalSalaryは別変数）
End Sub

' Option Explicitあり（推奨）の場合
Option Explicit  ' モジュールの先頭に書く

Sub GoodExample()
    Dim totalSalary As Long
    totalSalary = 100000
    ttalSalary = 200000  ' コンパイルエラー！「変数が定義されていません」
    MsgBox totalSalary
End Sub

' 自動追加の設定方法
' VBE（Visual Basic Editor）を開く: Altキー + F11
' メニュー: ツール > オプション > 変数の宣言を強制する にチェック
' → 新規モジュール作成時に自動でOption Explicitが追加される

Sub AssignmentExamples()
    ' 数値の代入
    Dim count As Long
    count = 0
    count = count + 1  ' 現在の値に1を加算

    ' 文字列の代入
    Dim userName As String
    userName = "山田太郎"
    userName = "名前: " & userName  ' & で文字列を連結

    ' セルの値を変数に代入
    Dim cellValue As String
    cellValue = ThisWorkbook.Sheets(1).Cells(1, 1).Value

    ' 日付の代入
    Dim targetDate As Date
    targetDate = Date         ' 今日の日付
    targetDate = #2026/12/31# ' 特定の日付（# で囲む）

    ' Boolean（True/False）の代入
    Dim isValid As Boolean
    isValid = True
    isValid = (count > 0)  ' 比較式の結果を代入
End Sub

' オブジェクト型はSet文で代入する
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")  ' Set が必要！

' オブジェクト参照を解放する時はNothing
Set ws = Nothing

📚 用語解説

Set文（オブジェクト代入）：VBAでオブジェクト（Worksheet・Range・Workbook等）を変数に代入する時はSetキーワードが必要。「Dim ws As Worksheet」で変数を宣言した後、「Set ws = ThisWorkbook.Sheets(1)」でSetを使って代入する。Setを忘れると「オブジェクト変数またはWithブロック変数が設定されていません（エラー91）」が発生する。String・Long等の通常のデータ型にはSetは不要で「変数名 = 値」で代入できる。

' 型変換関数（型が一致しない時に変換）
Dim strNum As String
Dim intNum As Integer

strNum = "123"
intNum = CInt(strNum)   ' String → Integer
strNum = CStr(intNum)  ' Integer → String

' 主な型変換関数
' CInt()   → Integer
' CLng()   → Long
' CDbl()   → Double
' CStr()   → String
' CBool()  → Boolean
' CDate()  → Date

' === プロシージャスコープ（Dim - 最も一般的） ===
Sub ProcedureScope()
    Dim localVar As Long  ' このSub内のみ有効
    localVar = 100
    ' Sub終了でlocalVarの中身が消える
End Sub

' === Staticで値を保持する ===
Sub CountClicks()
    Static clickCount As Long  ' 呼び出し間で値が保持される
    clickCount = clickCount + 1
    MsgBox "クリック回数: " & clickCount
End Sub

' === モジュールスコープ（モジュール先頭に書く） ===
Option Explicit
Private moduleVar As String  ' このモジュール内の全Sub/Functionで使える

Sub FirstSub()
    moduleVar = "値を設定"
End Sub

Sub SecondSub()
    MsgBox moduleVar  ' FirstSubで設定した値を参照できる
End Sub

' === グローバルスコープ（Public - 標準モジュールに書く） ===
Public globalVar As Long  ' 全モジュールから参照可能

変数のスコープは「必要な範囲だけに限定する」のがベストプラクティスです。プロシージャ内だけで使う変数はDim（ローカル）、複数のSubで共有するならPrivate（モジュール）、本当に全体で必要ならPublic（グローバル）と段階的に広げていきます。Publicを乱用すると「どこで値が変わったか」を追うのが困難になります。

' === 固定長配列（要素数が決まっている場合） ===
Dim scores(4) As Integer  ' 0〜4の5要素（0始まり）
scores(0) = 80
scores(1) = 75
scores(4) = 90

' 開始インデックスを1にする場合
Dim names(1 To 5) As String  ' 1〜5の5要素（1始まり）
names(1) = "山田太郎"
names(5) = "田中花子"

' For Each でループ
Dim i As Long
For i = 0 To 4
    Debug.Print scores(i)
Next i

' === 動的配列（実行時に要素数を決める） ===
Dim items() As String  ' サイズ未定で宣言
Dim n As Long
n = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row  ' データ行数を取得
ReDim items(1 To n)   ' 実行時にサイズを設定

Dim i As Long
For i = 1 To n
    items(i) = Sheets(1).Cells(i, 1).Value
Next i

' サイズ変更しても中身を保持する
ReDim Preserve items(1 To n + 10)  ' Preserveで既存データを保持

📚 用語解説

ReDimとReDim Preserve：ReDimは動的配列のサイズを変更するVBAの命令。「ReDim items(1 To 100)」でitemsを100要素に変更できるが、既存の中身は消えてしまう（初期化される）。「ReDim Preserve items(1 To 100)」とすればPreserveキーワードによって既存データを保持したままサイズを変更できる。ただしPreserveはVBAの仕様上、多次元配列の最後の次元のみ変更できるという制約がある。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？