请各位看一下红色这一句应该怎样改

五色晨光

Sub 工作表标签的颜色()
    Dim i As Byte
    Dim sht As Worksheet
    Set sht = Worksheets(2)
    For i = 2 To 26 Step 1
        If sht.Range("A1,A3").Value = "" Then
           sht.Tab.ColorIndex = 43
        Else
           sht.Tab.ColorIndex = xlNone
        End If
       sht = sht + 1
    Next i
End Sub


为什么红色的那一句会出现错误的，请问一下应该怎样改吗

Kevin

1. Sub ChangeTabColor()
   
2.     Dim i As Byte
   
3.     Dim sht As Worksheet
   
4.     For i = 2 To 6 Step 1
   
5.         Set sht = Worksheets(i)
   
6.         If sht.Range("A1,A3").Value = "" Then
   
7.            sht.Tab.ColorIndex = 43
   
8.         Else
   
9.            sht.Tab.ColorIndex = xlNone
   
10.         End If
    
11.     Next i
    
12. End Sub

复制代码

你用了FOR NEXT循环，红色那句根本就是多余的。

五色晨光

运行出现错误了

Kevin

请上传附件。

taosheng2014

换个可以吗

1. Sub 工作标签的颜色()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.     If sht.Range("a1,a3") = "" Then
   
5.     sht.Tab.ColorIndex = 43
   
6.     Else
   
7.     sht.Tab.ColorIndex = xlNone
   
8.     End If
   
9.     Next
   
10. End Sub

复制代码