amine14 قام بنشر يونيو 20, 2020 مشاركة قام بنشر يونيو 20, 2020 السلام عليكم هل من طريقة لي تقليص حجم المعادلة 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 رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يونيو 20, 2020 مشاركة قام بنشر يونيو 20, 2020 وعليكم السلام-فقد نبهنا كثيراً على هذا الأمر لا تنجح اى مشاركة الا بإحتوائها على ملف فلا تنتظر المساعدة من احد بدون ملف مدعوم بشرح كافى عن المطلوب , حيث لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة رابط هذا التعليق شارك More sharing options...
amine14 قام بنشر يونيو 21, 2020 الكاتب مشاركة قام بنشر يونيو 21, 2020 على ما اظن الامر لا يحتاج الى رفع ملف الامر واضح فقط تقليص المعادلة هي عبارة عن سطر كبير ارغب في جعل المعادلة صغير شكرا على تنبيه أى مشاركة تحتاج بالتأكيد الى ملــف .فكيف يتم تجربة هذا الكود اليس هذا سهلاً .فان كان هذا سهلا لك لقمت انت بعمله بنفسك ولا احتجت لرفع المشاركة هنا ؟!!! رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 21, 2020 مشاركة قام بنشر يونيو 21, 2020 و هل تريد من من سيقوم بالمساعدة ان يقوم بإنشاء يوزر يحتوي عل 9 كومبو بوكس و يضع في كل واحد قيمة معينة ليتأكد من المعادلة 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 21, 2020 مشاركة قام بنشر يونيو 21, 2020 على كل حال لا أعرف اذا كنت تستعمل الكومبو بوكس على الشيت ام على اليوزرفورم في حال على الشيت الماكرو الاول على اليوزر الماكرو الثاني 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.