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

[shshsh72]

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

 

أشكر جهودكم الطيبة في هذا المنتدى

أستعملت فورم من منتداكم الموقر ... وأريد منكم خدمة

أريد من سيادتكم أن أحصل  على التالي ....

 

بعد الفرز ... العمود الأخير " القيمة " ... أريد مجموع هذا العمود الناتج عن الفرز

 

لم أستطع تحميل الملف بصيغة أكسل ...

إلا أن الملف موجود بمنتداكم الكريم ...

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=53968

 

 

 

[shshsh72]

الملف المطلوب التعديل عليه مرفق هنا

Purchase.rar

[عبدالله باقشير]

شاهد المرفق 2003

Purchase.rar

[عبدالله المجرب]

لا فتوى بعد فتوى ابوعلي 

فالفورم من ابداعاته

[shshsh72]

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

 

جزاكم الله كل الخير ... وجعله الله في ميزان حسناتكم

 

هل لي أن أطمع بالمزيد !!!

 

أريد إضافة زر إلى الفورم ...يؤدي إلى طباعة نتيجة البحث

وهل من الممكن جعل الرقم الناتج عن الجمع يظهر بشكل فواصل  0,000,000.... كذلك لو أمكن تعديل عمود النتيجة ليظهر بنفس الصيغة أيضاً ....

 

جزاكم الله كل الخير سلفاً ...

تم تعديل يونيو 10, 2013 بواسطه shshsh72

[عبدالله باقشير]

وهل من الممكن جعل الرقم الناتج عن الجمع يظهر بشكل فواصل  0,000,000.... كذلك لو أمكن تعديل عمود النتيجة ليظهر بنفس الصيغة أيضاً ....

 

 

استبدل كود البحث بهذا

Private Sub ButtonFind_Click()
Dim MyValue
Dim MyAr() As String
Dim ib As Boolean
Dim MyRow As Long, RR As Long
Dim C As Integer
'-------------------------
If MyColmnFind = 0 Then Exit Sub
'-------------------------
If Me.ListFind.ListCount Then Me.ListFind.Clear
'-------------------------
sRow = ""
Me.LblSum = 0
'-------------------------
With dRng
    For MyRow = 1 To .Rows.Count
        ib = dTest(.Cells(MyRow, MyColmnFind))
        '=======================
        If ib Then
            sRow = sRow & MyRow & " "
            RR = RR + 1
            ReDim Preserve MyAr(1 To ContColmn, 1 To RR)
            For C = 1 To ContColmn
                If IsDate(.Cells(MyRow, C)) Then MyValue = Format(.Cells(MyRow, C).Value2, DateFormt) _
                Else MyValue = Format(.Cells(MyRow, C).Value2, "#,##0.00")
                MyAr(C, RR) = MyValue
                If C = ContColmn Then Me.LblSum = Val(Me.LblSum) + Val(.Cells(MyRow, C))
            Next
            
        End If
    Next
End With
'=========================
Me.LblSum = Format(Me.LblSum, "#,##0.00")
Me.LabelCont.Caption = RR
Me.FrameValue.Visible = CBool(RR)
If RR Then
    Me.ListFind.Column = MyAr
    Me.ListFind.ListIndex = 0
Else
    MsgBox "No Data Result...Sorry Oryx", vbMsgBoxRight, "Sorry..Oryx"
End If
Erase MyAr
End Sub

[shshsh72]

شكراً جزيلا لكم ... وبارك الله بجهودكم

 

إضافة رز الطباعة لناتج الفرز.... لو أمكن .....

[مجدى يونس]

الاخ / عبد الله

استاذ

جزاك الله خير

[shshsh72]

إضافة رز الطباعة لناتج الفرز.... لو أمكن .....

[عبدالله باقشير]

إضافة رز الطباعة لناتج الفرز.... لو أمكن .....

 

Private Sub CommandButton1_Click()
Me.PrintForm
End Sub

 

[shshsh72]

جزاك الله الخير

 

ولكني أريد طباعة الكشف الناتج عن الفرز ... وليس الفورم نفسه

وأتمنى لو كان الكشف المطبوع مشمولا فيه ... ناتج مجموع العمود الأخير والذي تم إضافته من قبلكم ...

 

ولكم جزيل الشكر

[shshsh72]

أريد طباعة الكشف ....الذي ينتج عن الفرز فقط

 

هنا ...وكأني أريد طباعة الصفحة التي تنتج عن الزر ....." نسخ ناتج البحث الى ورقة جديدة "

[shshsh72]

للرفع...