如何使用 VBA 最好地解決銷售計算器上的運行時錯誤 6？

Question

我有一個包含多個商店的資料集，我的嘗試是能夠獨立計算每個商店。

值得注意的是，銷售額以日圓計算，因此每筆銷售額為數千。所以我在 VBA 中運行了以下程式碼。

Dim siteID As String, total As Integer, sheet As Worksheet, i As Integer
total = 0
siteID = InputBox("Enter the SiteID name (case sensitive)")
For Each sheet In Worksheets
    For i = 2 To 1000
        If sheet.Cells(i, 2).Value = siteID Then
            total = total + sheet.Cells(i, 26).Value
        End If
    Next i
Next sheet
MsgBox "total sales of " & siteID & " is " & total

結果我收到了runtime e error 6

我稍微調整了一下，意識到這是因為結果有太多字元。最終我所做的是將日元轉換為美元，然後代碼就起作用了！

我想知道是否有更優雅的方法來執行此操作，以便結果保留為日元，這樣我就不必手動轉換為美元。

Answer 1

將您的“總”資料類型從 Integer 更改為 Long，我猜您溢出了 Integer 可以容納的內容。