質問編集履歴

1

コードを修正・追記。

2023/02/13 07:22

投稿

koburon
koburon

スコア29

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つのプロシージャ内で条件分岐で出力できるようにしたいので、アドバイスいただければと思います。よろしくお願いいたします。