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

相关文章推荐

潇洒的茶壶 · PRL：低压稳定的氢合金骨架高温超导体的理论 ...· 7 月前 ·

帅气的甘蔗 · 江苏省工业和信息化厅领导活动 ...· 9 月前 ·

绅士的毛巾 · 沈阳市于洪区人民政府· 10 月前 ·

直爽的八宝粥 · 天津市第一中学2023小卷招生简章 - 知乎· 1 年前 ·

俊逸的柠檬 · 呕血之作ST广珠股票摘帽档案 $ST广珠(S ...· 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

推荐文章

潇洒的茶壶 · PRL：低压稳定的氢合金骨架高温超导体的理论设计_大气压_压力_合成

7 月前

帅气的甘蔗 · 江苏省工业和信息化厅领导活动池宇副厅长陪同樊金龙常务副主任在南京调研智改数转网联工作

9 月前

绅士的毛巾 · 沈阳市于洪区人民政府

10 月前

直爽的八宝粥 · 天津市第一中学2023小卷招生简章 - 知乎

1 年前

俊逸的柠檬 · 呕血之作ST广珠股票摘帽档案 $ST广珠(SH600382)$ 一、ST广珠(600382)，股本7.89亿，每股净资产4.77元，公积金0.52元。... - 雪球

1 年前

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

回答 2

Stack Overflow用户

Stack Overflow用户