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

البحث في الموقع

Showing results for tags 'شرح كود استدعاء بيانات'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله

  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End

اخر تحديث

  • بدايه

    End

Filter by number of...

انضم

  • بدايه

    End

مجموعه

Job Title

البلد

الإهتمامات

AIM

MSN

Website URL

ICQ

Yahoo

Jabber

Skype

تم العثور علي 2 نتائج

  1. ابو حمادة
    السلام عليكم ورحمة الله وبركاته الاخوة الافاضل اتمنى حد يرد علي الاقل السلام يوجد كود نزلته من هذا المنتدى وعايز اطبقه عندى مش عارف افهمة اتمنى حد يشرحه ليا وجزاكم الله خيرا الكـــــــــود On Error GoTo 1 Dim LastR As Long Dim SText As String Dim StDate As Date Dim EndDate As Date Dim LastR1 As Long Application.ScreenUpdating = False Sheets("Aldata1").Range("b6:s10000").ClearContents SText = Sheets("Aldata1").Range("U3") StDate = Sheets("Aldata1").Range("W2") EndDate = Sheets("Aldata1").Range("W3") LastR1 = Sheets("add").Cells(Rows.Count, 2).End(xlUp).Row If SText <> "" Then Sheets("add").Range("b5:s" & LastR1).AutoFilter Field:=3, Criteria1:=SText Sheets("add").Range("b5:s" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "yyyy/MM/dd"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "yyyy/MM/dd") LastR = Sheets("add").Cells(Rows.Count, 2).End(xlUp).Row If LastR >= 6 Then ' Sheets("add").Range("B5:S" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("Aldata1").Range("B6").PasteSpecial Sheets("Aldata1").Range("A6").Select Sheets("add").Range("b5:S4").AutoFilter End If Else If SText = "" Then Sheets("card").Range("b3:k" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "yyyy/MM/dd"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "yyyy/MM/dd") LastR = Sheets("card").Cells(Rows.Count, 2).End(xlUp).Row If LastR >= 4 Then Sheets("card").Range("C4:k" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("كشف الحساب").Range("C7").PasteSpecial Sheets("كشف الحساب").Range("A7").Select Sheets("card").Range("b3:k3").AutoFilter End If End If End If Application.ScreenUpdating = True 1 End Sub
  2. ابو حمادة
    السلام عليكم ورحمة الله وبركاته الاخوة الافاضل اتمنى حد يرد علي الاقل السلام يوجد كود نزلته من هذا المنتدى وعايز اطبقه عندى مش عارف افهمة اتمنى حد يشرحه ليا وجزاكم الله خيرا الكـــــــــود On Error GoTo 1 Dim LastR As Long Dim SText As String Dim StDate As Date Dim EndDate As Date Dim LastR1 As Long Application.ScreenUpdating = False Sheets("Aldata1").Range("b6:s10000").ClearContents SText = Sheets("Aldata1").Range("U3") StDate = Sheets("Aldata1").Range("W2") EndDate = Sheets("Aldata1").Range("W3") LastR1 = Sheets("add").Cells(Rows.Count, 2).End(xlUp).Row If SText <> "" Then Sheets("add").Range("b5:s" & LastR1).AutoFilter Field:=3, Criteria1:=SText Sheets("add").Range("b5:s" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "yyyy/MM/dd"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "yyyy/MM/dd") LastR = Sheets("add").Cells(Rows.Count, 2).End(xlUp).Row If LastR >= 6 Then ' Sheets("add").Range("B5:S" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("Aldata1").Range("B6").PasteSpecial Sheets("Aldata1").Range("A6").Select Sheets("add").Range("b5:S4").AutoFilter End If Else If SText = "" Then Sheets("card").Range("b3:k" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "yyyy/MM/dd"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "yyyy/MM/dd") LastR = Sheets("card").Cells(Rows.Count, 2).End(xlUp).Row If LastR >= 4 Then Sheets("card").Range("C4:k" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("كشف الحساب").Range("C7").PasteSpecial Sheets("كشف الحساب").Range("A7").Select Sheets("card").Range("b3:k3").AutoFilter End If End If End If Application.ScreenUpdating = True 1 End Sub
×
×
  • اضف...

Important Information

  I accept