أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
وليد 99999 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة تعديل معادلة صفيف اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





check box

برجاء المساعدة فى اختيار checkbox واحد فقط فى اليوزر فورم وشكرا


موضوع مغلق


subject icon تمت الإجابة check box
18-09-2021 02:51 مساء
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 38
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 

برجاء المساعدة فى اختيار checkbox واحد فقط فى اليوزر فورم
وشكرا
 
 
  Book5.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(16.809) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم بها نبدأ أي موضوع
جرب الكود التالي
Rem In [ClsChk] Class Module
Rem ------------------------
Public WithEvents Chk As MSForms.CheckBox

Private Sub Chk_Change()
    Dim ctl As MSForms.Control
    If Chk.Value = True Then
        For Each ctl In UserForm1.Controls
            If TypeName(ctl) = "CheckBox" And Chk.Name <> ctl.Name Then
                ctl.Value = False
            End If
        Next ctl
    End If
End Sub


Rem In Standard Module
Rem ------------------
Dim col As New Collection

Sub Show_UserForm()
    Dim xChk As ClsChk, xObj As Object
    Set col = Nothing
    For Each xObj In UserForm1.Controls
        If xObj.Name Like "CheckBox**" Then
            Set xChk = New ClsChk
            Set xChk.Chk = CallByName(UserForm1, xObj.Name, VbGet)
            col.Add xChk
        End If
    Next xObj
    Set xChk = Nothing
    UserForm1.Show
End Sub
عرض الإجابة




18-09-2021 05:56 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif check box
السلام عليكم أخي الكريم بها نبدأ أي موضوع
جرب الكود التالي
Rem In [ClsChk] Class Module
Rem ------------------------
Public WithEvents Chk As MSForms.CheckBox

Private Sub Chk_Change()
    Dim ctl As MSForms.Control
    If Chk.Value = True Then
        For Each ctl In UserForm1.Controls
            If TypeName(ctl) = "CheckBox" And Chk.Name <> ctl.Name Then
                ctl.Value = False
            End If
        Next ctl
    End If
End Sub


Rem In Standard Module
Rem ------------------
Dim col As New Collection

Sub Show_UserForm()
    Dim xChk As ClsChk, xObj As Object
    Set col = Nothing
    For Each xObj In UserForm1.Controls
        If xObj.Name Like "CheckBox**" Then
            Set xChk = New ClsChk
            Set xChk.Chk = CallByName(UserForm1, xObj.Name, VbGet)
            col.Add xChk
        End If
    Next xObj
    Set xChk = Nothing
    UserForm1.Show
End Sub

18-09-2021 11:51 مساء
مشاهدة مشاركة منفردة [2]
toytotan
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 38
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 37
 offline 
look/images/icons/i1.gif check box

الاخ العزيز ياسر..  جزاك الله عنا خير الجزاء.. على كل ما بذلته من جهد وإلى القمم . وأن تتميز به عن الكلّ.. أشكرك كلّ الشكر مِن أعماق قلبي.. أبدعت فكان للإبداع مكان.
وبارك الله فيك وفى صحتك وولادك وجعله الله فى ميزان حسناتك


 

19-09-2021 12:40 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif check box
بارك الله فيك أخي الكريم ومشكور على دعواتك الطيبة ، ولك بمثل ما دعوت لي وزيادة
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
check ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:33 صباحا