[حل شده] فیلترینگ با کلیک بر روی یک سل

[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]

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