1' 関数のはじめに宣言するパターン
2Sub pattern1()
34 ' 共通処理用変数
5 Dim c As Long
67 ' 処理ブロックA用変数
8 Dim a1 As Long
9 Dim a2 As Long
10 Dim objA As Object
1112 ' 処理ブロックB用変数
13 Dim b1 As Long
14 Dim b2 As Long
15 Dim objB As Object
1617 c = 0
1819 ' 処理ブロックA
20 For a1 = 1 To 10
21 Set objA = CreateObject("なんか")
22 For a2 = 1 To 10
23 Debug.Print a1, a2, c
24 c = c + 1
25 Next
26 Next
2728 ' 処理ブロックB
29 For b1 = 1 To 10
30 Set objB = CreateObject("なんか")
31 For b2 = 1 To 10
32 Debug.Print b1, b2, c
33 c = c + 1
34 Next
35 Next
3637End Sub
3839' 使う直前に宣言するパターン
40Sub pattern2()
4142 ' 共通処理用変数
43 Dim c As Long
4445 c = 0
4647 ' 処理ブロックA
48 Dim a1 As Long
49 Dim a2 As Long
50 Dim objA As Object
51 For a1 = 1 To 10
52 Set objA = CreateObject("なんか")
53 For a2 = 1 To 10
54 Debug.Print a1, a2, c
55 c = c + 1
56 Next
57 Next
5859 ' 処理ブロックB
60 Dim b1 As Long
61 Dim b2 As Long
62 Dim objB As Object
63 For b1 = 1 To 10
64 Set objB = CreateObject("なんか")
65 For b2 = 1 To 10
66 Debug.Print b1, b2, c
67 c = c + 1
68 Next
69 Next
7071End Sub
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/04/16 07:44