Функция

[Xenta]

Надо срочно добавить в функцию тип ошибки чтобы при вводе буквы выдавал ошибкую Что тут надо поменять?

Function error() As Integer
    
        Dim err  As Integer
    Dim extent As Integer
    
    
    
    
    err = 0
    extent = Worksheets("Лист1").Range("A6").Value
    
    
    If extent < 2 Or extent > 6 Then
        Worksheets("Лист1").Cells(6, 1).Borders.Color = RGB(200, 160, 35)
        
        err = 1
    End If
    
     
     
     
    
        If err = 0 Then
        For i = 0 To extent - 1
            For j = 0 To extent - 1
                If Worksheets("Лист1").Cells(i + 8, j + 1).Value = "" Then
                    Worksheets("Лист1").Cells(i + 8, j + 1).Borders.Color = RGB(200, 160, 35)
                    err = 1
                End If
            Next j
        Next i
    End If
    
    If err = 0 Then
        Worksheets("Лист1").Cells(6, 1).Borders.Color = RGB(192, 192, 192)
        
        For i = 0 To 5
            For j = 0 To 5
                Worksheets("Лист1").Cells(i + 8, j + 1).Borders.Color = RGB(192, 192, 192)
            Next j
        Next i
    End If
    
    If err = 1 Then
        MsgBox "Ошибка ввода"
    End If
    
    error = err

End Function

[IgorGO]

у Вас "удачное решение" назвать переменую Dim err As Integer так же как уже назван обьект в ВБА.
...
On Error Resume Next
extent = Worksheets("Лист1").Range("A6").Val ue
If Err.Number > 0 Then ' Это ваще не число
...

[kuklp]

Не говоря уже о том, что формула не может изменять ячейки(цвет,шрифт, границы и т.д.). Формула только возвращает значение.
Не уверен, но может Вам Это нужно:

Public Function mNumber(n#) As String
       If IsNumeric(n) Then mNumber = "Правильно"
End Function