تعلم واقرأ وارتقِ
[img]طباعة من الشيت Uoou910[/img]
تعلم واقرأ وارتقِ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تعلم واقرأ وارتقِ


 
الرئيسيةالبوابةالتسجيلدخول
غفرانك ربنا واليك المصير
رب زدني علما
سجل بالمنتدى ليظهر لك باقى المواضيع المهمه
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
علم اولادك برياض الأطفال والصفوف الأولى من التعليم الابتدائى
مجدى يونس ببورسعيد
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل arabicnet فمرحبا به

عزيزى زائر المنتدى مرحبا بك نرجو التسجيل حتى تشاهد باقى الصفحات المختفية بها المواضيع المهمة

 

 طباعة من الشيت

اذهب الى الأسفل 
كاتب الموضوعرسالة
hassan

hassan

عدد المساهمات : 2
تاريخ التسجيل : 22/12/2019

طباعة من الشيت Empty
مُساهمةموضوع: طباعة من الشيت   طباعة من الشيت Icon_minitimeالأحد ديسمبر 22, 2019 7:24 pm

محتاج من سيادتكم امر طباعة من الشيت بشرط التاريخ
مثال من تاريخ ٠/٠/٠ الي تاريخ ٠/٠/٠
يعمل سلكت للتواريخ المحدده وطباعة
في الغالب سوف يكون تاريخ واحد علي اكثر من ١٠٠ اسم عميل يومياً
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

طباعة من الشيت Empty
مُساهمةموضوع: رد: طباعة من الشيت   طباعة من الشيت Icon_minitimeالإثنين ديسمبر 23, 2019 3:45 am

ارفع ملف اكسل على رابط خارجى
او جرب الكود ده عن طريق زرين

يقوم الاول بفلترة البيانات طبقاً للتاريخ الموجود في الخلية B3 والآخر يقوم بإلغاء الفلترة وإظهار كافة البيانات



الكود:

Private Sub CommandButton1_Click()Dim Ws As Worksheet
    Dim myDate As Variant

    Set Ws = ActiveSheet
    myDate = Ws.Range("B3")

    If IsDate(myDate) Then
        myDate = DateSerial(Year(myDate), Month(myDate), Day(myDate))
    End If

    Application.ScreenUpdating = False
        With Ws
            .AutoFilterMode = False
            .Range("A8:I8").AutoFilter Field:=4, Criteria1:=">=" & myDate, Operator:=xlAnd, Criteria2:="<" & myDate + 1
        End With
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
    If ActiveSheet.ListObjects("Table2").ShowAutoFilter Then
        ActiveSheet.ListObjects("Table2").Range.AutoFilter
    End If



_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
hassan

hassan

عدد المساهمات : 2
تاريخ التسجيل : 22/12/2019

طباعة من الشيت Empty
مُساهمةموضوع: رد: طباعة من الشيت   طباعة من الشيت Icon_minitimeالخميس ديسمبر 26, 2019 4:28 pm

اشكر سيادتكم .
وجاري التجربة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

طباعة من الشيت Empty
مُساهمةموضوع: رد: طباعة من الشيت   طباعة من الشيت Icon_minitimeالأحد ديسمبر 29, 2019 4:24 am

اى خدمة

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
 
طباعة من الشيت
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
تعلم واقرأ وارتقِ :: تعلم الاكسل-
انتقل الى: