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

موضوع: شمارش شرطی

  1. #1


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

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

    شمارش شرطی

    با سلام به اساتید گرامی .توضیحات رو تو فایل پیوست نوشتم ممنون میشم راهنمایی بفرمایید.شمارش بطوری که اسامی تکراری را 1 حساب کند.اگه کد وی بی هم لطف بفرمایین
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx Book1.xlsx اطلاعات (10.7 کیلو بایت, 16 نمایش)
    تو خشنود باشی و ما رستگار

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام


    کدهای ذیل تکراری ها را یکی در نظر میگیرد و عمل شمارش را انجام میدهد.

    کد PHP:
    Sub test()

    Dim list1 As New Collection

    Set list1 
    Nothing

    Dim rng
    cell As Range

    Range
    ("e1") = ""

    Z1 Cells(Rows.Count"B").End(xlUp).Row

    Set rng 
    Range("B1:B" Z1)

    On Error Resume Next

    For Each cell In rng

    if cell<>"" then

    list1
    .Add cellCStr(cell)

    end if

    Next

    Range
    ("e1") = list1.Count


    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls COUNT.xls اطلاعات (38.5 کیلو بایت, 17 نمایش)


  4. #3


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    برای شمارش بدون تکرار میشه از فرمول آرایه ای زیر استفاده کرد:
    کد PHP:
    =SUM(IFERROR(1/COUNTIF(B1:B20;B1:B20);0)) 
    یا از تابع قدرتمند FREQUENCY استفاده کرد:
    کد PHP:
    =SUM(IF(FREQUENCY(MATCH(B1:B20;B1:B20;0);MATCH(B1:B20;B1:B20;0))>0;1)) 
    حالا چنانچه بخواهید از کد های vba استفاده کنید میتونید از روش Evaluate استفاده کنید.
    کد:
    Sub CountUnique() Dim result1, result2 As Integer result1 = Application.Evaluate("=SUM(IFERROR(1/COUNTIF(b1:b20,b1:b20),0))") result2 = Application.Evaluate("=SUM(IF(FREQUENCY(MATCH(B1:B20,B1:B20,0),MATCH(B1:B20,B1:B20,0))>0,1))") Range("f4").Value = result1 Range("f5").Value = result2 End Sub
    ای برادر تو همه اندیشه ای

  5. سپاس ها (3)


  6. #4


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

    sohrabahmadi به Yahoo ارسال پیام
    ممنون از راهنمایی بسیار عالی تون.اگه یه شرط به این اضافه کنیم چه باید کرد ؟مثلا به اضافه شرایط بالا شرط شنارش این باشه که ستون قبلی حتماً برابر با 1 باشه .البته با وی بی لطف میکنید اگه راهنمایی بفرمایید
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx Book1.xlsx اطلاعات (9.7 کیلو بایت, 7 نمایش)
    تو خشنود باشی و ما رستگار

  7. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    فقط کد خط

    کد PHP:
    If cell <> "" And cell.Offset(0, -1).Value 
    تغییر مینماید.

    چنانچه خواستید بر حسب درجه اولویت نیز افراد را مشخص کنید فایل دوم را دانلود کنید

    کد PHP:
    Sub test()

    Dim list1 As New Collection

    Set list1 
    Nothing

    Dim rng
    cell As Range

    z1 
    Cells(Rows.Count"B").End(xlUp).Row

    Range
    ("e1:e" z1) = ""

    Set rng Range("B1:B" z1)

    On Error Resume Next

    For Each cell In rng

    If cell <> "" And cell.Offset(0, -1).Value 1 Then

    list1
    .Add LCase(cell), CStr(LCase(cell))

    End If

    Next

    Range
    ("e1") = list1.Count

    For 1 To list1.Count

    Range
    ("e" 1) = list1.Item(i)

    Next


    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book1.xls اطلاعات (39.5 کیلو بایت, 6 نمایش)
    • نوع فایل: xls Book2.xls اطلاعات (39.5 کیلو بایت, 8 نمایش)
    ویرایش توسط iranweld : 2016/07/01 در ساعت 17:50

  8. سپاس ها (1)



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

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

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

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

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

کلمات کلیدی این موضوع

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

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

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