VBA 间歇性 ByRef 错误 - 格式函数

Question

我比 VB 更熟悉 VBA。我在使用 ADO.NET 时遇到过项目损坏的情况，而您因为找不到更好的词而破坏了您的项目。此过程来自一个更大的项目，该项目将呼叫中心代理绩效的自动报告汇总在一起，特别是会找到最近 7 天的结果，然后删除该范围内的任何其他值，以由工作簿中的另一个工作表计算。

背景故事：我已经使用这个程序大约三周了，没有任何问题。有一天，我在运行我的报告时发现默认格式函数的 ByRef 错误，特别是变量“d”。尝试了一堆东西来重写格式函数，以防语法有点偏离：Format([string], "Short Date"), Format([date], "Short Date"), Format([date], "mmddyyyy") 和 Format([string], "mmddyyyy") 都会导致 ByRef 错误。我希望有一个简单的 .toshortdatestring 像 VB.NET。尝试创建我自己的格式函数也无济于事。

但是，当我将所有代码 - 完全 - 粘贴到我的一个备份中时，ByRef 错误消失了......我以为我刚刚破坏了那个工作簿，所以我将所有模块复制并粘贴到我的备份中继续我的快乐之路。一周后，再次运行我的报告，我在 Format 函数中得到相同的 ByRef 错误，突出显示变量 d。关于为什么这一直发生的任何想法？提前致谢！！

Excel 2013 - 文件大小约为 7 MB - 28 张 - 14 张带有多个 countifs/sumifs 以从原始数据中提取特定代理统计信息 - 没什么特别的。

Sub Last7Days(lastcolumn As String, wksht As Worksheet, width As Integer, datasheet As String)


Dim sht As Worksheet
Dim column As Long
Set sht = wksht

Dim rng As Range, inclusiveRange As Range
Dim startDate As Long, endDate As Long


column = 1
Dim d As Date



d = DateAdd("d", -7, Now)

d = Format(d, "Short Date")

Dim startdatestring As String


startdatestring = CStr(d)

Dim enddatestring As String

wksht.Activate
Call LastRowInA

Range("a" & LastRowInA).Select
enddatestring = CStr(ActiveCell.value)



startDate = DateValue(startdatestring)
endDate = DateValue(enddatestring)

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

wksht.Activate
    sht.Cells(1, column).AutoFilter Field:=column, Criteria1:=">=" & startDate, Operator:=xlAnd _
            , Criteria2:="<=" & endDate


    Set rng = sht.Range(sht.Cells(2, column), sht.Cells(sht.Cells(sht.Rows.Count, column).End(xlUp).Row, column)).SpecialCells(xlCellTypeVisible)

    sht.AutoFilterMode = False

    If rng.Address = sht.Cells(1, column).Address Then



        MsgBox Format(startDate, "dd-mmm-yyyy") & " - " & Format(endDate, "dd-mmm-yyyy") _
        & vbCrLf & vbCrLf & "No instances of the date range exist"

    Else

    Set inclusiveRange = sht.Range(rng.Cells(1, 1), rng.Cells(rng.Count, width))

        inclusiveRange.Select
        Selection.Cut
        ActiveSheet.Paste Destination:=Worksheets(datasheet).Range("a2")
        Dim Start As String

        Dim size As Long
        'Set size = Nothing
        Start = "A" & (rng.Count + 1)
        size = Range("a" & rng.Count, Range("a" & rng.Count).End(xlDown)).Rows.Count
       Range("a" & (rng.Count + 1) & ":I675000").Select
       Selection.Clear



    End If
Dim LastDateValue As String

LastDateValue = enddatestring


startdate1 = DateValue(LastDateValue)
endDate1 = DateValue(LastDateValue)

Dim testDate As Date
Dim testDateInteger As Integer
testDate = startdate1
testDateInteger = Weekday(testDate)

If testDateInteger = 2 Then


Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

wksht.Activate
    sht.Cells(1, column).AutoFilter Field:=column, Criteria1:=">=" & startdate1, Operator:=xlAnd _
        , Criteria2:="<=" & endDate1


    Set rng = sht.Range(sht.Cells(2, column), sht.Cells(sht.Cells(sht.Rows.Count, column).End(xlUp).Row, column)).SpecialCells(xlCellTypeVisible)

    sht.AutoFilterMode = False


    Set inclusiveRange1 = sht.Range(rng.Cells(1, 1), rng.Cells(rng.Count, width))

        inclusiveRange1.Select
        Selection.Clear
  End If


End Sub

Answer 1

不完全清楚发生了什么，这是真的，但如果它是编译器错误，正如 cmets 中的对话所表明的那样，它可能与代码中函数的确切用法有关。要修复它，您可以尝试以稍微不同的方式重写相同的代码逻辑。假设您的错误与以下代码部分有关，我可以提出一些建议，并根据 Excel 对这些问题的反应，可以尝试其他方法。

Dim d As Date
d = DateAdd("d", -7, Now)
d = Format(d, "Short Date")
Dim startdatestring As String
startdatestring = CStr(d)

1. 尝试将Option Explicit 添加到代码模块的顶部。这会导致 VBA 强制您显式地 Dim 您的所有变量，虽然它可能无法解决您的特定问题，但这是一种很好的编程习惯，它可能会揭示您的代码中的其他问题，您可以修复并摆脱这些问题。

2. 尝试重写没有变量d的代码部分。

   Dim startdatestring As String
   startdatestring = Format(DateAdd("d", -7, Now), "Short Date")