绿色
SubGreenSht()
DimshtAsWorksheet,Nm$,arr
ForEachshtInThisWorkbook.Sheets
Ifsht.Tab.Color=5287936Then''绿色
Nm=Nm&sht.Name&","
EndIf
Nextsht
Nm=Left(Nm,Len(Nm)-1)
arr=Split(Nm,",")
Sheets(arr).Select
EndSub
SubYellowSht()
DimshtAsWorksheet,Nm$,arr
ForEachshtInThisWorkbook.Sheets
Ifsht.Tab.Color=65535Then''黄色
Nm=Nm&sht.Name&","
EndIf
Nextsht
Nm=Left(Nm,Len(Nm)-1)
arr=Split(Nm,",")
Sheets(arr).Select
EndSub
|
|
