جمع اعداد با كد يكسان

[sohrabahmadi]

با سلام به دوستان و اساتيد گرامي
اگه بخواهيم جمع رديفهاي مشابه رو بوسيله vb انجام بديم بايد چكار كرد؟
البته موضوعاتي در اين مورد مطرح شد كه متاسفانه جواب نگرفتم.ممنون ميشم از اساتيد اگه كمك كنند. اينم نمونه فايل:
http://persiandrive.com/131649

[~M*E*H*D*I~]

RE: جمع اعداد با كد يكسان

سلام
میتونی از sumif در قالب کد استفاده کنی

application.worksheetfunction.sumif(range,criteria) 

[shamsololama]

RE: جمع اعداد با كد يكسان

با سلام به دوستان و اساتيد گرامي
اگه بخواهيم جمع رديفهاي مشابه رو بوسيله vb انجام بديم بايد چكار كرد؟
البته موضوعاتي در اين مورد مطرح شد كه متاسفانه جواب نگرفتم.ممنون ميشم از اساتيد اگه كمك كنند. اينم نمونه فايل:
http://persiandrive.com/131649

با درود فراوان
برای این کار به روشهای مختلفی می توان انجام داد که دو روش آن را در فایل نمونه قرار داده ام

روش اول

Private Sub ComboBox1_Change()
Dim c As Range

For Each c In Sheet1.Range("A2:A100")
If c.Value = ComboBox1.Text Then

m = m + c.Offset(0, 1).Value
End If

Label1.Caption = m


Next c

End Sub



روش دوم

Private Sub CommandButton2_Click()
Dim c As Range

For Each c In Sheet1.Range("A2:A100")
If c <> "" Then
For Each b In Sheet1.Range("a2:a100")
If b = c Then
m = m + b.Offset(0, 1).Value
End If
Next b
c.Offset(0, 2).Value = m
m = 0
End If
Next c
End Sub


فایل نمونه:
[attachment=905]

[sohrabahmadi]

RE: جمع اعداد با كد يكسان

با درود به دوستان بويژه استاد شمس العلما عزيز.در سوال فوق چنانچه بخواهيم جمع اعداد را با دو شرط بگيريم چكار بايد كرد . مثلا اعداد مشابه در ستون 2 به شرطي كه عدد يا واژه مشابهي در ستون 1 داشته باشند چطور جمع مي شوند ؟ بسيار ممنون ميشم اگه جواب سوالم رو بديد .مرسي
http://persiandrive.com/17645

[shamsololama]

RE: جمع اعداد با كد يكسان

با درود به دوستان بويژه استاد شمس العلما عزيز.در سوال فوق چنانچه بخواهيم جمع اعداد را با دو شرط بگيريم چكار بايد كرد . مثلا اعداد مشابه در ستون 2 به شرطي كه عدد يا واژه مشابهي در ستون 1 داشته باشند چطور جمع مي شوند ؟ بسيار ممنون ميشم اگه جواب سوالم رو بديد .مرسي
http://persiandrive.com/17645

با درود فراوان

برای این کار در شرطی که برای آن قرار داده ایم با استفاده از And شرط دوم نیز قرار می دهیم

Sub Macro1()

Dim c As Range

For Each c In Sheet1.Range("A2:A100")
If c <> "" Then
For Each b In Sheet1.Range("a2:a100")
If b = c And c.Offset(0, 1) = b.Offset(0, 1) Then
m = m + b.Offset(0, 2).Value
End If
Next b
c.Offset(0, 3).Value = m
m = 0
End If
Next c
End Sub



نمونه فایل:
[attachment=937]

[sohrabahmadi]

RE: جمع اعداد با كد يكسان

تشكر فراوان از استاد گرامي بابت زحمتي كه كشيدين.
اگه حمل بر جسارت نيست ، اگه بخواهيم از اين مقادير گزارش بگيريم مثلا جمع موارد مشابه در شيت 2 بياد بايد چكار كرد ؟ به اين ترتيب كه مثلا كد 1 با همه مشخصات و جمع مقاديرش در يك سطر بياد و ... ممنون ميشم اگه لطف بفرماييد.