UC知道有请 EXCEL VBA 巨集达人帮忙
来源：百度知道 编辑：UC知道 时间：2024/05/21 18:44:49
各位大大
我要写个巨集条件如下 :
例如今天是7/11早上08:00 但我有一份报表是要从7/10 07:30~7/11 07:30 我想设定一个按钮可以做自动筛选这段时间 (大於等於 7/10 07:30 小於等於 7/11 07:30) 但是明天如果是 7/12 我要的就要变成是 7/11 07:30 ~ 7/12 07:30 喔 就是日期要会自动改变的 可以帮我吗
感谢先了
先帮我写出来且功能测试正常就给最佳解答 如功能不对我会提补充喔 再次感谢
我要写个巨集条件如下 :
例如今天是7/11早上08:00 但我有一份报表是要从7/10 07:30~7/11 07:30 我想设定一个按钮可以做自动筛选这段时间 (大於等於 7/10 07:30 小於等於 7/11 07:30) 但是明天如果是 7/12 我要的就要变成是 7/11 07:30 ~ 7/12 07:30 喔 就是日期要会自动改变的 可以帮我吗
感谢先了
先帮我写出来且功能测试正常就给最佳解答 如功能不对我会提补充喔 再次感谢
Public Sub aa()
[H1] = "时间"
[I1] = "时间"
[H2] = ">=" & ((Date - 1) + TimeValue("07:30:00"))
[I2] = "<=" & (Date + TimeValue("07:30:00"))
Dim x
x = Application.WorksheetFunction.CountA([A:A])
Range(Cells(1, 1), Cells(x, 7)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("H1:I2"), Unique:=False
[H1] = ""
[I1] = ""
[H2] = ""
[I2] = ""
End Sub
以上假设数据结构如下
从A列到G列,第一行是标题.A列是时间列,其它列是数据列.
菜单数据-筛选-高级筛选，配置条件区域对应的单元格用公式=today()或者=today()-1之类即可