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

相关文章推荐

任性的硬币 · 浙江省2023年高中录取分数，孩子未达标？别 ...· 6 月前 ·

性感的大象 · k8s创建保密字典_如需使用私有镜像服务,您 ...· 9 月前 ·

坚韧的日光灯 · thinkpad z16 - 商品搜索 - 京东· 1 年前 ·

淡定的牛肉面 · 艾彩原创_抖抖音· 1 年前 ·

阳刚的小马驹 · Oops!!! - 简书· 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

推荐文章

任性的硬币 · 浙江省2023年高中录取分数，孩子未达标？别急，中考还有这些出路！_杭州_实验_萧山

6 月前

性感的大象 · k8s创建保密字典_如需使用私有镜像服务,您需要先创建镜像服务保密字典-CSDN博客

9 月前

坚韧的日光灯 · thinkpad z16 - 商品搜索 - 京东

1 年前

淡定的牛肉面 · 艾彩原创_抖抖音

1 年前

阳刚的小马驹 · Oops!!! - 简书

1 年前

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

回答 2

Stack Overflow用户

Stack Overflow用户