查询某月里有哪些单号

shalisi

点查询按钮后输入年月，点确定后在P列显示单号。如果单号相同则显示1个单号
比如：5月份有两个单，但是单号是相同的，输入2018/5后在P1显示单号10，不要在P2再显示10
如果点查询这种做不了，在M2选年份，在N2选月份后，在P列显示单号也行
麻烦老师们帮一下！

shalisi

EXCEL是2010版的

lsdongjh

1. Sub Test()
   
2.     Dim intYear As Integer, intMonth As Integer
   
3.    
   
4.     intYear = Sheet7.Range("L2").Value
   
5.     intMonth = Sheet7.Range("M2").Value
   
6.    
   
7.     SelectIDByYearMonth intYear, intMonth
   
8. End Sub
   
9. 
   
10. 
    
11. Function SelectIDByYearMonth(intYear As Integer, intMonth As Integer)
    
12.     Dim Conn As Object, Rst As Object, strPath As String
    
13.     Dim strConn As String, strSQL As String
    
14.    
    
15.     Set Conn = CreateObject("ADODB.Connection")
    
16.     Set Rst = CreateObject("ADODB.Recordset")
    
17.     strPath = ThisWorkbook.FullName '设置工作簿的完整路径和名称
    
18.     Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
    
19.         Case Is <= 11
    
20.             strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & strPath
    
21.         Case Is >= 12
    
22.             strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
23.     End Select
    
24. 
    
25.     Conn.Open strConn '打开数据库链接
    
26. 
    
27.     strSQL = "SELECT 单号 " & _
    
28.               "FROM [数据库$A1:K12] " & _
    
29.               "WHERE Year(录单日期) = " & intYear & " And Month(录单日期) = " & intMonth & " " & _
    
30.               "Group By 单号"
    
31. 
    
32.     Rst.Open strSQL, Conn, 3, 1 '执行查询，并将结果输出到记录集对象
    
33. 
    
34.     ActiveSheet.Range("P1").CopyFromRecordset Rst
    
35. 
    
36.     Set Rst = Nothing
    
37.     Set Conn = Nothing
    
38. End Function
    
39. 
    
40. 
    

复制代码

魂断蓝桥

lsdongjh 发表于 2018-6-22 13:37

少了去掉重复的

魂断蓝桥

窗体控件 两个复合框，然后选择年月后，确定

Private Sub UserForm_Initialize()
Dim i%
Me.ComboBox1.List = Array(2018, 2019, 2010)
Me.ComboBox1.Style = fmStyleDropDownList
For i = 1 To 12
    Me.ComboBox2.AddItem i
Next
Me.ComboBox2.Style = fmStyleDropDownList
End Sub

Private Sub 确定_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then Exit Sub
Dim cnn As Object
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select distinct 单号 from [数据库$A1:J] WHERE  FORMAT(录单日期,""YYYYM"")='" & Me.ComboBox1 & Me.ComboBox2 & "'"
MsgBox Sql
[p:p].ClearContents
[p2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

lsdongjh

魂断蓝桥 发表于 2018-6-22 14:03
少了去掉重复的

没有少啊，里面有个group by 哦

shalisi

魂断蓝桥 发表于 2018-6-22 14:14
窗体控件 两个复合框，然后选择年月后，确定

Private Sub UserForm_Initialize()

谢谢老师，运行后出现对话框  select distinct 单号 from [数据库$A1:J] WHERE  FORMAT(录单日期,""YYYYM"")=“20186”

魂断蓝桥

shalisi 发表于 2018-6-22 16:04
谢谢老师，运行后出现对话框  select distinct 单号 from [数据库$A1:J] WHERE  FORMAT(录单日期,""YYYYM ...

那句 MSGBOX 注释掉。

'MsgBox Sql

shalisi

lsdongjh 发表于 2018-6-22 13:37

老师，这里       strPath = ThisWorkbook.FullName '设置工作簿的完整路径和名称
    Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接

路径是写      D:\桌面\数据库.xls    保存后这一个变成红色
设置连接字符串,根据版本创建连接   这个怎么搞，
我这几天才接触VBA，完全不懂，可以做成XECEL，通过附件给我吗

shalisi

魂断蓝桥 发表于 2018-6-22 16:05
那句 MSGBOX 注释掉。

'MsgBox Sql

去掉'MsgBox Sql 这句吗

我删掉了可以用