麻辣家族討論版版 » Excel程式區 » VBA選取紅色索引標籤出現錯誤

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 93
主題: 3
精華: 0
積分: 134
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-3-21
最後登錄: 2020-11-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 93
主題: 3
精華: 0
積分: 134
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-3-21
最後登錄: 2020-11-30

2^#

發表於 2016-5-17 18:29 | 顯示全部帖子

回復 2# luhpro

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

中學生 Rank: 2

帖子: 93
主題: 3
精華: 0
積分: 134
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-3-21
最後登錄: 2020-11-30

3^#

發表於 2016-5-18 12:14 | 顯示全部帖子

回復 5# c_c_lai

萬分感謝,OK了

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

返回列表下一主題上一主題