ترحيل مايتم اختياره من قائمة checkbox الى TextBox1.

[Mohmad83]

السلام عليكم ورحمة الله وبركاته 

السادة الخبراء 

ارفق لكم فورم يحتوي على textbox يتم ملئه من زر قائمة فتفتح القائمة التي تحتوي عدة اختيارات من checkbox 

عند الضغط على ادخال يتم ادراج الفقرات ( checkbox )التي تم اختيارها الى textbox مع مراعاة الفوارز بين الفقرات المدخلة .. ارجو التفضل باضافة الاكواد اللازمة مع خالص الدعاء وفائق الشكر والتقدير لحضراتكم

المصنف1.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود فى اليوزرفورم الثانى

Private Sub CommandButton1_Click()
UserForm1.TextBox1 = ""
Dim ChekCapn As String, Data As String
Dim ChekBx As Control
For Each ChekBx In Me.Controls
If TypeName(ChekBx) = "CheckBox" Then
ChekCapn = ChekBx.Caption
If ChekBx.Value = True Then
Data = Data & "," & ChekCapn
End If
End If
Next
UserForm1.TextBox1.Value = Data
Unload Me
End Sub

 

[Mohmad83]

شكراً استاذ ابراهيم جزاك الله خيراً هل يمكن اضافة الفارزة الى اليسار بدل اليمين

[ابراهيم الحداد]

السلام عليكم ورحمة الله

نعم اخى الكريم

يمكنك اضافة عشرات الشيك بوكس الاخرى

 

[Mohmad83]

استاذي العزيز هل ممكن جعل الفارزة في الوسط تحياتي لك

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اجعل الكود هكذا

Private Sub CommandButton1_Click()
UserForm1.TextBox1 = ""
Dim ChekCapn As String, Data As String
Dim ChekBx As Control, FData As String
For Each ChekBx In Me.Controls
If TypeName(ChekBx) = "CheckBox" Then
ChekCapn = ChekBx.Caption
If ChekBx.Value = True Then
Data = Data & "," & ChekCapn
FData = Mid(Data, 2, Len(Data) - 1)
End If
End If
Next
UserForm1.TextBox1.Value = FData
Unload Me
End Sub

 

[Mohmad83]

تمام التمام هو المطلوب عاشت يداك سيدي لقد اتعبتك معي استاذي العزيز اسئل الله يمدك بالصحة والعلم والتوفيق شكراً جزيلاً 

[ابراهيم الحداد]

السلام عليكم ورحمة الله

بورك فيك اخى الكريم محمد

جعل الله لك من دعاءك لى نصيبا و زيادة ان شاء الله