Сообщение об ошибке «Процент стиля не найден» в VBA обычно возникает при попытке доступа к стилю, который не существует в указанном контексте. Чтобы помочь вам устранить эту проблему, я предоставлю несколько возможных методов вместе с примерами кода. Вот несколько подходов, которые вы можете попробовать:

Метод 1: проверьте, существует ли стиль, прежде чем обращаться к нему

Sub CheckStyleExistence()
    Dim styleName As String
    styleName = "MyStyle"

    If Not ActiveWorkbook.Styles(styleName) Is Nothing Then
        ' Style exists, do something
    Else
        ' Style does not exist, handle accordingly
    End If
End Sub

Метод 2. Используйте обработку ошибок, чтобы зафиксировать ошибку «Стиль не найден».

Sub HandleStyleNotFoundError()
    Dim styleName As String
    styleName = "MyStyle"

    On Error Resume Next
    ' Try to access the style
    Dim myStyle As Style
    Set myStyle = ActiveWorkbook.Styles(styleName)

    If Err.Number <> 0 Then
        ' Style not found, handle the error
        MsgBox "Style '" & styleName & "' not found."
        Err.Clear
    Else
        ' Style exists, continue with your code
    End If
    On Error GoTo 0
End Sub

Метод 3. Перебрать все стили и проверить, существует ли нужный стиль

Sub IterateStylesToFindStyle()
    Dim styleName As String
    styleName = "MyStyle"

    Dim wb As Workbook
    Set wb = ActiveWorkbook

    Dim style As Style
    Dim styleFound As Boolean
    styleFound = False

    For Each style In wb.Styles
        If style.Name = styleName Then
            ' Style exists, set the flag and exit the loop
            styleFound = True
            Exit For
        End If
    Next style

    If styleFound Then
        ' Style found, proceed with your code
    Else
        ' Style not found, handle accordingly
    End If
End Sub

Это всего лишь несколько методов, которые можно использовать для обработки ошибки «процент стиля не найден» в VBA. Выберите тот, который соответствует вашим потребностям, и интегрируйте его в свой код. Не забудьте заменить «MyStyle» фактическим названием стиля, к которому вы пытаетесь получить доступ.