السلام عليكم

[kazan soft]

نرجوا من أهل الخبر في هذا المنتدى الاكثر من رائع ومن خبراء البرمجة

الاطلاع هذه الاوامر في ملف اكسل انا محاسب في شركة نسيج هذا الملف عن عملية

فاتورة بيع اقمشة اريد منكم امشاء زر ترحيل او تصفية للعمليات في هذه الفاتورة وشكرا .

لقد عملة ملف tast اسمة للاطلاع على الفكرة . موجود في المرفقات .

test.rar

[طارق محمود]

السلام عليكم

أخي العزيز

كونت لك دالتين تم تفصيلهم خصيصا لهذا الملف

الدالة الأولي dasan

تلتقط إجمالي الأطوال من البيانات وتجمعها إن تكرر إسم الداسان (ت1 أو ت2 أو ...)

وهذا هو كودها

حيث x هو إسم الداسان

Function dasan(x) As Variant


y = 0

	For r = 6 To 30 Step 6

 	For j = 1 To 22 Step 3

 	s = Cells(r + 5, j)

 	If Cells(r, j) = x Then y = y + s

 	Next j

	Next r

dasan = y


End Function

والثانية تجمع أعداد الألوان بمعلومية متغيرين إسم الداسان ، اللون وهذا هو كودها حيث x هو إسم الداسان ، c هو اللون

Function d_Color(x, c) As Variant

y = 0

 For r = 6 To 30 Step 6

 	For j = 1 To 22 Step 3

 	If Cells(r, j) = x Then

 	For cl = 1 To 4

 	If Cells(r + cl, j + 1) = c And Cells(r + cl, j) > 0 Then y = y + 1

 	Next cl

 	End If

	Next j

 Next r

d_Color = y

End Function

وهذا هو المرفق

kazan soft.rar