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

jokerzhh

1. Dim Rng As Range
   
2. Set Rng = Worksheets("Demand").Range(Worksheets("Demand").Cells(1, 3), Worksheets("Demand").Cells(demandLastRow, 5))

复制代码

更新: 上传原文件, 代码在module2, check_demand()这个function, 在main里面点击scoring运行, 我想做的是查找传入的product在demand表里最后计划的日期, 然后和当前日期对比. 用for循环实现是不是会很慢的? 谢谢
更新6/27:谢谢各位的帮忙, 结合@魂断蓝桥 @zopey @lsdongjh 3位的代码实现了, 代码如下:

1. Public Function check_demand(product As String, workingDate As Date) As Boolean
   
2.         Dim cnn As Object
   
3.         Dim Sql As String
   
4. 
   
5.         check_demand = False
   
6. 
   
7.         Set cnn = CreateObject("ADODB.CONNECTION")
   
8.         cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
   
9.         Sql = "select max([Delivery Date]) as lastdate from [Demand$a1:e] where module_type='" & product & "' group by [module_type] "
   
10.         cnn.Execute(Sql)
    
11.        
    
12.         Set Rst2 = CreateObject("adodb.Recordset")
    
13.         Rst2.Open Sql, cnn, 3, 1
    
14.         If Rst2("lastdate") >= workingDate Then
    
15.                 check_demand = True
    
16.         End If
    
17.         cnn.Close: Set cnn = Nothing
    
18. End Function

复制代码

最后, 再次谢谢各位的帮助 :)

jokerzhh

Rng拿到了我想要的数据, 现在想对数据进行排序, 需要怎么做? 初学者谢谢各位大佬

魂断蓝桥

rng.Sort Key1:=[c1], Order1:=xlAscending, Header:=xlGuess

jokerzhh

魂断蓝桥 发表于 2018-6-26 14:00
rng.Sort Key1:=[c1], Order1:=xlAscending, Header:=xlGuess

你好, 请问"c1"指定字段这个怎么写, 我有试过写字段在数据Rng里面的index, 报错的

魂断蓝桥

jokerzhh 发表于 2018-6-26 14:07
你好, 请问"c1"指定字段这个怎么写, 我有试过写字段在数据Rng里面的index, 报错的

指定排序的字段。

我这里试过没哟问题的。

jokerzhh

魂断蓝桥 发表于 2018-6-26 14:14
指定排序的字段。

我这里试过没哟问题的。

直接复制了你的代码确实是可以的, 我还有个疑问, 因为不想对原工作表的数据进行改动, 所以我想着单独把数据拿出来进行排序, 结果用我写的那个代码还是改动了原工作表...请问有什么解决办法吗? 谢谢

魂断蓝桥

jokerzhh 发表于 2018-6-26 14:27
直接复制了你的代码确实是可以的, 我还有个疑问, 因为不想对原工作表的数据进行改动, 所以我想着单独把数 ...

那就先copy 对coy后的数据排序

jokerzhh

魂断蓝桥 发表于 2018-6-26 14:30
那就先copy 对coy后的数据排序

1. Set Rng = Worksheets("Demand").Range(Worksheets("Demand").Cells(1, 3), Worksheets("Demand").Cells(demandLastRow, 5))
   
2.     Rng.Copy
   
3.     Rng.Sort Key1:=("c1"), Order1:=xlDescending, Header:=xlGuess

复制代码

我这样写貌似没用...小白一个, 麻烦你了

zopey

先要知道怎么 上传附件 ，再说明排序规则、排序后结果放哪里。

魂断蓝桥

Key1:=[c1]