[VBA ] 使用with的疑問
as title
我有4個sheet
分別是sheet1,sheet2,sheet3,sheet4
每個sheet的前6個欄位都相同，今天我想要使用VBA來做一個autofilter
原本code如下
sub filter_top()
call filter("Alice")
end sub
sub filter(optional byref user as string = "Tommy")
Dim sht as WorkSheet
for each sht in ThisWorkBook.sheets
With sht
With Row(2)
.AutoFilter Field:=6 Criteria1:=user VisiableDropDown:=True
End With
End With
next
end sub
然後我就發現有些sheet是正常的，有些是失敗的
我很確定每個sheet的資料都一樣
如果我把內部改為
.Row(2).AutoFilter Field:=6 Criteria1:=user VisiableDropDown:=True
這樣就可以，所以我不能with內部再包with嗎？
再麻煩高手教學一下了，感謝
如果還有需要什麼補充，再請跟我說
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 150.116.208.71 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1691940961.A.084.html
→
08/14 23:51,
8月前
, 1F
08/14 23:51, 1F
就假鬼假怪+想練功......呵呵
是說這樣會有問題是嗎？
※ 編輯: jacky1989 (150.116.208.71 臺灣), 08/14/2023 23:58:42
→
08/16 03:13,
8月前
, 2F
08/16 03:13, 2F