Sub DIM_SET()
'サンプル記述方法例
Dim TEST_A As Integer, TEST_B As Integer, TEST_C As Integer '① : ①と②記述方法が違っても同じ意味です。
Dim TEST_A, TEST_B, TEST_C As Integer '②
'----------------------------------------
'サンプル記述方法例
Dim TEST_A As Integer, TEST_B As Long, TEST_C As String '① : ①と②記述方法が違っても同じ意味です。
Dim TEST_A As Integer '②
Dim TEST_B As Long '②
Dim TEST_C As String '②
End Sub