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

موضوع: تعداد تكرار تا سطر جاری

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2012/05/27
    تاریخ عضویت
    April 2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    تعداد تكرار تا سطر جاری

    فرض كنيد در ستون اول يك سري كلمه داريم. مي خوام در ستون دوم روبروي هر كلمه تعداد تكرارش را از اول ستون تا سطر جاري بنويسد و اين كار تا جايي كه در ستون اول مقدار هست انجام شود .
    خودم از روش زير رفتم اما حتما روش بهتري هم هست. در ضمن فرمولي براي قسمتي كه در سوال زير آن خط كشيده ام پيدا نكردم و 100 گذاشتم.
    [align=left]Sub Button1_Click()
    Dim i As Variant, j As Variant, c As Variant
    c = 0

    For i = 1 To 100
    For j = 1 To i
    If (Cells(i, 1).Value = Cells(j, 1).Value) Then
    c = c + 1
    End If
    Next j
    Cells(i, 2) = c
    c = 0
    Next i

    End Sub
    [/align]
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: تعداد تكرار تا سطر جاري

    با سلام
    یک فایل براتون آماده کردم
    امیدوارم کمکتون کنه

    counting

  3. #3


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

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

    RE: تعداد تكرار تا سطر جاري

    سلام
    با تشکر از اقای چراغی
    من نتونستم فایل ایشون رو دانلود کنم
    اما فکر می کنم با وی بی هست.یک راه فرمولی هم بنده اینجا می ذارم.
    تا جایی که ستون a داده داشته باشه، تعداد هر داده از بالا تا همون سلی که اون داده وجود داره محاسبه میشه.
    سوالی بود در خدمتم
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. #4


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: تعداد تكرار تا سطر جاري

    با عرض پوزش

    لینک جدید

    counting

  5. #5


    آخرین بازدید
    2012/05/27
    تاریخ عضویت
    April 2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: تعداد تكرار تا سطر جاري

    نقل قول نوشته اصلی توسط s.cheraghi
    با عرض پوزش

    لینک جدید

    counting
    با تشكر از كمكتون.
    لطفا در مورد خط زير توضيح بديد.
    [align=left]Set c = Range("a1", b).Find(b.Value, LookIn:=xlValues)[/align]

  6. #6


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: تعداد تكرار تا سطر جاري

    با سلام

    در اینجا شیء b، خانه ای است که قرار است مقدار آن در سطرهای بالاتر آن جستجو شود
    هدف از فرمان Find در اینجا پیدا کردن مقدار سلول نسبت داده شده به شی bا (LookIn:=xlValues) می باشد و فرمان Find به عنوان یک متد برای بازه a1 تا شیء b می باشد.
    در نهایت سلول پیدا شده حاوی مقدار b توسط فرمان Find در بازه مربوطه، درون c قرار داده می شود
    امیدوارم شفاف توضیح داده باشم
    در صورت مبهم بودن بفرمائید بیشتر توضیح بدم

  7. #7


    آخرین بازدید
    2012/05/27
    تاریخ عضویت
    April 2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: تعداد تكرار تا سطر جاري

    نقل قول نوشته اصلی توسط s.cheraghi
    با سلام

    در اینجا شیء b، خانه ای است که قرار است مقدار آن در سطرهای بالاتر آن جستجو شود
    هدف از فرمان Find در اینجا پیدا کردن مقدار سلول نسبت داده شده به شی bا (LookIn:=xlValues) می باشد و فرمان Find به عنوان یک متد برای بازه a1 تا شیء b می باشد.
    در نهایت سلول پیدا شده حاوی مقدار b توسط فرمان Find در بازه مربوطه، درون c قرار داده می شود
    امیدوارم شفاف توضیح داده باشم
    در صورت مبهم بودن بفرمائید بیشتر توضیح بدم
    به طور مستقيم نميشه b.value رو داخل يه temp قرار داد؟

  8. #8


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: تعداد تكرار تا سطر جاري

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

  9. #9


    آخرین بازدید
    2012/05/27
    تاریخ عضویت
    April 2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: تعداد تكرار تا سطر جاري

    نقل قول نوشته اصلی توسط s.cheraghi
    سؤالتون مبهمه
    بیشتر توضیح بدین
    من اينجوري متوجه شدم كه در رنج a1 تا b جستجو ميكنه و به b كه رسيد ارزش اون رو برميداره و در c قرار ميده. ميدونم اين تحليل اشتباهه چون اينجوري با شرط بعد از اون هم جور در نمياد!!!

  10. #10


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: تعداد تكرار تا سطر جاري

    برای توضیح بیشتر یک بار کلشو خدمتتون عرض کنم
    b یک شئ Range است و سلول به آن اختصاص داده می شود و در حلقه for سلول تخصیص داده شده بهش عوض شده و در هر مرحله سلول پایین تر به آن تخصیص داده می شود که این تخصیص دادن تا آخرین سلولی از ستون a که دارای مقدار می باشد ادامه پیدا می کند که آخرین سلول در این ستون توسط Range("a1").End(xlDown) مشخص می شود.
    در صورتیکه در ستون بالای b چندین مقدار از مقدار درون سلول b وجود داشته باشد، متد find اولین را پاسخ می دهد( که در اینجا سلول مربوطه را درون یک شئ دیگر به اسم c قرار می دهد)، حال اگر شئ c مقدار بگیرد( به این معنی که سلولی دیگر با محتوای b در بالای سلول تخصیصی به b وجود دارد) آدرس سلول مربوطه درون متغیر firstaddress قرار میگیرد.
    در این برنامه یک شمارنده به اسم sum در نظر گرفته شده که در این مرحله یک عدد به آن اضافه می شود که نشان دهنده تعداد تکرار شده از مقدار متانظر سلول b می باشد
    سپس با استفاده از متد FindNext همین جستجو را دوباره انجام می دهد با این تفاوت که از سلول های بعد از سلول c این جستجو انجام میشود و در صورتیکه آدرس سلول پیدا شده بعدی با آدرس قرار داده شده در firstaddress یکسان باشد ( به این معنی که دیگر سلولی با محتوای موردنظر در بازه باقی مانده، وجود ندارد) از حلقه خارج شده و مقدار sum را در سلول سمت راست سلول b نمایش می دهد.

    امیدوارم کامل و روشن توضیح داده باشم
    در صورت هرگونه ابهام در خدمتم


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

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

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

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

  1. جلو گيري از ورود داده هاي تكراري با كپي
    توسط ahadbares در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2013/06/18, 20:13
  2. وابستگی مقداری چند سلول به مقدار یک سلول
    توسط abolhassan در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2013/05/27, 12:07
  3. خودداري در وررود داده تكراري
    توسط sara t در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/07/24, 23:47
  4. جمع داده هاي تكراري
    توسط 2238 در انجمن كاربرد اكسل در رشته هاي مختلف
    پاسخ ها: 3
    آخرين نوشته: 2012/06/08, 00:05
  5. نحوه تكرار عنوان جداول در هنگام چاپ
    توسط sh_amar در انجمن آموزش موضوعات (گرافيك ،چارت ،نمودار)
    پاسخ ها: 0
    آخرين نوشته: 2010/12/19, 02:41

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

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

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

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

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