作者jacky1989 ()
看板Visual_Basic
標題[VBA ] 使用with的疑問
時間Sun Aug 13 23:35:58 2023
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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1691940961.A.084.html
1F：→ MOONRAKER: 才一行何必用with 還兩層哩 08/14 23:51
就假鬼假怪+想練功......呵呵
是說這樣會有問題是嗎？
※ 編輯: jacky1989 (150.116.208.71 臺灣), 08/14/2023 23:58:42
2F：→ waiter337: With .Row(2) 08/16 03:13