maziardm
2016/05/08, 16:06
سلام و روزخوش
من یه ماکرو ایجاد کردم که طی آن ستون b را با شرایط مورد نظر فیلتر می کند.
Sub Filtering()
'
' Filtering Macro
'
' Keyboard Shortcut: Ctrl+q
'
Range("J1").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
">=950101", Operator:=xlAnd
Range("K1").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
">=950101", Operator:=xlAnd, Criteria2:="<=950110"
End Sub
در ماکرو فوق قصد بر این است که عملیات فیلتر را بین مقادیر سلول های j1 و k2 انجام دهد. به عبارت دیگر با تغییر مقادیر سلول های فوق فیلترنیگ نیز بر اساس مقادر جدید صورت پذیرد. حال باید چه تغییراتی را در ماکرو فوق انجام دهم که خواسته ام برطرف شود.
با تشکر
من یه ماکرو ایجاد کردم که طی آن ستون b را با شرایط مورد نظر فیلتر می کند.
Sub Filtering()
'
' Filtering Macro
'
' Keyboard Shortcut: Ctrl+q
'
Range("J1").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
">=950101", Operator:=xlAnd
Range("K1").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2, Criteria1:= _
">=950101", Operator:=xlAnd, Criteria2:="<=950110"
End Sub
در ماکرو فوق قصد بر این است که عملیات فیلتر را بین مقادیر سلول های j1 و k2 انجام دهد. به عبارت دیگر با تغییر مقادیر سلول های فوق فیلترنیگ نیز بر اساس مقادر جدید صورت پذیرد. حال باید چه تغییراتی را در ماکرو فوق انجام دهم که خواسته ام برطرف شود.
با تشکر