[حل شده] مشکل در تابع sumif در vba

[الهام-6767]

وقت بخیر
با استفاده از app میخواهم جمع شرطی رو کدنویسی کنم و لی متاسفانه خطا میده و نمیدونم علت چیه؟
خطای overflow

Sub sum()
Dim d As Integer
Dim n As Integer
Dim sum As Integer

For n = 25 To 28
d = Sheet4.Cells(n, 1).Value
sum = Application.WorksheetFunction.SumIf(Sheet3.Range("n:n"), d, Sheet3.Range("j:j"))

Sheet4.Cells(n, 2).Value = sum
Next

End Sub

[rasools13]

سلام
احتمال زیاد اعداد مورد استفاده در فایل اکسل شما خیلی بزرگ (بیش از ۵ رقم) هستند و این مقدار برای Integer زیاد بوده و خطای overflow رخ می دهد
برای رفع آن متغییرهای d و sum رو از نوع Double قرار دهید.

Sub sum()
Dim d, sum As Double
Dim n As Integer

For n = 25 To 28 Step 1
    d = Sheet4.Cells(n, 1).Value
    sum = Application.WorksheetFunction.SumIf(Sheet3.Range("n:n"), d, Sheet3.Range("j:j"))
    Sheet4.Cells(n, 2).Value = sum
Next

End Sub 

[الهام-6767]

خیلی ممنونم حل شد.ممنونم از راهنماییتون

[Amir Ghasemiyan]

خیلی ممنونم حل شد.ممنونم از راهنماییتون

اگر پاسخ سوالتون رو دريافت كردين لطفا تاپيك رو حل شده كنيد