返回列表 上一主題 發帖

[發問] 篩選問題

yliu

帖子
49 
主題
8 
精華
0 
積分
63 
點名
0  
作業系統
windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
來自
高雄 
註冊時間
2013-4-8 
最後登錄
2013-10-30 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-29 23:55 | 顯示全部帖子

[發問] 篩選問題

請問如何用篩選方式將二個欄位的值同時是0不顯示?
下面寫法,篩選後,結果只剩下二個欄位的值同時>0, 這不是我要的結果.
希望篩選後的結果如圖一.


篩選問題.zip (10.16 KB)

Private Sub CommandButton1_Click()
With Sheets("sheet1")
  .AutoFilterMode = False
With .Range("A4:C9")
  .AutoFilter
  .AutoFilter field:=2, Criteria1:="<>0"
  .AutoFilter field:=3, Criteria1:="<>0"
   
End With
End With

End Sub
收藏 分享
learner

yliu

帖子
49 
主題
8 
精華
0 
積分
63 
點名
0  
作業系統
windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
來自
高雄 
註冊時間
2013-4-8 
最後登錄
2013-10-30 

論壇贊助勳章
2#
發表於 2013-10-30 13:07 | 顯示全部帖子
回復 2# genes
請問語法該如何寫?
看了說明, 試過了一直都無法成功.
learner

TOP

yliu

帖子
49 
主題
8 
精華
0 
積分
63 
點名
0  
作業系統
windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
來自
高雄 
註冊時間
2013-4-8 
最後登錄
2013-10-30 

論壇贊助勳章
3#
發表於 2013-10-30 17:20 | 顯示全部帖子
回復 5# genes

改寫如下, 但出現"執行階段錯誤1004" 參照無效 , 請問語法哪裡錯了? (不COPY 到別的儲存格, 在原位置進行篩選)
  
Private Sub CommandButton1_Click()
With Sheets("sheet1")
.AutoFilterMode = False
   With .Range("B4:C9")
    .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:="<>0"
    End With
    End With
End With
End Sub
learner

TOP

yliu

帖子
49 
主題
8 
精華
0 
積分
63 
點名
0  
作業系統
windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
來自
高雄 
註冊時間
2013-4-8 
最後登錄
2013-10-30 

論壇贊助勳章
4#
發表於 2013-10-30 21:02 | 顯示全部帖子
回復 7# c_c_lai
謝謝你, 已解決.
learner

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題