اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Gmal samy

02 الأعضاء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    70

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

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

 نوع المحتوي 

مشاركات المكتوبه بواسطه Gmal samy

    ترحيل البيانات حسب التاريخ من شيت الى شيت اخر

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

    قام بنشر

    Sub Find_Between()
    Dim First_Sh, Sec_Sh As Worksheet
    Dim First_Rg, Sec_Rg As Range
    Dim My_Min As Long, My_Max, x As Long
    Dim lr, m, i As Integer
    Application.ScreenUpdating = False
      Set First_Sh = Sheets("ÇáÈíÇäÇÊ"): Set Sec_Sh = Sheets("ÇáÐíä ÇÓÊáãæÇ ÇÌæÑåã")
      My_Min = First_Sh.Range("k2"): My_Max = First_Sh.Range("l2")
      Set First_Rg = First_Sh.Range("a1").CurrentRegion.Offset(1)
     Set Sec_Rg = Sec_Sh.Range("a1").CurrentRegion.Offset(1)
     Sec_Rg.ClearContents
    lr = First_Rg.Rows.Count - 1
        m = 2
        For i = 1 To lr

      x = CDate(First_Rg.Cells(i, 1))
     
         If First_Rg.Cells(i, 1) >= My_Min And First_Rg.Cells(i, 1) <= My_Max Then
           Sec_Sh.Cells(m, "a").Resize(1, 9).Value = First_Rg.Cells(i, 1).Resize(1, 9).Value
           m = m + 1
          End If
           Next
           Application.ScreenUpdating = True
    End Sub

     

     

    ممكن شرح للكود

    اخفاء الصف إذا كان مجموعه صفر

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه Abd Elshahed

    عند الطباعة كان يظهر المجموع خطأ كما هو مبين بالصورة ( جمال )

    فقمت بتغير المعادلة لتصبح

    Total3: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "and [Account]=" & [Account]);0)

    ولكن عند تطبيقها في البرنامج الاصلي تظهر الخطأ في المشاركة السابقة

    فاريد طريقة مختلفة تستخدم في التقرير لعدم ظهور الصف الذي به رصيد صفر

    وشكرا

    db1.rar

    untitled.JPG

    ممكن تعملي جمع التراكمي مدين وداين في الرصيد

    في قسم الأكسيس Access

    قام بنشر

    عند ادخال مبلغ المبيعات بتاريخ 2004/8/23 الرصيد التراكمي يظهر صفر

    بسبب ادخال مبلغ تحصيل في نفس التاريخ بنفس القيمة

    كيف يمكن ان يظهر الرصيد التراكمي في السطر الاول 1500

    وفي السطر الثاني بعد ادخال مبلغ التحصيل يظهر صفر

    وشكرا

    untitled.JPG

    كيف اجعل طول الخلايا مساو لأطول خلية بالتقرير

    في قسم الأكسيس Access

    قام بنشر

    هل يمكن تغير الكود الموجود في هذه المشاركة ليكون في تذييل المجموعة بدلا من في ا لتفصيل في حدث عند الطباعة

     

    حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير

    ضع في حدث عند الصفحة الكود التالي

      
       Me.ScaleMode = 1

   Me.ForeColor = 0

   Me.DrawWidth = 3

    وفي التفصيل في حدث عند الطباعة ضع الكود التالي وستحل مشكلتك انشاء الله

      
    Dim ctl As Control

Dim MaxHeight As Long


MaxHeight = 0


For Each ctl In Me

If TypeOf ctl Is TextBox And ctl.Section = 0 Then

   If ctl.Height > MaxHeight Then MaxHeight = ctl.Height

End If

Next


   

For Each ctl In Me

If TypeOf ctl Is TextBox And ctl.Section = 0 Then

   Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight)

End If

Next

  


Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight)

  

Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)

  

     

     

     

    • Like 1
×
×
  • اضف...

Important Information

  I accept