sub 按鈕2_click(
)dim i2 as
integer
i2 =
2for i =2to
1000
iflen
(工作表2.cells(i,
2).value)=0
then
exit
forend
if 工作表3.cells(i2,
2).value = 工作表2.cells(i,
2).value
工作表3.cells(i2,
3).value = 工作表2.cells(i,
3).value
工作表3.cells(i2,
4).value = 工作表2.cells(i,
4).value
工作表3.cells(i2,
5).value = 工作表2.cells(i,
5).value
for j =2to
10000
iflen
(工作表1.cells(j,
2).value)=0
then
exit
forelse
if 工作表3.cells(i2,
4).value = 工作表1.cells(j,
2).value then
if 工作表1.cells(j,
7).value >
0then
if 工作表3.cells(i2,
5).value <= 工作表1.cells(j,
7).value then
工作表3.cells(i2,
6).value = 工作表3.cells(i2,
5).value
工作表3.cells(i2,
8).value = 工作表1.cells(j,
4).value
工作表3.cells(i2,
9).value = 工作表1.cells(j,
3).value
工作表1.cells(j,
6).value = 工作表1.cells(j,
6).value + 工作表3.cells(i2,
6).value
i2 = i2 +
1exit
forelse
工作表3.cells(i2,
6).value = 工作表1.cells(j,
7).value
工作表3.cells(i2,
8).value = 工作表1.cells(j,
4).value
工作表3.cells(i2,
9).value = 工作表1.cells(j,
3).value
工作表1.cells(j,
6).value = 工作表1.cells(j,
5).value
i2 = i2 +
1 工作表3.cells(i2,
2).value = 工作表3.cells(i2 -1,
2).value
工作表3.cells(i2,
3).value = 工作表3.cells(i2 -1,
3).value
工作表3.cells(i2,
4).value = 工作表3.cells(i2 -1,
4).value
工作表3.cells(i2,
5).value = 工作表3.cells(i2 -1,
7).value
if 工作表3.cells(i2,
7).value <=
0then
exit
forend
ifend
ifend
ifend
ifend
ifnext j
next i
endsub