اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by lionheart,

الردود الموصى بها

السلام عليكم 

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

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

و شكرا للكل 

print.jpg

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

رابط هذا التعليق
شارك

  • 4 weeks later...
  • أفضل إجابة
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

 

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم 

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

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

رابط هذا التعليق
شارك

السلام عليكم 

استاذ @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

sss.jpg

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information