نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: جمع اعداد با كد يكسان

  1. #1


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

    sohrabahmadi به Yahoo ارسال پیام

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

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

  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

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

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

    کد PHP:
    application.worksheetfunction.sumif(range,criteria

  4. #3


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

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

    نقل قول نوشته اصلی توسط sohrabahmadi
    با سلام به دوستان و اساتيد گرامي
    اگه بخواهيم جمع رديفهاي مشابه رو بوسيله 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]
    فايل هاي پيوست شده فايل هاي پيوست شده

  5. سپاس ها (1)


  6. #4


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

    sohrabahmadi به Yahoo ارسال پیام

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

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

  7. #5


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

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

    نقل قول نوشته اصلی توسط sohrabahmadi
    با درود به دوستان بويژه استاد شمس العلما عزيز.در سوال فوق چنانچه بخواهيم جمع اعداد را با دو شرط بگيريم چكار بايد كرد . مثلا اعداد مشابه در ستون 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]

    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm ww.xlsm اطلاعات (28.5 کیلو بایت, 11 نمایش)

  8. #6


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

    sohrabahmadi به Yahoo ارسال پیام

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

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

کد sumif در vb

جمع یکسان excel

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است