二十八画工 发表于 2021-10-7 15:27:00

请大神帮我看下这个呢

不用筛选可以自动出数据吗？

李海嵩 发表于 2021-10-12 21:44:51


=INDEX(表1!A:A,SMALL(IF(TEXT(表1!$F$2:$F$486,"emm")=TEXT($K$1,"emm"),ROW($2:$486),4^8),ROW(A1)))
典型的一对多查询：数组公式 右拉下拉

蔡伟仑 发表于 2021-11-4 07:04:39

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
Application.EnableEvents = False
Dim cnn As Object, sql$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
sql = "Select * from [表1$a1:j] where 开始日期 between #" & Target.Value & "# and " & WorksheetFunction.EoMonth(Target.Value, 0)
.CurrentRegion.Offset(1).ClearContents
.CopyFromRecordset cnn.Execute(sql)
cnn.Close
Set cnn = Nothing
Application.EnableEvents = True
End If
End Sub

二姐煎饼 发表于 2021-11-11 23:56:06

。。。。。

灬多多益善 发表于 2021-11-28 05:38:12

感谢感谢，对了，已解决

壹豪 发表于 2021-11-29 20:43:14

大神，能帮我再看看最楼下的表格吗？我变化了一下。

谭杰 发表于 2021-12-5 00:47:27

输入第二张表格黄色部份，第二张表自动出第一张表黄色部份起始日期包含该年月的欠款
页: [1]
查看完整版本: 请大神帮我看下这个呢