国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

`
我想自動篩選 只要改變條件就行
VBA        編號：203        日期：2017/1/12 22:13:32         作者：土豪
Avatar
Avatar
閱讀：0

range.autofilter(區(qū)域的第幾列，條件，與條件2的關(guān)系（或其他條件），條件2，是否顯示下拉箭頭）

注意條件二與條件一不在一列  就將上面的寫個對應的（把第幾列改一下）

這是篩選的代碼

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 2 And Target.Column = 2 Then
Range("a3:c14").AutoFilter
Range("a3:c14").AutoFilter 1, Cells(2, 2), , , False
End If

End Sub

下面是按扭取消篩選

Sub 取消()
Range("a3:c14").AutoFilter

End Sub