اختيار و طباعة

[محمد عدنان]

السلام عليكم 

ارجو المساعدة بماكرو للملف الملف حيث عند الضغط على زر طباعة تظهر form يتم من خلاله اختيار الشعب التي يراد طباعتها بعد ان يتم جلب الاسماء منه على شيت ثانية للطباعة مباشرة 

ارجو ان اكون قد اوجزت بالشرح 

و شكرا للكل 

كشوفات الطلبة للعام 2021-2022 frm2.xlsm

[محمد عدنان]

السلام عليكم 

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

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

[محمد عدنان]

السلام عليكم 

هل يوجد طريقة لمعرفة عدد chekbox المحدد بصح ؟

عدد اذا كانت true و عدد false

[lionheart]

Private Sub CommandButton4_Click()
    Dim x As Control, s As String, r As Long
    For Each x In UserForm2.Controls
        If TypeName(x) = "CheckBox" Then
            If x.Value = True Then
                r = r + 1
                s = s & IIf(s = vbNullString, vbNullString, vbLf) & x.Name
            End If
        End If
    Next x
    MsgBox "There are " & r & " Checkboxes" & vbCrLf & s
End Sub

 

[محمد عدنان]

السلام عليكم 

اخ @lionheart كيف ممكن اخلي النتجية تظهر في نفس الشيت خليةh5? 

[lionheart]

Yes you can show the result in any cell by using the cell reference like that

Range("H4").Value = r

[محمد عدنان]

السلام عليكم 

شكرا اخ @lionheart  

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

كيف ممكن يظهر اسم caption ل chekbook  في خلية h5 ? 

[lionheart]

I didn't get what you mean

Show me the desired result

[alliiia]

أستاذنا آسف على سؤالي، لكن لماذا جهازك لا يدعم العربية؟ 

[محمد عدنان]

السلام عليكم 

اخ @lionheart الكود يعمل بشكل جيد 

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

[محمد عدنان]

السلام عليكم 

اخ @lionheart كيف ممكن اذا اعملت صح على اي شعبة يطهر في الخلية من H5 , لغاية 25h  ؟

مثال اذا اخترت العاشر أ و العاشر ب ؟ تظهر في الخلية h5  العاشر أ  و العاشرب في h6 ? , وهكذا 

[lionheart]

After this line

s = s & IIf(s = vbNullString, vbNullString, vbLf) & x.Name

refer to the desire target cell by using the r variable like that

Cells(r + 4, "H").Value = x.Name

 

[محمد عدنان]

السلام عليكم 

استاذ @lionheart لماذا ظهر اسم capion بهاي الطريقة علما بانه تم عمل عمل caption vعن طريق الماكرو التالي :

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 24
        Me.Controls("CheckBox" & CStr(i)).Caption = Worksheets("æÑÞÉ1").Range("A" & CStr(i)).Value
        Me.Controls("CheckBox" & CStr(i)).Value = False
    Next
End Sub

[lionheart]

I have no idea. Attach your file

[محمد عدنان]

السلام عليكم 

اخ @lionheart  i have attach the file 

test student name.xlsm

[lionheart]

You didn't explain the problem well. Please be sepcific and put the desired output as an image if you wait more help

Private Sub btnOk_Click()
    Dim x As Control, s As String, r As Long
    Range("H1:H30").Clear
    For Each x In UserForm2.Controls
        If TypeName(x) = "CheckBox" Then
            If x.Value = True Then
                r = r + 1
                s = s & IIf(s = vbNullString, vbNullString, vbLf) & x.Name
                Cells(r + 4, "H").Value = x.Caption
            End If
        End If
    Next x
    Range("H4").Value = r
End Sub

 

[محمد عدنان]

السلام عليكم 

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

the code work very good  

    the  problem is 

change the line      Cells(r + 4, "H").Value = x.name   to     Cells(r + 4, "H").Value = x.Caption 

thank you very match