PART 01 — Option系・変数宣言強制
Option Explicit / Base / Compare の使い分け

' Option Explicit がない場合
Sub DangerousExample()
    Dim totalAmount As Long
    totalAmout = 1000   ' タイポ（totalAmount ではなく totalAmout）
    ' → エラーにならず 0 のまま。totalAmount は変化しない
    MsgBox totalAmount  ' → 0 が表示される（意図は 1000 のはず）
End Sub

Option Explicit

Sub SafeExample()
    Dim totalAmount As Long
    totalAmout = 1000   ' ← コンパイルエラー：変数が定義されていません
End Sub

' ---- Option Base 0 の場合（既定）----
Option Base 0

Sub TestBase0()
    Dim arr(3) As String   ' arr(0) ～ arr(3) の4要素
    arr(0) = "最初"
    arr(3) = "最後"
    Debug.Print LBound(arr)  ' → 0
    Debug.Print UBound(arr)  ' → 3
End Sub

' ---- Option Base 1 の場合 ----
' Option Base 1

Sub TestBase1()
    Dim arr(3) As String   ' arr(1) ～ arr(3) の3要素
    arr(1) = "最初"
    arr(3) = "最後"
    Debug.Print LBound(arr)  ' → 1
    Debug.Print UBound(arr)  ' → 3
End Sub

' モジュールA — Option Compare Binary（既定）
Option Compare Binary
Sub TestBinary()
    Debug.Print ("ABC" = "abc")   ' → False（区別する）
    Debug.Print ("ABC" Like "a*") ' → False
End Sub

' モジュールB — Option Compare Text
Option Compare Text
Sub TestText()
    Debug.Print ("ABC" = "abc")   ' → True（区別しない）
    Debug.Print ("ABC" Like "a*") ' → True
End Sub

' ========================================
' モジュール: modSample
' 説明      : サンプルモジュール
' ========================================
Option Explicit
Option Base 1      ' 必要な場合のみ（通常は省略）
Option Compare Binary  ' 既定値だが意図を明示するために記述する場合もある