質問編集履歴
1
回答いただいたソースコードに反映
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -103,4 +103,43 @@
|
|
|
103
103
|
Application.ScreenUpdatingの設定で高速化対応はしていますが、テーブルの処理の高速化についてはまだ調査中です。
|
|
104
104
|
|
|
105
105
|
### 補足
|
|
106
|
+
#### 修正後の該当ソースコード
|
|
107
|
+
```visual basic
|
|
108
|
+
Dim rangeStr As String: rangeStr = "A2:Y" & allSlipList.Count
|
|
109
|
+
ReDim tableArray(yayoiCount, 25) As Variant
|
|
110
|
+
For Each allSlipListKey In allSlipList.Keys
|
|
111
|
+
Set yayoi = allSlipList(allSlipListKey)
|
|
112
|
+
tableArray(x, 0) = yayoi.columns("id_Flag")
|
|
113
|
+
tableArray(x, 1) = yayoi.columns("slipNum")
|
|
114
|
+
tableArray(x, 2) = yayoi.columns("financStat")
|
|
115
|
+
tableArray(x, 3) = yayoi.columns("slipDay")
|
|
116
|
+
tableArray(x, 4) = yayoi.columns("debitName")
|
|
117
|
+
tableArray(x, 5) = yayoi.columns("debitSub")
|
|
118
|
+
tableArray(x, 6) = yayoi.columns("debitDep")
|
|
119
|
+
tableArray(x, 7) = yayoi.columns("debitTaxType")
|
|
120
|
+
tableArray(x, 8) = yayoi.columns("debitAmo")
|
|
121
|
+
tableArray(x, 9) = yayoi.columns("debitTax")
|
|
122
|
+
tableArray(x, 10) = yayoi.columns("creditName")
|
|
123
|
+
tableArray(x, 11) = yayoi.columns("creditSub")
|
|
124
|
+
tableArray(x, 12) = yayoi.columns("creditDep")
|
|
125
|
+
tableArray(x, 13) = yayoi.columns("creditTaxType")
|
|
126
|
+
tableArray(x, 14) = yayoi.columns("creditAmo")
|
|
127
|
+
tableArray(x, 15) = yayoi.columns("creditTax")
|
|
128
|
+
tableArray(x, 16) = yayoi.columns("summary")
|
|
129
|
+
tableArray(x, 17) = yayoi.columns("num")
|
|
130
|
+
tableArray(x, 18) = yayoi.columns("settlement")
|
|
131
|
+
tableArray(x, 19) = yayoi.columns("slipType")
|
|
132
|
+
tableArray(x, 20) = yayoi.columns("origin")
|
|
133
|
+
tableArray(x, 21) = yayoi.columns("memo")
|
|
134
|
+
tableArray(x, 22) = yayoi.columns("tag1")
|
|
135
|
+
tableArray(x, 23) = yayoi.columns("tag2")
|
|
136
|
+
tableArray(x, 24) = yayoi.columns("adjustment")
|
|
137
|
+
If isFirstLoop = False Then
|
|
138
|
+
allTable.ListRows.Add
|
|
139
|
+
End If
|
|
140
|
+
isFirstLoop = False
|
|
141
|
+
|
|
142
|
+
x = x + 1
|
|
106
|
-
|
|
143
|
+
Next
|
|
144
|
+
Range(rangeStr) = tableArray
|
|
145
|
+
```
|