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

[سما محمد]

السادة الاساتذة

بارك الله فيكم

في الفورم الموجود في الصورة وفي الملف

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

اي انه لو قمت بتحديد

التشيك بوكس .... الخاص ... بالفئة الاولي

والتشيك بوكس .... الخاص ... بالفئة الثالثة

والتشيك بوكس .... الخاص ... بالفئة السادسة

 

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

 

الفئة الاولي - الفئة الثالثة - الفئة السادسة

 

 

والغرض من ذلك الامر هو جعل قيمة خلية ما في شيت معين تساوي قيمة التكست بوكس بعد التحديد للتشيك بوكسات

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

 

وفي انتظار ردكم الكريم

 

التشيك بوكس.rar

[أبو حنــــين]

السلام عليكم

يمكن استعمال هذا الكود

Private Sub CommandButton1_Click()

    Dim i As Byte
    For i = 1 To 13
    If Me.Controls("CheckBox" & i).Value = True Then
    TextBox1 = TextBox1 & Me.Controls("CheckBox" & i).Caption & "-"
    Sheet1.Range("A1") = Sheet1.Range("A1") & Me.Controls("CheckBox" & i).Caption & "-"
    End If
    Next i


End Sub

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

Private Sub CommandButton1_Click()
Dim Cntl As Control
Dim Txt As String
For Each Cntl In Me.Frame1.Controls
    If TypeOf Cntl Is MSForms.CheckBox Then
        If Cntl.Value = True Then
            Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption
        End If
    End If
Next
Range("B2").Value = Txt
End Sub

تحياتي

[رجب جاويش]

أحى الحبيب المبدع / أبو حنين

تسلم ايديك

وجزاك الله كل خير

[رجب جاويش]

أستاذى الحبيب  أستاذ الإبداع / عبد الله باقشير

تسلم ايديك

وجزاك الله كل خير

[أبو حنــــين]

الأخ الحبيب : رجب جاويش

جزاكم الله خيرا على المرور

حفظكم الله و رعاكم

[حمادة عمر]

السلام عليكم

الاستاذ الحبيب / أبو حنين

بارك الله فيك

فعلا وبحق تسلم ايديك

وحتي دائما اظل بجوارك  ... اضافه لاتذكر علي كود سيادتكم لمسح بيانات الخلية المحددة ( لمنع التكرار فقط )

Private Sub CommandButton1_Click()
    Dim i As Byte
    '=============================
    Sheet1.Range("A1").Value = ""
    '=============================
    For i = 1 To 13
    If Me.Controls("CheckBox" & i).Value = True Then
    TextBox1 = TextBox1 & Me.Controls("CheckBox" & i).Caption & "-"
    Sheet1.Range("A1") = Sheet1.Range("A1") & Me.Controls("CheckBox" & i).Caption & "-"
    End If
    Next i
End Sub

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاستاذ القدير العلامه الخبير / عبدالله باقشير

بارك الله فيك

دمت لنا معلما وقائداً عظيما

فالاكسيل انت وانت الاكسيل

تقبل خالص تحياتي

[أبو حنــــين]

اخي حمادة

تصويب في مكانه

جزاكم الله خيرا

[سما محمد]

منتهي منتهي الشكر لكم اساتذتي الكرام الاجلاء

لقد جعلتموني افتخر بنفسي لوجود هذه الكوكبة من العباقرة في موضوع لي

لكم مني ارق التحيات

[سما محمد]

الاستاذ القدير / عبد الله باقشير

بالنسبة لكود حضرتك

هل يمكن ان يعمل الكود في حالة عدم وجود الفرام الموجود بالفورم

وتكون التشيكات بوكس متواجدة علي الفورم مباشرة

حيث حاولت التعديل علي الكود

ولكني تأكدت من ان الكود مرتبط

بوجود الفرام فهل يمكن عمل هذا التعديل

جزاك الله خيرا

[إبراهيم ابوليله]

الاخوه الافاضل

بسم الله ما شاء الله

ايه الحلاوه والجمال

والادب فى التنافس على توصيل المعلومه

بارك الله فيكم جميعا

اكواد متنوعه مستفاد منها باذن الله

كل الشكر والتقدير

للاخ والاستاذ ابوحنين

و الاخ والاستاذ عبدالله

[عبدالله باقشير]

الاستاذ القدير / عبد الله باقشير

بالنسبة لكود حضرتك

هل يمكن ان يعمل الكود في حالة عدم وجود الفرام الموجود بالفورم

وتكون التشيكات بوكس متواجدة علي الفورم مباشرة

حيث حاولت التعديل علي الكود

ولكني تأكدت من ان الكود مرتبط

بوجود الفرام فهل يمكن عمل هذا التعديل

جزاك الله خيرا

 

نعم ممكن مع تعديل بسيط

Private Sub CommandButton1_Click()
Dim Cntl As Control
Dim Txt As String
For Each Cntl In Me.Controls
    If TypeOf Cntl Is MSForms.CheckBox Then
        If Cntl.Value = True Then
            Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption
        End If
    End If
Next
Range("B2").Value = Txt
End Sub

تحياتي

[رجب جاويش]

بعد اذن أستاذى الحبيب

 

أختى الفاضلة / سما محمد

يكون التعديل فى الكود كالآتى

Private Sub CommandButton1_Click()
Dim Cntl As Control
Dim Txt As String
For Each Cntl In Me.Controls
    If TypeOf Cntl Is MSForms.CheckBox Then
        If Cntl.Value = True Then
            Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption
        End If
    End If
Next
Range("B2").Value = Txt
End Sub

وبالنسبة للفورم يتم ازالة الـ FRAME1

التشيك بوكس.rar

[سما محمد]

منتهي منتهي الشكر لكم اساتذتي الكرام الاجلاء

لقد جعلتموني افتخر بنفسي لوجود هذه الكوكبة من العباقرة في موضوع لي

لكم مني ارق التحيات

[رجب جاويش]

أختى الفاضلة / سما محمد

جزاك الله كل خير على هذه الكلمات الطيبة

[سما محمد]

كل الشكر لك استاذي العملاق كما ذكر استاذي / حمادة عمر