majidartoor
2014/10/13, 00:45
سلام به همه ی دوستان
اساتید محترم در کد
J = 0
b =5
For Each a In Sheets("check").Range("A2:A50")
If a = b Then
MsgBox "true"
J = 1
End If
Next
If J = 0 Then
MsgBox "false"
End If
اگه تو رنج a2:a50 شرط If a = b سه بار برقرار بشه،اونوقت سه بار هم "MsgBox "true ظاهر میشه،
حالا اگه بخوام فقط یک بار ظاهر بشه باید چیکار کنم؟
یعنی وقتی کد اجرا میشه هرچند بار هم که a = b شد،فقط یک بار " MsgBox "true ظاهر بشه.
اساتید محترم در کد
J = 0
b =5
For Each a In Sheets("check").Range("A2:A50")
If a = b Then
MsgBox "true"
J = 1
End If
Next
If J = 0 Then
MsgBox "false"
End If
اگه تو رنج a2:a50 شرط If a = b سه بار برقرار بشه،اونوقت سه بار هم "MsgBox "true ظاهر میشه،
حالا اگه بخوام فقط یک بار ظاهر بشه باید چیکار کنم؟
یعنی وقتی کد اجرا میشه هرچند بار هم که a = b شد،فقط یک بار " MsgBox "true ظاهر بشه.