返回列表 上一主題 發帖

VBA選取紅色索引標籤出現錯誤

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
error.JPG

點偵錯看到黃色的是Sheets(i).Select False 那行,移過去顯示i=73
想請問到底是哪裡出了錯?

回復 2# luhpro


    謝謝回覆
確實下面會有可能一百到兩百多的紅色標籤
如果真的是系統的限制,我想只能分幾次完成或者將所有sheet分割到不同的活頁簿中了

TOP

回復 5# c_c_lai


    萬分感謝,OK了

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題