標題:
VBA選取紅色索引標籤出現錯誤
[打印本頁]
作者:
fengetianxia
時間:
2016-5-16 18:02
標題:
VBA選取紅色索引標籤出現錯誤
各位老師,這是我寫的關於選取所有索引標籤為紅色的標籤,在一個比較少sheets的活頁簿試過可以,但是之後在一個比較多sheets的活頁簿使用的時候卻發生錯誤
Sub 選取紅色()
n = Worksheets.Count
a = 1
For i = 1 To n
If Sheets(i).Tab.ColorIndex = 3 Then
Sheets(i).Select False
End If
Next
End Sub
[attach]24297[/attach]
點偵錯看到黃色的是Sheets(i).Select False 那行,移過去顯示i=73
想請問到底是哪裡出了錯?
作者:
luhpro
時間:
2016-5-16 20:34
各位老師,這是我寫的關於選取所有索引標籤為紅色的標籤,在一個比較少sheets的活頁簿試過可以,但是之後在一個 ...
fengetianxia 發表於 2016-5-16 18:02
感覺上是 OverFlow (超過系統許可的範圍)了,
你真的有需要一次複選這麼多個嗎?
作者:
fengetianxia
時間:
2016-5-17 18:29
回復
2#
luhpro
謝謝回覆
確實下面會有可能一百到兩百多的紅色標籤
如果真的是系統的限制,我想只能分幾次完成或者將所有sheet分割到不同的活頁簿中了
作者:
c_c_lai
時間:
2016-5-17 18:49
回復
3#
fengetianxia
如果工左表單中有表單 (Tab) 標示紅色索引標籤，
而且它是被隱藏 (Hidden) 起來的話，在執行到時
(Sheets(i).Select False) 會產生錯誤訊息。
請自行檢查是否其中有被 隱藏 (Hidden) 的表單。
作者:
c_c_lai
時間:
2016-5-17 19:00
回復
1#
fengetianxia
未了避免此困惱，你可以稍稍修改成：
If Sheets(i).Tab.ColorIndex = 3 And Sheets(i).Visible Then
複製代碼
便萬事 OK 了。
作者:
fengetianxia
時間:
2016-5-18 12:14
回復
5#
c_c_lai
萬分感謝,OK了
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
