此收尋vba增加萬用字元 - Excel程式區

[發問] 此收尋vba增加萬用字元

1^# 跳轉到 »

發表於 2013-5-3 13:43 | 顯示全部帖子

回復 20# die78325
這樣嗎?

Dim sName As String
For Each sName In Array("統一", "其他工作表")
With Sheets(sName) '統一工作表區段

'中略

End With '結束統一工作表區段敘述
Next

2^#

發表於 2013-5-3 15:29 | 顯示全部帖子

回復 22# die78325
阿阿 , 抱歉!
沒實際去跑沒發現這錯誤
把宣告的As String拿掉應該就可以了

靜思自在 : 改變自己是自救，影響別人是救人。