ممكن مساعدتي في حل هذا الخطأ البرمجي

[ابولمى]

يظهر لي الخطأ  run time error "6 

over flow بالرغم انني راعيت حجم البيانات الكبيرفي نوع المتغيرات ولا اعلم لماذا هذا الخطأ يظهر

Sub mytest()
Dim g As Range, f As Range, i As Range
Dim positivevalue As Long, negativevalue As Long, positivevolume As Long, negativevolume As Long, resultevalue1 As Long
Dim resultevalue2 As Long

For Each g In Range(Range("g2"), Range("g5").End(xlDown))
For Each f In Range(Range("f2"), Range("f5").End(xlDown))
For Each i In Range(Range("i2"), Range("i5").End(xlDown))

If i >= 0 Then positivevalue = positivevalue + g
If i < 0 Then negativevalue = negativevalue + g
If i >= 0 Then positivevolume = positivevolume + f
If i < 0 Then negativevolume = negativevolume + f
resultevalue1 = positivevalue / positivevolume
resultevalue2 = negativevalue / negativevolume

Next
Next
Next


End Sub

 

عندما نفذت الكود خطوه خطوه يظهر الخطأ عند هذا السطر

resultevalue1 = positivevalue / positivevolume
resultevalue2 = negativevalue / negativevolume

 

[ابولمى]

للرفع لعل احد الخبراء يحل المشكله

طبعا البيانات في عمود g بالملايين في كل خليه 

وكذلك في عمود f ...حاولت التجربه في كود آخر بطريقه اخرى واستطاع وعمل بشكل جيد..لكن لا اعلم لماذا هنا لا يعمل

تم تعديل أكتوبر 22, 2015 بواسطه مستخدم جديد9

[ياسر خليل أبو البراء]

أخي الكريم

يبدو أن البيانات الكثيرة هي السبب

ممكن ترفق ملف كنموذج للشكل العام للمصنف الأصلي .. لمحاولة فهم الموضوع بشكل أعمق

كما يرجى التوضيح للمطلوب ...

طبعاً ثلاثة حلقات تكرارية مع وجود بيانات كثيرة بالملف يعد كارثة ..

عموماً في انتظار إرفاق نموذج من المصنف يكون معبر عن الملف الأصلي

تقبل تحياتي

[ابولمى]

أخي الكريم

يبدو أن البيانات الكثيرة هي السبب

ممكن ترفق ملف كنموذج للشكل العام للمصنف الأصلي .. لمحاولة فهم الموضوع بشكل أعمق

كما يرجى التوضيح للمطلوب ...

طبعاً ثلاثة حلقات تكرارية مع وجود بيانات كثيرة بالملف يعد كارثة ..

عموماً في انتظار إرفاق نموذج من المصنف يكون معبر عن الملف الأصلي

تقبل تحياتي

أخي الكريم

يبدو أن البيانات الكثيرة هي السبب

ممكن ترفق ملف كنموذج للشكل العام للمصنف الأصلي .. لمحاولة فهم الموضوع بشكل أعمق

كما يرجى التوضيح للمطلوب ...

طبعاً ثلاثة حلقات تكرارية مع وجود بيانات كثيرة بالملف يعد كارثة ..

عموماً في انتظار إرفاق نموذج من المصنف يكون معبر عن الملف الأصلي

تقبل تحياتي

اخي ياسر شكرأ لتفاعلك لقد تم حل المشكلة بدالة on error resume next 

لكن لدي مشكلة اخرى وهي ان دالة if تختبر فقط شرط الاكبر من او يساوي  وتتخطى الشرط الآخر

 

 

[ياسر خليل أبو البراء]

أخي الكريم جرب الكود بهذا الشكل ويرجى إرفاق ملف

Sub myTest()
    Dim gCell As Range, fCell As Range, iCell As Range
    Dim positivevalue As Long, negativevalue As Long, positivevolume As Long, negativevolume As Long
    Dim resultevalue1 As Long, resultevalue2 As Long

    For Each gCell In Range(Range("G2"), Range("G5").End(xlDown))
        For Each fCell In Range(Range("F2"), Range("F5").End(xlDown))
            For Each iCell In Range(Range("I2"), Range("I5").End(xlDown))
                If iCell >= 0 Then
                    positivevalue = positivevalue + gCell
                    positivevolume = positivevolume + fCell
                ElseIf iCell < 0 Then
                    negativevalue = negativevalue + gCell
                    negativevolume = negativevolume + fCell
                End If
                resultevalue1 = positivevalue / positivevolume
                resultevalue2 = negativevalue / negativevolume
            Next
        Next
    Next
End Sub