質問編集履歴
3
修正いたしました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -123,3 +123,51 @@
|
|
123
123
|
end sub
|
124
124
|
|
125
125
|
```
|
126
|
+
|
127
|
+
|
128
|
+
|
129
|
+
###入力ファイル
|
130
|
+
|
131
|
+
入力ファイルにつきましては、配達数量の入力処理を実施する端末がマクロ非対応のため、Xlsx拡張子とさせていただいています。
|
132
|
+
|
133
|
+
######配達数量を入力する前の状態の例です。
|
134
|
+
|
135
|
+
|日付|届け先|商品名|入荷数量|配達数量1|配達数量2|配達数量3|残り|
|
136
|
+
|
137
|
+
|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|
|
138
|
+
|
139
|
+
|2020/02/01|A部B課|手提げ袋小|10|0|0|0|10|
|
140
|
+
|
141
|
+
|2020/02/01|C部D係|手提げ袋中|40|0|0|0|40|
|
142
|
+
|
143
|
+
|
144
|
+
|
145
|
+
######配達数量1で入荷数量(最大値)を入力した場合
|
146
|
+
|
147
|
+
|日付|届け先|商品名|入荷数量|配達数量1|配達数量2|配達数量3|残り|
|
148
|
+
|
149
|
+
|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|
|
150
|
+
|
151
|
+
|2020/02/01|A部B課|手提げ袋小|10|10|0|0|0|
|
152
|
+
|
153
|
+
|2020/02/01|C部D係|手提げ袋中|40|40|0|0|0|
|
154
|
+
|
155
|
+
|
156
|
+
|
157
|
+
配達数量2も3も1以上の値が入力できるようになっています。
|
158
|
+
|
159
|
+
|
160
|
+
|
161
|
+
######配達数量1と2のそれぞれに入荷数量(最大値)を入力した場合
|
162
|
+
|
163
|
+
|日付|届け先|商品名|入荷数量|配達数量1|配達数量2|配達数量3|残り|
|
164
|
+
|
165
|
+
|:--:|:--:|:--:|:--:|:--:|:--:|:--:|:--:|
|
166
|
+
|
167
|
+
|2020/02/01|A部B課|手提げ袋小|10|10|10|0|-10|
|
168
|
+
|
169
|
+
|2020/02/01|C部D係|手提げ袋中|40|40|40|0|-40|
|
170
|
+
|
171
|
+
|
172
|
+
|
173
|
+
配達数量の合計が入荷数量を超過しているため、残り数量がマイナスとなっています。
|
2
修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -32,7 +32,19 @@
|
|
32
32
|
|
33
33
|
|
34
34
|
|
35
|
+
```
|
36
|
+
|
37
|
+
Option Explicit
|
38
|
+
|
39
|
+
Dim Row, Col, RMax, CMax, Cnt, Max, i As Integer
|
40
|
+
|
41
|
+
Public CellList() As Variant
|
42
|
+
|
43
|
+
Dim ListStr, Exf As String
|
44
|
+
|
45
|
+
public sub List()
|
46
|
+
|
35
|
-
|
47
|
+
Cnt = 0 'カウント用変数を宣言し、初期値を格納する
|
36
48
|
|
37
49
|
Exf = Dir(Path & "Q*.xlsx") '対象ファイルを取得する
|
38
50
|
|
@@ -108,4 +120,6 @@
|
|
108
120
|
|
109
121
|
Loop
|
110
122
|
|
123
|
+
end sub
|
124
|
+
|
111
125
|
```
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
##使用ソフト・プログラミング言語
|
2
2
|
|
3
|
-
使用ソフト:
|
3
|
+
使用ソフト:Excel2016
|
4
4
|
|
5
5
|
使用言語:VBA
|
6
6
|
|