پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

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

  1. #1


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

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

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

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

  2.  

  3. #2


    آخرین بازدید
    5 روز پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,149
    امتیاز
    11584
    سپاس
    4,476
    سپاس شده
    10,966 در 2,948 پست

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

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

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

  4. #3


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    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


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

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

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

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

  7. #5


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    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


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

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

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

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


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

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

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

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

کد sumif در vb

جمع یکسان excel

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

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