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

موضوع: جمع غیر تکراری با شرط

  1. #1


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    January_2014
    نوشته ها
    724
    امتیاز
    1500
    سپاس
    540
    سپاس شده
    1,075 در 380 پست

    جمع غیر تکراری با شرط

    سلام
    طبق فایل نمونه من 2 ستون داده دارم که در یک ستون شماره نامه و در ستون بعدی مبلغ مربوط به اون شماره نامه

    و این شماره ها تکرار می شن و هر شماره مبلغ خودشو داره طبق فایل نمونه
    مشکلم اینه میخوام غیر تکرار جمع شه یعنی اگه از یک شماره نامه چندین بار ثبت کنم باز فقط عدد همون نامه جمع بشه و همه رو جمع نکنه

    ممنونم

    اگه کد vba باشه بهتره
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx uni.xlsx اطلاعات (8.1 کیلو بایت, 4 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    بهترین آدم های زندگی ، کسانی هستند
    که وقتی کنارشان بنشینی
    چای ات سرد و دلت گرم میشود


  2.  

  3. #2


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    نقل قول نوشته اصلی توسط ali.b نمایش پست ها
    سلام
    طبق فایل نمونه من 2 ستون داده دارم که در یک ستون شماره نامه و در ستون بعدی مبلغ مربوط به اون شماره نامه

    و این شماره ها تکرار می شن و هر شماره مبلغ خودشو داره طبق فایل نمونه
    مشکلم اینه میخوام غیر تکرار جمع شه یعنی اگه از یک شماره نامه چندین بار ثبت کنم باز فقط عدد همون نامه جمع بشه و همه رو جمع نکنه

    ممنونم

    اگه کد vba باشه بهتره

    سلام دوست عزيز
    با استفاده از اين تابع ميتونين خروجي مد نظرتون رو دريافت كنيد

    کد:
    Function SumUnique(TestRange As Range, SumRange As Range)
    Dim uniq As Variant: ReDim uniq(0)
    Dim i As Long, s As Double
    s = 0
    If TestRange.Rows.Count <> SumRange.Rows.Count Then SumUnique = CVErr(2025): Exit Function
    For i = 1 To TestRange.Rows.Count
        If Not IsInArray(TestRange.Cells(i).Value, uniq) Then
            ReDim Preserve uniq(UBound(uniq) + 1)
            uniq(UBound(uniq)) = TestRange.Cells(i).Value
            s = s + SumRange.Cells(i)
        End If
    Next i
    SumUnique = s
    End Function
    
    
    Private Function IsInArray(val, arr)
    IsInArray = False
    For i = LBound(arr) To UBound(arr)
        If arr(i) = val Then IsInArray = True: Exit Function
    Next i
    End Function

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    June_2016
    نوشته ها
    69
    امتیاز
    51
    سپاس
    17
    سپاس شده
    41 در 27 پست

    نقل قول نوشته اصلی توسط ali.b نمایش پست ها
    سلام
    طبق فایل نمونه من 2 ستون داده دارم که در یک ستون شماره نامه و در ستون بعدی مبلغ مربوط به اون شماره نامه

    و این شماره ها تکرار می شن و هر شماره مبلغ خودشو داره طبق فایل نمونه
    مشکلم اینه میخوام غیر تکرار جمع شه یعنی اگه از یک شماره نامه چندین بار ثبت کنم باز فقط عدد همون نامه جمع بشه و همه رو جمع نکنه

    ممنونم

    اگه کد vba باشه بهتره
    اینم یه روش دیگه
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar uni.rar اطلاعات (15.2 کیلو بایت, 5 نمایش)

  6. سپاس ها (2)


  7. #4


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    January_2014
    نوشته ها
    724
    امتیاز
    1500
    سپاس
    540
    سپاس شده
    1,075 در 380 پست

    سلام
    برای رنج های فیلتر شده چه تغییراتی باید اعمل کنم؟ که فقط سلول های visible رو محاسبه کنه
    ممنونم
    بهترین آدم های زندگی ، کسانی هستند
    که وقتی کنارشان بنشینی
    چای ات سرد و دلت گرم میشود


  8. #5


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    نقل قول نوشته اصلی توسط ali.b نمایش پست ها
    سلام
    برای رنج های فیلتر شده چه تغییراتی باید اعمل کنم؟ که فقط سلول های visible رو محاسبه کنه
    ممنونم

    سلام دوست عزيز

    براي اينكار كافيه فقط اين خط كد رو اصلاح كنيد:
    کد:
    If Not IsInArray(TestRange.Cells(i).Value, uniq) Then
    و بجاي اون اين كد رو بذاريد:
    کد:
    If Not IsInArray(TestRange.Cells(i).Value, uniq) And TestRange.Rows(i).EntireRow.Hidden = False Then

  9. سپاس ها (2)



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

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

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

موضوعات مشابه

  1. نرم افزار حضور غیاب با اکسل
    توسط Amir Ghasemiyan در انجمن برنامه های کاربردی اکسل
    پاسخ ها: 0
    آخرين نوشته: 21 _ 08 _ 2017, 17:01
  2. [حل شده] رسم نمودار یک غیر تابع در اکسل
    توسط Excel learner در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 29 _ 07 _ 2016, 20:53
  3. فرمول الارم بخاطر عدد غیر مجاز
    توسط alikaraj66 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 23 _ 06 _ 2015, 12:09
  4. غیر فعال کردن × بالای فرمها
    توسط javadsar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 04 _ 12 _ 2013, 20:03

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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