作者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/cn.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