teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問マクロ実行中のセル入力について

編集履歴

質問編集履歴

1

ご指摘を受けてインデント加えさせて頂きました。

2016/07/18 08:14

投稿

kkgw
kkgw

スコア49

test CHANGED
File without changes
test CHANGED
@@ -46,9 +46,11 @@
46
46
 
47
47
 
48
48
 
49
+ '''lang-excelvba
49
50
 
50
51
 
52
+
51
- Sub test_a()
53
+ Sub test_マトリクス順次入力()
52
54
 
53
55
 
54
56
 
@@ -76,13 +78,13 @@
76
78
 
77
79
  Do Until Cells(i, 3) = ""
78
80
 
79
- n = UBound(Files_1)
81
+ n = UBound(Files_1)
80
82
 
81
- ReDim Preserve Files_1(n + 1)
83
+ ReDim Preserve Files_1(n + 1)
82
84
 
83
- Files_1(n + 1) = Cells(i, 3)
85
+ Files_1(n + 1) = Cells(i, 3)
84
86
 
85
- i = i + 1
87
+ i = i + 1
86
88
 
87
89
  Loop
88
90
 
@@ -90,21 +92,19 @@
90
92
 
91
93
  Dim j As Long
92
94
 
93
-
94
-
95
95
  j = 3
96
96
 
97
97
 
98
98
 
99
99
  Do Until Cells(j, 4) = ""
100
100
 
101
- m = UBound(Files_2)
101
+ m = UBound(Files_2)
102
102
 
103
- ReDim Preserve Files_2(m + 1)
103
+ ReDim Preserve Files_2(m + 1)
104
104
 
105
- Files_2(m + 1) = Cells(j, 4)
105
+ Files_2(m + 1) = Cells(j, 4)
106
106
 
107
- j = j + 1
107
+ j = j + 1
108
108
 
109
109
  Loop
110
110
 
@@ -126,35 +126,23 @@
126
126
 
127
127
 
128
128
 
129
-
130
-
131
129
  For k = 1 To UBound(Files_1)
132
130
 
131
+ For l = 1 To UBound(Files_2)
133
132
 
133
+ this_sheet.Cells(2 + k, 6 + l).Activate
134
134
 
135
- For l = 1 To UBound(Files_2)
135
+ dblTimer = Timer
136
136
 
137
+ Do Until Int(Timer - dblTimer) = 11
137
138
 
139
+ this_sheet.Cells(2, 6) = Int((Timer - dblTimer))
138
140
 
139
- this_sheet.Cells(2 + k, 6 + l).Activate
141
+ DoEvents
140
142
 
143
+ Loop
141
144
 
142
-
143
- dblTimer = Timer
144
-
145
- Do Until Int(Timer - dblTimer) = 11
146
-
147
- this_sheet.Cells(2, 6) = Int((Timer - dblTimer))
148
-
149
- DoEvents
150
-
151
- Loop
152
-
153
-
154
-
155
- Next
145
+ Next
156
-
157
-
158
146
 
159
147
  Next
160
148
 
@@ -163,3 +151,7 @@
163
151
 
164
152
 
165
153
  End Sub
154
+
155
+
156
+
157
+ '''