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

相关文章推荐

英俊的桔子 · C++开源序列化库：FStruct-腾讯云开 ...· 2 周前 ·

小眼睛的苹果 · java.lang.ClassNotFoun ...· 2 月前 ·

追风的小摩托 · 交叉信息研究院曾坚阳课题组成功开发多肽和蛋白 ...· 9 月前 ·

酒量大的乒乓球 · 当output.globalObject：" ...· 11 月前 ·

爱旅游的跑步鞋 · Google Cloud｜高效赋能 ...· 1 年前 ·

腾讯云

开发者社区

文档建议反馈控制台

首页 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

推荐文章

英俊的桔子 · C++开源序列化库：FStruct-腾讯云开发者社区-腾讯云

2 周前

小眼睛的苹果 · java.lang.ClassNotFoundException: org.jdom.input.JDOMParseException_wx62c69e2259be8的技术博客_51CTO博客

2 月前

追风的小摩托 · 交叉信息研究院曾坚阳课题组成功开发多肽和蛋白质相互作用的深度学习模型-清华大学

9 月前

酒量大的乒乓球 · 当output.globalObject："this“被指定时，webpack为什么要用全球”自我“而不是”this“来输出？-腾讯云开发者社区-腾讯云

11 月前

爱旅游的跑步鞋 · Google Cloud｜高效赋能 BigQuery：Partitioned and Clustered Table - 知乎

1 年前

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

回答 2

Stack Overflow用户

Stack Overflow用户