主页 / user-1703477

TrynRealHard's questions

Martin Hope
TrynRealHard
Asked: 2022-10-20 01:50:45 +0800 CST
  • 5

我使用自动过滤器宏来获取今天的值 - 3 个月，但是虽然结果似乎是正确的，但格式化的日期显示错误：


Sub LastThreeMonths()

    Dim strDateFirst As String
    Dim strDateLast As String
    Dim strMonthNow As String
  
    strMonthNow = Month(Now)

    strDateFirst = (strMonthNow - 3) & "/" & "1" & "/" & frmEntry.cboYear.Value
    strDateLast = strMonthNow & "/" & LastDay(CDate(strMonthNow)) & "/" & frmEntry.cboYear.Value

    
    MsgBox Format(strDateFirst, "dd-mm-yyyy") & vbCrLf & Format(strDateLast, "dd-mm-yyyy")



End Sub

Debug.Print 返回strDateFirst07-01-2022 和strDateLast30-10-2022的 thisstrDateFirst变量应该是“01-07-2022”。

过滤器可以正常工作。

我错过了什么？我想这与从当月减去“3”有关。

microsoft-excel vba
Martin Hope
TrynRealHard
Asked: 2022-06-22 03:49:24 +0800 CST
  • 5

正如标题所述，我正在尝试通过 VBA 使用过滤器来隐藏过滤表中的所有日期条目，这些条目将在未来进行计数，但我尝试过的任何方式都无法使用代码。

我目前的做法如下：


Dim wbkPlanning As Workbook
Dim wksPlanning As Worksheet
Dim FilterValue as Integer

Workbooks.Open (.... Some Path...) 'this works as i have several other Autofilters in this macro that do the job just fine)

Set wbkPlanning = Workbooks("NAMEOFWORKBOOK.xlsx")
Set wksPlanning = wbkPlanning.Worksheets("NameOfWorksheet")

wksPlanning.Range("$A$4:$AS$600").AutoFilter Field:=24, Criteria1:="=<" & CDbl(Date)

FilterValue = wksPlanning.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

MsgBox FilterValue

当我在工作表中手动设置过滤器时，结果很好，但是当我这样设置时，我得到零结果..

我有点难过，非常感谢一些提示。

谢谢！

microsoft-excel vba