تقرير لمبيعات الزبائن

[نايف - م]

مرفق ملف

أريد تصميم تقرير لمبيعات الزبائن وفق الفورم المرفق 

قائمة بأسماء الزبائن و مجموع مبيعاتهم السنوية

شكرا

المصنف1.rar

[أبو حنــــين]

السلام عليكم

جرب أخي المرفق

 

المصنف2.rar

[نايف - م]

شكرا يا أخي الكريم على الأستجابة

حاولت كثيرا تطبيق الكود على برنامجي فلم ينجح

الكود يعمل بشكل جيد على ورقتك

عند نقل البيانات من ورقتي الى ورقتك كذلك توقف العمل فورا 

يعطي الرسالة التالية 

 

[أبو حنــــين]

ارسل نموذجا من الملف الذي لم يعمل عندك

[نايف - م]

أخي الكريم أسم الزبائن موجود بالعمود Z

قيم المبيعات موجود بالعمود O

قمت باختصار عدد الصفوف حتى اتمكن من الرفع 

شكرا

333.rar

[أبو حنــــين]

مرحبا

اخي لو نظرت الى الخلية   O303 و الخلية   O416   لوجدت انهما لاتحتويان على قيم لذلك وقع الخطأ فكلاهما يحتوي على الكلمة #NUM!

غيرهما بأرقام و جرب مرة أخرى

[نايف - م]

ما شاء الله أخي الكريم 

شكرا لك 

تمت العملية بنجاح تام

أخي الكريم - العملية تأخذ بعض الوقت لأن النسخة الكاملة تحوي حتى الآن 14000 صف و هي قابلة للزيادة يوميا

هل يمكن التسريع قليلا

بعد أذنك و أرجو أن تحتملني :

طبقت الكود التالي لفرز البيانات باللست بوكس

الفرز حسب العمود الأول تمام - الفرز حسب العمود الثاني لم يعمل 

ممكن السبب

Private Sub ComboBox1_Change()
If ComboBox1.Value = "زبائن" Then
    Dim I As Long
    Dim j As Long
    Dim sTemp As String
    Dim sTemp2 As String
    
    Dim LbList As Variant

    LbList = Me.ListBox1.List
 For I = LBound(LbList, 1) To UBound(LbList, 1)
  For j = I + 1 To UBound(LbList, 1)
If LbList(I, 0) > LbList(j, 0) Then

 
                sTemp = LbList(I, 0)
                LbList(I, 0) = LbList(j, 0)
                LbList(j, 0) = sTemp
 
                sTemp2 = LbList(I, 1)
                LbList(I, 1) = LbList(j, 1)
                LbList(j, 1) = sTemp2
 
                 

            End If
        Next j
    Next I
 
    Me.ListBox1.Clear
 
    Me.ListBox1.List = LbList
End If
'-------------------------
If ComboBox1.Value = "مبيعات" Then
LbList = Me.ListBox1.List
 For I = LBound(LbList, 1) To UBound(LbList, 1)
  For j = I + 1 To UBound(LbList, 1)
If LbList(I, 1) > LbList(j, 1) Then
 
                sTemp = LbList(I, 0)
                LbList(I, 0) = LbList(j, 0)
                LbList(j, 0) = sTemp
 
                sTemp2 = LbList(I, 1)
                LbList(I, 1) = LbList(j, 1)
                LbList(j, 1) = sTemp2
 
                 
            End If
        Next j
    Next I
 
    Me.ListBox1.Clear
 
    Me.ListBox1.List = LbList
End If


End Sub