容量溢出 - excel vba [duplicate]-解网

问：

这个问题在这里已经有答案了：

VBA 整数溢出 70,000 （1 个答案）

VBA 中涉及两个整数和一个长整型的溢出错误（1 个答案）

为什么使用整数而不是长整型？（9 个答案）

4个月前关闭。

我正在编写一个函数来比较两个日期。我的问题是粗体线。当代码执行时，我收到溢出错误。在互联网上进行了几次搜索后，我了解到使用interger而不是longger时可能会发生这种类型的错误，这不是我的情况。

我有大约 23.5 万行要处理，我有点急于在月底之前完成这个函数的编程。

有谁知道为什么会发生这个错误？

这是我的代码：

Public Function date_dif(sheet As String, number As Integer, colonnetarget As Integer, colonnedate1 As Integer, Optional colonnedate2 As Integer)

Dim last_row As Long
Dim sht, sht2 As Worksheet
Dim ligne As Integer
Dim formule As String
Dim crit1, crit2 As String

Set sht = ThisWorkbook.Worksheets(sheet)

last_row = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

If colonnedate2 <> 0 Then
    **For ligne = 2 To last_row**
        sht.Cells(ligne, colonnetarget).Value = DateDiff("d", sht.Cells(ligne, colonnedate1).Value, sht.Cells(ligne, colonnedate2).Value)
    Next
Else
    For ligne = number To last_row
        sht.Cells(lignxe, colonnetarget).Value = DateDiff("d", sht.Cells(ligne, colonnedate1).Value, Now())
    Next
End If


End Function

Excel VBA 函数日期

只需始终在 VBA 中使用。定义为 2 个字节，因此最大值为 32768。在 32 位（或 64 位）系统上，它占用 4 个字节，VBA 在运行时检查限制（以保持兼容性），因此您无论如何都不会节省内存空间 - 请参阅 stackoverflow.com/a/47024456/7599798LongInteger

答：

1赞 Dominique 7/13/2023 #1

以下内容在代码中没有意义：

Dim last_row As Long
...
Dim ligne As Integer
...
    **For ligne = 2 To last_row**

应该是这样，计数器也应该如此，一直到那个：-）last_rowLongLong

容量溢出 - excel vba [duplicate]

Capacity overflow - excel vba [duplicate]

评论

评论