物料成本核算先进先出分解显示

shaokui123

yjh_27 发表于 2012-6-16 20:41
处理盘点重复，加了入库重复提示

高手，我新添加的两列您给挪到中间了，我看代码是Loop While Cells(r0, 1) = Cells(r0 - 1, 1) And Cells(r0, 2) = Cells(r0 - 1, 2) And _
                Cells(r0, 3) = Cells(r0 - 1, 3) And _
和96楼的意思不符啊？

shaokui123

yjh_27 发表于 2012-6-16 20:41
处理盘点重复，加了入库重复提示

1. PD = Cells(1, 11)   '提示信息行K----11
   
2.     r = Range("A65536").End(3).Row  '某物料末行
   
3.     Range("K2:K" & r).ClearContents
   
4.     pyts = True         '盘盈提示
   
5.    
   
6.     '排序，A、B、C列关键字段，P数据末列
   
7.     Range("A1:P" & r).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:= _
   
8.         Range("B2"), Order2:=xlAscending, Key3:=Range("H2"), Order3:=xlAscending _
   
9.         , Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _
   
10.         xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, _
    
11.         DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    
12.     Range("A1:P" & r).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:= _
    
13.         Range("B2"), Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending _
    
14.         , Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _
    
15.         xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, _
    
16.         DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

复制代码

这段代码是abc列排序，那么期间那列不排序了吗？
我在实际使用是4列同时排序的
代码的意思是我点击分解按钮数据就自动排序吗？？？

yjh_27

shaokui123 发表于 2012-6-18 12:20
高手，我新添加的两列您给挪到中间了，我看代码是Loop While Cells(r0, 1) = Cells(r0 - 1, 1) And Cel ...

96L是说你在这里有一漏改的列号。

Loop While Cells(r0, 1) = Cells(r0 - 1, 1) And Cells(r0, 2) = Cells(r0 - 1, 2) And _
                Cells(r0, 3) = Cells(r0 - 1, 3) And _

关键字段在A、B、C列（我这次给调到前面了），所以是对应1、2、3

yjh_27

shaokui123 发表于 2012-6-18 16:54
这段代码是abc列排序，那么期间那列不排序了吗？
我在实际使用是4列同时排序的
代码的意思是我点击分解 ...

2003只支持3关键字段，所以变通为A、B、H再A、B、C。已考虑期间（H）。
这也是查重复的关键。

代码的意思是我点击分解按钮数据就自动排序吗？？？
是的。

shaokui123

yjh_27 发表于 2012-6-18 17:34
2003只支持3关键字段，所以变通为A、B、H再A、B、C。已考虑期间（H）。
这也是查重复的关键。

高手，又打扰您了，附件是第二个问题的提问，在61楼提出，当时另一位朋友帮做了一个表格，现在联系不上他了，您帮看一下啊。
但是今天使用中又有些问题需要改进一下，附件里我批注的就是问题点，麻烦您有时间帮忙一下 第二个ok表.rar (38.29 KB, 下载次数: 17)

2012-6-27 22:00 上传

点击文件名下载附件

shaokui123

yjh_27 发表于 2012-6-18 17:34
2003只支持3关键字段，所以变通为A、B、H再A、B、C。已考虑期间（H）。
这也是查重复的关键。

高手，有时间帮看看啊。。。。。。

3091990

太强了，学习了！

yhs2016

yjh_27 发表于 2012-5-8 00:51
点“分解”按钮前，看数据是否是原始数据
按后：多了什么还是少什么

高手，如果有时间请帮忙看看我的求助帖子，谢谢