还是VBA查询日期的问题（find）

chj6533

昨天发了求助，总体没有解决问题，再发下，请热心老师不吝赐教。如图

数据是按时间顺序排列的。。。从远至今天。

我自己也用了些方法，，可不知怎地，一会对，一会错。应该是日期格式没弄对的原因。我的整体思路是 查到第一个符合条件的位置，到最后一个单元格，就是我要的计数了。

蓝桥玄霜

find不能解决问题。

chj6533

蓝桥玄霜 发表于 2022-9-3 11:25
find不能解决问题。

谢谢 我试下。

准提部林

當年首日//
=SMALL(A:A,COUNTIF(A:A,"<"&TEXT(NOW(),"yyyy-\1-\1"))+1)
當月首日//
=SMALL(A:A,COUNTIF(A:A,"<"&TEXT(NOW(),"yyyy-m-\1"))+1)

當年統計//
=FREQUENCY(A:A,DATE(YEAR(NOW()),{13,1},0))
當月統計//
=FREQUENCY(A:A,--TEXT(NOW()+{32,0},"yyyy-m-\1")-1)
當日統計//
=SUM(COUNTIF(A:A,">="&TODAY()+{0,1})*{1,-1})

chj6533

准提部林 发表于 2022-9-3 11:52
當年首日//
=SMALL(A:A,COUNTIF(A:A,"

谢谢，VBA

准提部林

chj6533 发表于 2022-9-3 12:18
谢谢，VBA

A列格式必須是:yyyy/m/d hh:mm
不確定你的版本可順利使用!!!

Sub TEST_A01()
Dim YY, Yng As Range, MM, Mng As Range
YY = Format(Date, "yyyy/")
Set Yng = [a:a].Find(YY, LookIn:=xlValues)
If Not Yng Is Nothing Then MsgBox "(" & Yng.Address(0, 0) & ")" & Yng

MM = Format(Date, "yyyy/m/")
Set Mng = [a:a].Find(MM, LookIn:=xlValues)
If Not Mng Is Nothing Then MsgBox "(" & Mng.Address(0, 0) & ")" & Mng
End Sub

chj6533

准提部林 发表于 2022-9-3 13:06
A列格式必須是:yyyy/m/d hh:mm
不確定你的版本可順利使用!!!

谢谢你的思路。。。。。另 24小时内没法献花，后面献

ning84

1. Sub RelativeUnionAddress()
   
2.       '' 关联数据关联Sheet1的日期，日出日落，天亮天黑和天气。
   
3.       Dim DateRng As Range
   
4.       Dim Rng As Range, Rng1 As Range, Rng2 As Range
   
5.       Dim oRng As Range
   
6.       Dim oDate As Date
   
7.       With Sheet11
   
8.             Set DateRng = .Range(.Cells(1, "I").Formula)
   
9.             Set oRng = .Range("A：A")
   
10.             For ii = 1 To DateRng.Rows.Count
    
11.                 oDate = DateRng(ii, 1)
    
12.                 Set Rng = oRng.Find(oDate).CurrentRegion
    
13.                 Set Rng = Rng(3, 1).Resize(Rng.Rows.Count - 2, 1)
    
14.                 Debug.Print Rng.Address
    
15.             Next ii
    
16.       End With
    
17.       
    
18. End Sub

复制代码

tanglf188

1. Sub FindDate()
   
2.     nowyear = Year(Now()) '要查找的年度
   
3.     Set findcell = Sheet1.Range("A:A").Find(nowyear, LookAt:=xlPart)
   
4.     If Not findcell Is Nothing Then
   
5.         MsgBox "找到符合条件的单元格:  第" & findcell.Row & "行"
   
6.     Else
   
7.         MsgBox "没找到符合条件的单元格"
   
8.     End If
   
9. End Sub
   
10. 
    

复制代码

tanglf188

刚才的代码没看到第二个条件，现补充如下:

1. Sub FindDate()
   
2.     nowyear = Year(Now()) '要查找的年度
   
3.     Set findyearcell = Sheet1.Range("A:A").Find(nowyear, Lookat:=xlPart)
   
4.     If Not findyearcell Is Nothing Then
   
5.         Sheet1.Cells(findyearcell.Row, "A").Select
   
6.         stri = "查找结果如下:" & Chr(10) & nowyear & "年的第一个日期位置:" & findyearcell.Address
   
7.     Else
   
8.         stri = "查找结果如下:" & Chr(10) & nowyear & "年的第一个日期位置:无"
   
9.     End If
   
10.     nowmonth = Year(Now()) & "/" & Month(Now()) '要查找的月
    
11.     For i = 1 To 31
    
12.         nowdate = nowmonth & "/" & i '要查找的日期
    
13.         Set findmonthcell = Sheet1.Range("A:A").Find(nowdate, LookIn:=xlValues, Lookat:=xlPart)
    
14.         If Not findmonthcell Is Nothing Then
    
15.             stri = stri & Chr(10) & nowmonth & "月的第一个日期:" & findmonthcell
    
16.             stri = stri & Chr(10) & nowmonth & "月的第一个日期位置:" & findmonthcell.Address
    
17.             Exit For
    
18.         Else
    
19.             If i = 31 Then stri = stri & Chr(10) & nowmonth & "月的第一个日期位置:无"
    
20.         End If
    
21.     Next
    
22.     MsgBox stri
    
23. End Sub
    
24. 
    

复制代码