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

[maryam62]

فرض كنيد در ستون اول يك سري كلمه داريم. مي خوام در ستون دوم روبروي هر كلمه تعداد تكرارش را از اول ستون تا سطر جاري بنويسد و اين كار تا جايي كه در ستون اول مقدار هست انجام شود .
خودم از روش زير رفتم اما حتما روش بهتري هم هست. در ضمن فرمولي براي قسمتي كه در سوال زير آن خط كشيده ام پيدا نكردم و 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]

[s.cheraghi]

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

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

counting

[khakzad]

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

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

[s.cheraghi]

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

با عرض پوزش

لینک جدید

counting

[maryam62]

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

با عرض پوزش

لینک جدید

counting

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

[s.cheraghi]

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

با سلام

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

[maryam62]

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

با سلام

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

به طور مستقيم نميشه b.value رو داخل يه temp قرار داد؟

[s.cheraghi]

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

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

[maryam62]

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

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

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

[s.cheraghi]

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

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

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