فیلترینگ با کلیک بر روی یک سل

[pishraw]

با سلام .
چگونه می توان با کلیک بر روی یک سلول عمل فیلتر انجام داد

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

[Ali Parsaei]

سلام،
مي شود انجام داد منتهي با vba بايد انجام داد. بنابراين سوال را بايد در تالار ويژوال بيسيک مطرح کنيد. ضمنا" زياد کار معقولي نيست، چون خيلي فايل را کند مي کند، زيرا بايد در رويداد SelectionChange کد نويسي شود و در نتيجه با هر تغيير در صفحه کد بايد مجدد عمل کند و بنابراين اگر اطلاعات داخل صفحه هم زياد باشد تأثير منفي در سرعت فايل مي گذارد.

[iranweld]

با سلام

کدهای ذیل را در قسمت کدنویسی شیت 2 کپی نمایید

با تغییر مقدار C1 عمل فیلتر بر مبنای آن انجام میشود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("C1")) Is Nothing Then

 ActiveSheet.Range("$B:$B").AutoFilter Field:=1, Criteria1:=Range("C1").Value
 
 End If

End Sub 

[pishraw]

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