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

相关文章推荐

有胆有识的楼房 · python函数def里面嵌套def - ...· 3 月前 ·

欢快的香烟 · 日常踩坑_JPA聚合查询 - ...· 1 年前 ·

悲伤的数据线 · SQL年龄计算的两种方法实例_MsSql_脚本之家· 1 年前 ·

多情的黑框眼镜 · 玩不起RLHF？港科大开源高效对齐算法RAF ...· 1 年前 ·

深沉的筷子 · pymysql module 安装不能用 ...· 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

推荐文章

有胆有识的楼房 · python函数def里面嵌套def - CSDN文库

3 月前

欢快的香烟 · 日常踩坑_JPA聚合查询 - Dean_001 - 博客园

1 年前

悲伤的数据线 · SQL年龄计算的两种方法实例_MsSql_脚本之家

1 年前

多情的黑框眼镜 · 玩不起RLHF？港科大开源高效对齐算法RAFT「木筏」,CV/NLP通用|raft_网易订阅

1 年前

深沉的筷子 · pymysql module 安装不能用 - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

1 年前

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

回答 2

Stack Overflow用户

Stack Overflow用户