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

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

  1. #1


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    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.  

  3. #2


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

    یوزرفرم پیشرفته
    آخرین بازدید
    20 _ 05 _ 2017
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

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

    counting

  4. #3


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

    داشبورد (مقدماتی)
    جداول محوری - Pivot table
    کتاب آموزش جامع و پیشرفته اکسل 2010
    آخرین بازدید
    16 _ 06 _ 2017
    تاریخ عضویت
    March_2010
    محل سکونت
    تهران
    نوشته ها
    2,053
    امتیاز
    4464
    سپاس
    2,518
    سپاس شده
    4,052 در 1,242 پست

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

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

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

  5. #4


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

    یوزرفرم پیشرفته
    آخرین بازدید
    20 _ 05 _ 2017
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

    با عرض پوزش

    لینک جدید

    counting

  6. #5


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

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

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

    لینک جدید

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

  7. #6


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

    یوزرفرم پیشرفته
    آخرین بازدید
    20 _ 05 _ 2017
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

    با سلام

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

  8. #7


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

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

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

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

  9. #8


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

    یوزرفرم پیشرفته
    آخرین بازدید
    20 _ 05 _ 2017
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

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

  10. #9


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

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

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

  11. #10


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

    یوزرفرم پیشرفته
    آخرین بازدید
    20 _ 05 _ 2017
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    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
    آخرين نوشته: 18 _ 06 _ 2013, 19:13
  2. وابستگی مقداری چند سلول به مقدار یک سلول
    توسط abolhassan در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 27 _ 05 _ 2013, 11:07
  3. خودداري در وررود داده تكراري
    توسط sara t در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 24 _ 07 _ 2012, 22:47
  4. جمع داده هاي تكراري
    توسط 2238 در انجمن كاربرد اكسل در رشته هاي مختلف
    پاسخ ها: 3
    آخرين نوشته: 07 _ 06 _ 2012, 23:05
  5. نحوه تكرار عنوان جداول در هنگام چاپ
    توسط sh_amar در انجمن آموزش موضوعات (گرافيك ،چارت ،نمودار)
    پاسخ ها: 0
    آخرين نوشته: 19 _ 12 _ 2010, 01:41

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

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

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

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