怎么对数据进行排序, 初学者求助

jokerzhh

魂断蓝桥 发表于 2018-6-26 14:57
Key1:=[c1]

写成Key1:=[c1]会报错, Key1:=["c1"]可以正常排序, 我还以为c1代表我数据里面的第三个字段的...

jokerzhh

zopey 发表于 2018-6-26 14:52
先要知道怎么 上传附件 ，再说明排序规则、排序后结果放哪里。

就是想获取一个表的所有数据, 对他们进行日期倒叙排序, 然后我要找某款产品最后的日期. 想在不改变原数据顺序的情况下完成

zopey

jokerzhh 发表于 2018-6-26 15:21
就是想获取一个表的所有数据, 对他们进行日期倒叙排序, 然后我要找某款产品最后的日期. 想在不改变原数据 ...

按你这说法 ，并不需要vba排序。 普通函数公式也能 实现 求日期。

魂断蓝桥

jokerzhh 发表于 2018-6-26 15:21
就是想获取一个表的所有数据, 对他们进行日期倒叙排序, 然后我要找某款产品最后的日期. 想在不改变原数据 ...

产品的最后日期可以用sql语句直接实现的。

jokerzhh

zopey 发表于 2018-6-26 15:38
按你这说法 ，并不需要vba排序。 普通函数公式也能 实现 求日期。

这是其中一个小模块的需求, 我需要拿到这个最后日期然后在别的地方使用. function都还没跑完的. 因为不想写for循环感觉会很慢, 所以想用自带函数解决

lsdongjh

是不是这个意思：

1. 
   
2. Sub Test()
   
3.     Dim shSource As Worksheet, shResult As Worksheet
   
4.     Dim arrSource As Variant, rgResult As Range
   
5.     Dim demandLastRow As Long
   
6.    
   
7.     Set shSource = Sheets("Demand")
   
8.     Set shResult = Sheets("结果")
   
9.    
   
10.     arrSource = shSource.Range("C1:E" & demandLastRow)
    
11.     Set rgResult = shResult.Range("C1:E" & demandLastRow)
    
12.     rgResult = arrSource
    
13.    
    
14.     rgResult.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess
    
15. End Sub

复制代码

jokerzhh

魂断蓝桥 发表于 2018-6-26 15:40
产品的最后日期可以用sql语句直接实现的。

这是原文件, 代码在module2, check_demand()这个function, 点击main的scoring运行, 我想做的是查找传入的product在demand表里最后计划的日期, 然后和当前日期对比. 用for循环实现是不是会很慢的? 谢谢

魂断蓝桥

jokerzhh 发表于 2018-6-26 15:55
这是原文件, 代码在module2, check_demand()这个function, 点击main的scoring运行, 我想做的是查找传入的 ...

对不住了，没看懂你的需求

cheshi7

热心人好多，不过看不懂

jokerzhh

魂断蓝桥 发表于 2018-6-26 16:00
对不住了，没看懂你的需求

T.T  demand是预计排产表, 现在有很多产品想要生成, 在排出实际生产计划前, 先要检查这款产品在计划表里的最后排产日期, 如果今天的日期大于最后排产日期那么就不能对这个产品排产了.