你是不是對表格部分或全部設置了寫保護？如果是的話，在設置寫保護前勾選篩選功能，寫保護后還能繼續(xù)用篩選~
-
-
復制到vba窗口，即可
Sub 篩選()
Dim X
X = Range("A65536").End(xlUp).Row
y = [E1]
Range("A1:C" & X).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$" & X).AutoFilter Field:=1, Criteria1:=y
[A1].Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) 'Selection
Dim tr, tc
tr = T晶真簡和紙印arget.Row
tc = Target.Column
If tr = 1 And tc = 5 Then
篩選
End If
End Sub追問 : 我把表格關了，然后重新打開就可以了，謝謝你！！
追答 : Sub 篩選() Dim X X = Range("A65536").End(xlUp).Row y = [E1] Range("A1:C" & X).Select Selection.AutoFilter ActiveSheet.Range("$A$1:$C$" & X).AutoFilter Field:=1, Criteria1:=y [E1].Select '篩選后，回到E1 End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'Selection Dim tr, tc tr = Target.Row tc = Target.Column If tr = 1 And tc = 5 Then 篩選 End If End Sub
-
CTRL+A全選表格,單擊右鍵選擇設置單元格格式,在打開的對話框中單擊保護選項卡,取消"鎖定"和"隱藏"前的勾,然后選中公式所在的列單擊右鍵選擇設置單元格格式,在打開的對話框中單擊保護選項卡,勾選"鎖定"
再單擊"工具----保護-----保護工作表
"
勾選除第一個外的其它選項,同時可以設置密碼(不設置也是可以的)
-
1,選定整個工作表（Ctrl+A), 單元格-格式-保護：將“鎖定”項目清空，確定！
2，選中要保護的單元格，單元格-格式-保護：勾選“鎖定”，確定！
3，保護-保護工作表(密碼可以為空），確定！
最新回答 更多>
相關問答
- 開汽車4s店要什么條件？？？
- wps頁眉邊距在哪
- 臭氧消毒和紫外線消毒哪個更好?
- ipad2為什么會自動下載游戲啊?我在關機后,但好像網(wǎng)絡沒有關,第二天打開ipad會發(fā)現(xiàn)有很多游戲在桌面上
- 歐洲美元的定義是什么？
- 華為手機怎么取消圖標角標數(shù)字
- CAD量大小
- 步步高青花瓷手機現(xiàn)價多少？
- 網(wǎng)頁如何轉(zhuǎn)換成PPT
- cad中種植施工圖對于植物標注w代表什么?
- 網(wǎng)上找的cad電氣圖標，腫么能讓自己用？
- 華為手機屏幕上信號格上為何顯示案晚齊徑妒豐依海糧的是2G？
- 15樓16樓哪個來自樓層好？
- PS相片的提線
- ps腫么在畫布上插入原圖