excelvba中如何将包含某字符串的工作表标签颜色设定为红色？

louweiming5

我有一个工作簿，里面有很多工作表，我想将包含“意大利”字符串的工作表的标签，设定为红色，请问如何编写代码？谢谢

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim wks As Worksheet, rngFind As Range
   
    For Each wks In Worksheets
        With wks
            Set rngFind = .Cells.Find(What:="意大利", Lookat:=xlWhole)
            If Not rngFind Is Nothing Then .Tab.Color = vbRed
        End With
    Next

    Beep
End Sub

gwjkkkkk

。。。。。。。。。。

louweiming5

gwjkkkkk 发表于 2024-6-5 20:05
。。。。。。。。。。

能不能把代码粘到帖子里，我只能手机查看，无法下载附件，谢谢！

gwjkkkkk

已贴，审核中。。。

小凡、、、

---------------------------循环

cidanji

quqiyuan

quqiyuan

参与一下
Sub test()
    For Each sh In Worksheets
        sh.Tab.Color = xlNone
        For Each Rng In sh.UsedRange
            If InStr(Rng, "意大利") Then sh.Tab.Color = vbRed: Exit For
        Next
    Next
    Beep
End Sub