تقليص معادلة

[amine14]

السلام عليكم هل من طريقة لي تقليص حجم المعادلة 

If ComboBox2.Value = ComboBox3 Or ComboBox2.Value = ComboBox4 Or ComboBox2.Value = ComboBox5 Or ComboBox2.Value = ComboBox6 Or ComboBox2.Value = ComboBox7 Or ComboBox2.Value = ComboBox8 Or ComboBox2.Value = ComboBox9 Then
MsgBox " لا يمكنك تكرار"
End If

 

[مهند محسن]

وعليكم السلام-فقد نبهنا كثيراً على هذا الأمر لا تنجح اى مشاركة الا بإحتوائها على ملف

فلا تنتظر المساعدة من احد بدون ملف مدعوم بشرح كافى عن المطلوب , حيث لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة

[amine14]

على ما اظن الامر لا يحتاج الى رفع ملف الامر واضح فقط تقليص المعادلة هي عبارة عن سطر كبير ارغب في جعل المعادلة صغير شكرا على تنبيه 

أى مشاركة تحتاج بالتأكيد الى ملــف .فكيف يتم تجربة هذا الكود اليس هذا سهلاً .فان كان هذا سهلا لك لقمت انت بعمله بنفسك ولا احتجت لرفع المشاركة هنا ؟!!!

[سليم حاصبيا]

و هل تريد من من سيقوم بالمساعدة ان يقوم بإنشاء يوزر يحتوي عل 9 كومبو بوكس  و يضع في كل واحد قيمة معينة  ليتأكد من المعادلة

[سليم حاصبيا]

على كل حال لا أعرف اذا كنت تستعمل الكومبو بوكس على الشيت ام على اليوزرفورم

في حال على الشيت  الماكرو الاول 

على اليوزر الماكرو  الثاني

Option Explicit

Sub test_For_Sheets()
Dim x%, i%
With ActiveSheet
  For i = 3 To 9
  x = x + (.OLEObjects("ComboBox" & i).Object.Value = _
    .OLEObjects("ComboBox2").Object.Value)
  Next
End With
 If x < 0 Then
   MsgBox "Duplicate " & -x & " Times"
 Else
   MsgBox "No Duplicate"
 End If
End Sub
'++++++++++++++++++++++++++++++++++++++
Sub test_For_User_form()
Dim x%, i%
With Me
  For i = 3 To 9
  x = x + (.Controls("ComboBox" & i).Value = _
          .Controls("ComboBox2").Value)
  Next
End With
 If x < 0 Then
   MsgBox "Duplicate " & -x & " Times"
 Else
   MsgBox "No Duplicate"
 End If
End Sub