طلب المساعدة في كود للخروج من جملة التكرار (تمت الإجابة)

[gamalin]

Sub mohd()

Dim addrows As Integer

Sheets("add").Activate

addrows = Range("A65000").End(xlUp).Row

Dim Value As Double

Dim Quantity As Double

Quantity = Sheets("sale").Cells(2, 9).Value

For i = 2 To addrows

If Sheets(2).Cells(2, 5).Value = Sheets(1).Cells(i, 5).Value Then

If Quantity - Sheets("add").Cells(i, 7).Value >= 0 Then

Value = Value + Sheets("add").Cells(i, 7).Value * Sheets("add").Cells(i, 8).Value

Quantity = Quantity - Sheets(1).Cells(i, 7).Value

Sheets("add").Cells(i, 7).ClearContents

Else

Value = Value + Quantity * Sheets("add").Cells(i, 8).Value

Sheets("add").Cells(i, 7).Value = Sheets("add").Cells(i, 7).Value - Quantity

End If

End If

Sheets(2).Cells(2, 10).Value = Value

Next i

End Sub

في الكود السابق اريد الخروج من حلقة for اذا تحقق الشرط الثاني باللون الاحمر بعد تنفيذ الاجراء ولا يستمر وينفذ باقي الحلقة ويمكن الخروج من الاجراء ككل

mohd.rar

تم تعديل يونيو 10, 2010 بواسطه gamalin

[الحسامي]

السلام عليكم

اخي الكريم جملة الخروج من حلقة اللوب for id

exit for

ويتم وضعها بعد أخر سطر من تحقيق الشرط

For i = 2 To addrows

If Sheets(2).Cells(2, 5).Value = Sheets(1).Cells(i, 5).Value Then

If Quantity - Sheets("add").Cells(i, 7).Value >= 0 Then

Value = Value + Sheets("add").Cells(i, 7).Value * Sheets("add").Cells(i, 8).Value

Quantity = Quantity - Sheets(1).Cells(i, 7).Value

Sheets("add").Cells(i, 7).ClearContents ' هذا هو أخر سطر في تحقيق الشرط

Exit For '  هنا يتم الخروج من حلقة اللوب

Value = Value + Quantity * Sheets("add").Cells(i, 8).Value

Sheets("add").Cells(i, 7).Value = Sheets("add").Cells(i, 7).Value - Quantity

End If

End If

Sheets(2).Cells(2, 10).Value = Value

Next i

[gamalin]

السلام عليكم

اخي الكريم جملة الخروج من حلقة اللوب for id

exit for

ويتم وضعها بعد أخر سطر من تحقيق الشرط

For i = 2 To addrows

If Sheets(2).Cells(2, 5).Value = Sheets(1).Cells(i, 5).Value Then

If Quantity - Sheets("add").Cells(i, 7).Value >= 0 Then

Value = Value + Sheets("add").Cells(i, 7).Value * Sheets("add").Cells(i, 8).Value

Quantity = Quantity - Sheets(1).Cells(i, 7).Value

Sheets("add").Cells(i, 7).ClearContents ' هذا هو أخر سطر في تحقيق الشرط

Exit For '  هنا يتم الخروج من حلقة اللوب

Value = Value + Quantity * Sheets("add").Cells(i, 8).Value

Sheets("add").Cells(i, 7).Value = Sheets("add").Cells(i, 7).Value - Quantity

End If

End If

Sheets(2).Cells(2, 10).Value = Value

Next i

اخي الكريم جزاك الله خيرا وبارك فيك ونفعك بما تعلم وعلمك مما يعلم سبحانة عز وجل