Помогите дописать программу на VBA!!!

[alyon_ka]

пожалуйста, обращайтесь если что, но не забывайте оставлять отзывы)))

[Teslenko_EA]

Здравствуйте funky_dude.
подобная корректировка кода облегчит Вам в будущем "выполнение условий препода":

Sub CorrectMatrix()
Const sM0 = "Введённая матрица ", sM2 = "корректна"
Const sM1 = "некорректна, т.к. содержимое " + vbCrLf + "одной или нескольких ячеек "
Dim i As Integer, j As Integer, rownum As Integer, colnum As Integer, s As String
Do While Cells(i + 1, j + 1).Value <> Empty
    i = i + 1:    j = j + 1
Loop
rownum = i: colnum = j
For i = 1 To rownum
    For j = 1 To colnum
        If Not IsNumeric(Cells(i, j).Value) = True Then
            s = "не число"
        ElseIf Cells(i, j).Value < 0 Then
            s = "меньше 0"
        ElseIf Cells(i, j).Value > 100 Then
            s = "больше 100"
        ElseIf Not Cells(i, j).Value \ 1 = Cells(i, j).Value Then
            s = "не является целым"
        'если преподаватель пожелает ещё добавить условие просто добавьте
        'ElseIf .... Then
        '   ...
        End If
        If Len(s) > 0 Then Exit For
    Next
    If Len(s) > 0 Then Exit For
Next
MsgBox sM0 + IIf(Len(s) = 0, sM2, sM1 + s), IIf(Len(s) = 0, 0, 16)
End Sub

надеюсь не сильно опоздал
Евгений.