یافتن ستون فیلتر شده

[sunstar]

سلام علیکم
با سپاس از اساتید گرامی
من یک فایل اکسل دارم که دارای ستون های زیادی می باشدکه بعضی مواقع برحسب نیاز یکی یا بعضی از ستون ها را فیلتر میکنم که در مراجعه بعدی بعلت کثرت ستون ها ، یافتن ستون یا ستون های فیلتر شده مشکل می باشد. آیا کدی وجوددارد که با اجرای آن نام ستون یا ستون های فیلتر شده را اعلام کند؟ آیا کدی وجود دارد که با اجرای آن فیلتراعمال شده در ستون یا ستونها رفع و منقضی گردد.
با سپاس

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

[iranweld]

با سلام
با اجرای کد زیر ،بر روی سلولهای ردیف اول فیلتر اعمال نموده و در صورت اجرای مجدد فیلتر را حذف مینماید

Sub test1()

   Rows("1:1").Select

    Selection.AutoFilter

    Range("A1").Select

End Sub 

[khakzad]

برای رفع فیلتر کد نیاز نیست کافیه clear filter رو بزنید
این لینک رو هم ببینید. توضیح داده شده
Show Excel column filter information in cells - Super User

[sunstar]

سلام مجدد به اساتید گرامی
منظور من از اعلام ستون ها ی فیلتر شده به صورت msgbox بود .اگر راهنمایی بفرمائید ممنون میشم

[khakzad]

دوست عزیز لینک بالا رو نگاه کردید؟
کاملا توضیح داده. کد داره
یک تابع نوشته براش
از همون کد استفاده کنید و بذارید داخل مسیج باکس
انجام بدید به مشکل خوردید سوال بپرسید