با سلام
علاوه بر پاسخ دوست عزیز جناب iranweld از این کد نیز میتونید استفاده کنید بدون استفاده از ستون کمکی
کد PHP:
Sub mehr()
Sheets("Sheet1").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"1394/07/*"
End Sub
Sub aban()
Sheets("Sheet1").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"1394/08/*"
End Sub
Sub azar()
Sheets("Sheet1").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"1394/09/*"
End Sub
Sub dey()
Sheets("Sheet1").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"1394/10/*"
End Sub
Sub bahman()
Sheets("Sheet1").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"1394/11/*"
End Sub
Sub esfand()
Sheets("Sheet1").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"1394/12/*"
End Sub
علاقه مندی ها (Bookmarks)