多条件查询对应的数据，条件跟一般查询有点不一样。。。求帮忙

青衫凉

求帮忙看看。。。。最好用函数或自定义函数   谢谢！！





工作簿1_yy.rar (8.89 KB, 下载次数: 6)

2018-7-27 19:23 上传

点击文件名下载附件

jiminyanyan

如果有多个，怎么办？没有，怎么办。。。

青衫凉

jiminyanyan 发表于 2018-7-27 19:28
如果有多个，怎么办？没有，怎么办。。。

符合名称、地方两个条件日期唯一  ，满足地方、名称、日期三个条件编号唯一，没有为空值

opiona

1. Public Function GetBianHao(ByVal MingCheng As String, ByVal DiFang As String, ByVal DATEX As Date) As String
   
2.     Application.Volatile
   
3.     Dim SHX As Worksheet
   
4.     Set SHX = Worksheets("数据")
   
5.     INTCC = 20000
   
6.     StrBH = ""
   
7.     For IROW = 2 To SHX.Range("A65536").End(3).Row
   
8.         If SHX.Cells(IROW, 1).Value = MingCheng And SHX.Cells(IROW, 2).Value = DiFang Then
   
9.             INTDT = DateDiff("D", SHX.Cells(IROW, 3).Value, DATEX)
   
10.             If INTDT > 0 Then  '//在此之前
    
11.                 If INTCC > INTDT Then
    
12.                     INTCC = INTDT
    
13.                     StrBH = SHX.Cells(IROW, 4).Value
    
14.                 End If
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     GetBianHao = StrBH
    
19. End Function

复制代码

opiona

本来想用：Find 但是在工作表函数 出错，没能解决

用循环做的： QQ14885553.rar (15.72 KB, 下载次数: 6)

2018-7-27 21:01 上传

点击文件名下载附件

青衫凉

opiona 发表于 2018-7-27 21:02
本来想用：Find 但是在工作表函数 出错，没能解决

用循环做的：

用函数已经解决   能用VBA解决更好了，运算快   万分谢谢！  

青衫凉

opiona 发表于 2018-7-27 21:02
本来想用：Find 但是在工作表函数 出错，没能解决

用循环做的：

我这份表格是根据这个问题用函数解决的，无奈不会VBA，用函数会卡   ，大神要不要试试用VBA解决啊？要求在附件里   


表格.zip (18.48 KB, 下载次数: 8)

2018-7-27 21:38 上传

点击文件名下载附件

熊之召唤术

Sub ceshi()
    database = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1;HDR=YES';Data Source=" & ThisWorkbook.FullName
   
    Dim conn
    Set conn = CreateObject("adodb.connection") '创建ado对象
    Sql = "(select * from [求助$a:d] where 名称='苹果' and 地方='山东')"
    Sq = "select top 1 编号 from " & Sql & " where 日期<#2018/5/28# order by 日期 desc"

    conn.Open database
    Cells(20, 1).CopyFromRecordset conn.Execute(Sq)
    conn.Close
    Set conn = Nothing
   
   
End Sub

opiona

青衫凉 发表于 2018-7-27 21:38
我这份表格是根据这个问题用函数解决的，无奈不会VBA，用函数会卡   ，大神要不要试试用VBA解决啊？要求 ...

复杂了很多，弄了近2小时效果不是特别理想