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

chj6533 · 发表于 2022-9-3 10:59

本帖最后由 chj6533 于 2022-9-3 11:19 编辑

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

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

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

蓝桥玄霜 · 发表于 2022-9-3 11:25

find不能解决问题。

chj6533 · 发表于 2022-9-3 11:31

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

谢谢我试下。

准提部林 · 发表于 2022-9-3 11:52

當年首日//
=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 12:18

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

谢谢，VBA

准提部林 · 发表于 2022-9-3 13:06

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 16:41

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

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

ning84 · 发表于 2023-1-17 12:47

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

复制代码

tanglf188 · 发表于 2023-1-17 13:24

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

复制代码

tanglf188 · 发表于 2023-1-17 14:27

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

Sub FindDate()
nowyear = Year(Now()) '要查找的年度
Set findyearcell = Sheet1.Range("A:A").Find(nowyear, Lookat:=xlPart)
If Not findyearcell Is Nothing Then
Sheet1.Cells(findyearcell.Row, "A").Select
stri = "查找结果如下:" & Chr(10) & nowyear & "年的第一个日期位置:" & findyearcell.Address
Else
stri = "查找结果如下:" & Chr(10) & nowyear & "年的第一个日期位置:无"
End If
nowmonth = Year(Now()) & "/" & Month(Now()) '要查找的月
For i = 1 To 31
nowdate = nowmonth & "/" & i '要查找的日期
Set findmonthcell = Sheet1.Range("A:A").Find(nowdate, LookIn:=xlValues, Lookat:=xlPart)
If Not findmonthcell Is Nothing Then
stri = stri & Chr(10) & nowmonth & "月的第一个日期:" & findmonthcell
stri = stri & Chr(10) & nowmonth & "月的第一个日期位置:" & findmonthcell.Address
Exit For
Else
If i = 31 Then stri = stri & Chr(10) & nowmonth & "月的第一个日期位置:无"
End If
Next
MsgBox stri
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 还是VBA查询日期的问题（find）

评分