VBA Excel -按昨天日期定义范围开发者社区

link管理

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

失眠的番茄 · 生食|Uho優活健康網· 3 月前 ·

愤怒的豆芽 · 可穿戴纤维基能源转换器件研究进展· 5 月前 ·

发呆的哑铃 · 惊呆! 100多万竟能在加拿大买一座小镇 ...· 6 月前 ·

会开车的煎饼果子 · 么么公主生日直播回顾，手游新爆料大盘点！ ...· 8 月前 ·

温文尔雅的罐头 · 全网最全软件库合集！享你想要！-星泽V社 ...· 11 月前 ·

腾讯云

开发者社区

文档建议反馈控制台

首页 TVP

最新优惠活动

文章/答案/技术大牛

发布

Dim d As Date
 d = DateAdd("d", -1, Date)
Dim x As Range
Dim a As String
'Range("e1").Value = d
Columns("C:C").Select
a = Cells.Find(What:=d, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Address
'Range(a).Offset(0, 31).Range("A1:B1").Select
'adjust this
' x = Range(a).Offset(0, 31).Range("A1:B1").Address

Option Explicit
Sub FindYesterdaysDateRow()
Dim Rng     As Range
Dim YesterD As Date
YesterD = DateAdd("d", -1, Date) ' <-- get yesterday's date
' the following line will work if you have column C formatted as "Date"
Set Rng = Range("C:C").Find(What:=YesterD, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then '<-- Find was successful
    Range("A" & Rng.Row & ":I" & Rng.Row).Select

推荐文章

失眠的番茄 · 生食|Uho優活健康網

3 月前

愤怒的豆芽 · 可穿戴纤维基能源转换器件研究进展

5 月前

发呆的哑铃 · 惊呆! 100多万竟能在加拿大买一座小镇 BC省27万呎农场只要6... - 加拿大头条 - 百事通华人资讯网 - 全球华人信息分享交流平台 in7788.com!

6 月前

会开车的煎饼果子 · 么么公主生日直播回顾，手游新爆料大盘点！ - 摩尔庄园-小米游戏中心

8 月前

温文尔雅的罐头 · 全网最全软件库合集！享你想要！-星泽V社 - Ioku的博客

11 月前

问 VBA Excel -按昨天日期定义范围 EN

回答 2

Stack Overflow用户

Stack Overflow用户