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

الجزيرة

04 عضو فضي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    904

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

 نوع المحتوي 

مشاركات المكتوبه بواسطه الجزيرة

    طباعة صفحات مسلسلة بناءً على تحديد عددها في خلية

    في منتدى الاكسيل Excel

    قام بنشر

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

     

    حياكم الله أخواني الأعزاء

     

    أرغب بكود يقوم بطباعة صفحات مسلسة بناءً على الرقم المدخل في خلية  B2  عند الضغط على زر الكود

     

    مثال :

     

    عندما اضع في الخلية  B2  رقم 5 واضغط على زر الكود يقوم بطباعة الصفحات من 1 إلى 5 وهكذا

     

    مع خالص شكري وتقديري

     

    أخوكم / ابو عبدالله

     

     

    اظهار آخر رقم معين يبدأ بـ *1 أو *2 في العمود

    في منتدى الاكسيل Excel

    قام بنشر

    او غير الدالة بهذه

    Function Ls_Nm(rng As Range, Sb As String) As String
Dim r As Long
Dim v As String
With rng
    For r = .Rows.Count To 1 Step -1
        If InStr(CStr(.Item(r)), Sb) Then
            v = CStr(.Item(r))
            Exit For
        End If
    Next
End With
Ls_Nm = v
End Function

    تحياتي

    استخدمت هذا الكود لأن الأول بطئ نوعاً ما  :)

×
×
  • اضف...

Important Information

  I accept