[حل شده] شمارش تعداد سل های فیلتر شده

[sunstar]

سلام علیکم
فرض کنید در ستون a در هر سل اطلاعات متغییری احتمالا بعضی تکراری ؛ ثبت میشود .آیا کدی وجود دارد که در صورت فیلتر یکی از اطلاعات ، با اجرا ی آن کد ، تعداد سل های حاوی آن اطلاعات را نمایش دهد ؟
با تشکر

[Amir Ghasemiyan]

سلام علیکم
فرض کنید در ستون a در هر سل اطلاعات متغییری احتمالا بعضی تکراری ؛ ثبت میشود .آیا کدی وجود دارد که در صورت فیلتر یکی از اطلاعات ، با اجرا ی آن کد ، تعداد سل های حاوی آن اطلاعات را نمایش دهد ؟
با تشکر

سلام دوست عزيز
منظور سوالتون رو كامل متوجه نشدم. تعداد سلول هاي حاوي اون اطلاعات منظورتون سلول هاي فيلتر شده هست؟ يعني سلول هاي مخفي؟ يا سلول هايي كه مخفي نيستن؟
اگر با يك عكس منظورتون رو برسونيد فكر كنم بهتر باشه

[sunstar]

سلام استاد
منظور من تعداد سلول هایی است که مخفی نیستند .موفق و موید باشید.

[sunstar]

سلام
امیدوارم این کد به درد عزیزان بخوره و ازش استفاده کنند

Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range

MsgBox rng.Columns(1). _
   SpecialCells(xlCellTypeVisible).Count - 1 _
   & " of " & rng _
   .Rows.Count - 1 & " Records"

End Sub 

[Amir Ghasemiyan]

سلام
امیدوارم این کد به درد عزیزان بخوره و ازش استفاده کنند

Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range

MsgBox rng.Columns(1). _
   SpecialCells(xlCellTypeVisible).Count - 1 _
   & " of " & rng _
   .Rows.Count - 1 & " Records"

End Sub 

نیازی به کد نبود دوست عزیز
تابع subtotal برای همین منظوره. خیلی راحت میتونه بهتون تعداد سطرهای فیلتر شده و فیلتر نشده رو بدست بیارید

در هر صورت خوبه که به جواب رسیدید