excel - нужен vba для: Если len (worksheet.tab.name) <3, то измените цвет на конец vbgreen.Спасибо

Question

Пожалуйста, помогите.Мне нужен код, который будет изменять цвета вкладок в зависимости от длины текста в этой вкладке.

Если len (worksheet.tab.name) <3, то измените цвет на конец vbgreen.</p>

спасибо.

Answer 1

Это похоже на работу:

Sub LittleGreenTab()
    Dim s As Worksheet, nm As String
    For Each s In ActiveWorkbook.Sheets
        nm = s.Name
        If Len(nm) < 3 Then
            s.Tab.Color = 5287936
        End If
    Next s
End Sub

Answer 2

Вы можете просто использовать свойство worksheet.name:

if len(worksheet.name)<3 then worksheet.tab.color = RGB(0, 250, 0)