質問編集履歴
1
コードを修正・追記。
test
CHANGED
File without changes
|
test
CHANGED
@@ -162,6 +162,41 @@
|
|
162
162
|
If (kubun <> 3 And str_d <= today_d And today_d <= end_d) Or _
|
163
163
|
(str_d <= today_d And end_d = 0) Then
|
164
164
|
ReDim Preserve arr(151, p)
|
165
|
+
arr(0, p) = no
|
166
|
+
arr(1, p) = syain_no
|
167
|
+
arr(2, p) = honbu
|
168
|
+
arr(3, p) = bu
|
169
|
+
arr(4, p) = ka
|
170
|
+
arr(5, p) = kakari
|
171
|
+
arr(6, p) = sosikicode
|
172
|
+
arr(7, p) = kakuzuke
|
173
|
+
arr(8, p) = kakuzuke_code
|
174
|
+
arr(9, p) = yakusyoku
|
175
|
+
arr(10, p) = yakusyoku_code
|
176
|
+
arr(11, p) = simei
|
177
|
+
arr(12, p) = seibetu
|
178
|
+
arr(13, p) = seinengappi
|
179
|
+
arr(14, p) = nyusyabi
|
180
|
+
arr(15, p) = mailadd
|
181
|
+
arr(16, p) = gakureki
|
182
|
+
arr(17, p) = kenpo_no
|
183
|
+
arr(18, p) = nenkin_no
|
184
|
+
arr(19, p) = kisonenkin_no
|
185
|
+
arr(20, p) = honbucode
|
186
|
+
arr(21, p) = syozoku
|
187
|
+
arr(22, p) = syozoku_code
|
188
|
+
|
189
|
+
For i = 0 To UBound(aval)
|
190
|
+
arr(23 + i, p) = aval(i)
|
191
|
+
Next
|
192
|
+
|
193
|
+
p = p + 1
|
194
|
+
End If
|
195
|
+
Next m
|
196
|
+
|
197
|
+
With wS5.Range("a3").Resize(p, 151)
|
198
|
+
.Value = Application.WorksheetFunction.Transpose(arr)
|
199
|
+
End With
|
165
200
|
```
|
166
201
|
|
167
202
|
もちろん別のSubで同じように書くことで別シートに書き込むことはできますが、出来れば1つのプロシージャ内で条件分岐で出力できるようにしたいので、アドバイスいただければと思います。よろしくお願いいたします。
|