返回列表 上一主題 發帖

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

fengetianxia

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

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

fengetianxia

帖子
93 
主題
3 
精華
0 
積分
134 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-3-21 
最後登錄
2020-11-30 
6#
發表於 2016-5-18 12:14 | 只看該作者
回復 5# c_c_lai


    萬分感謝,OK了

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2016-5-17 19:00 | 只看該作者
回復 1# fengetianxia
未了避免此困惱，你可以稍稍修改成：
  1. If Sheets(i).Tab.ColorIndex = 3 And Sheets(i).Visible Then
複製代碼
便萬事 OK 了。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2016-5-17 18:49 | 只看該作者
回復 3# fengetianxia
如果工左表單中有表單 (Tab) 標示紅色索引標籤，
而且它是被隱藏 (Hidden) 起來的話，在執行到時
(Sheets(i).Select False) 會產生錯誤訊息。
請自行檢查是否其中有被 隱藏 (Hidden)  的表單。

TOP

fengetianxia

帖子
93 
主題
3 
精華
0 
積分
134 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-3-21 
最後登錄
2020-11-30 
3#
發表於 2016-5-17 18:29 | 只看該作者
回復 2# luhpro


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

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-5-16 20:34 | 只看該作者
各位老師,這是我寫的關於選取所有索引標籤為紅色的標籤,在一個比較少sheets的活頁簿試過可以,但是之後在一個 ...
fengetianxia 發表於 2016-5-16 18:02

感覺上是 OverFlow (超過系統許可的範圍)了,
你真的有需要一次複選這麼多個嗎?

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題