hassan
عدد المساهمات : 2 تاريخ التسجيل : 22/12/2019
| موضوع: طباعة من الشيت الأحد ديسمبر 22, 2019 7:24 pm | |
| محتاج من سيادتكم امر طباعة من الشيت بشرط التاريخ مثال من تاريخ ٠/٠/٠ الي تاريخ ٠/٠/٠ يعمل سلكت للتواريخ المحدده وطباعة في الغالب سوف يكون تاريخ واحد علي اكثر من ١٠٠ اسم عميل يومياً | |
|
مجدى يونس Admin
عدد المساهمات : 1594 تاريخ التسجيل : 17/05/2012 الموقع : محافظة بورسعيد
| موضوع: رد: طباعة من الشيت الإثنين ديسمبر 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 _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس | |
|
hassan
عدد المساهمات : 2 تاريخ التسجيل : 22/12/2019
| موضوع: رد: طباعة من الشيت الخميس ديسمبر 26, 2019 4:28 pm | |
| اشكر سيادتكم . وجاري التجربة | |
|
مجدى يونس Admin
عدد المساهمات : 1594 تاريخ التسجيل : 17/05/2012 الموقع : محافظة بورسعيد
| موضوع: رد: طباعة من الشيت الأحد ديسمبر 29, 2019 4:24 am | |
| اى خدمة _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس | |
|