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

[funky_dude]

Нужно определить корректность матрицы.
Если числа в матрице целые и входят в дмапазон от 0 до 100, то матрица корректна, в противном случае- некорректна.
Матрица считывается с листа excel поячеечно.
по одному числу в каждой ячейке.
Вот то, что я написал:

Sub CorrectMatrix()
Dim i, j, rownum, colnum As Variant
Dim bool As Boolean
i = 1
j = 1
rownum = 0
colnum = 0
Do While Cells(i, j).Value <> Empty
i = i + 1
j = j + 1
rownum = rownum + 1
colnum = colnum + 1
Loop
i = i - 1
j = j - 1
rownum = i
colnum = j
For i = 1 To rownum
For j = 1 To colnum
If (Cells(i, j).Value < 0) Or (Cells(i, j).Value) > 100 Or ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value Then
bool = False
Else
bool = True
End If
Next j
Next i
If bool = False Then
MsgBox "Введённая матрица некорректна, т.к. содержимое одной или нескольких ячеек не входит в диапазон 0-100 или не является целым", vbCritical
Else
MsgBox "Введённая матрица корректна", vbOKOnly
End If
End Sub

Всё ок.
Но препод добавил условие, что если в ячейке строка(слово, буква и тп), матрица тоже будет некорректной.
Как это сделать?
всм проверку на то, строка там или число?

[alyon_ka]

добавьте в вашу проверку условие:

  or IsNumeric(Cells(i, j).Value) = False

[funky_dude]

спасибо, но при тестировании на разных матрицах, где хотябы одна ячека- строка, vba выдаёт ошибку о несовпадении типов.
И выделяет эту строку:

If (Cells(i, j).Value < 0) Or (Cells(i, j).Value) > 100 Or ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value Or IsNumeric(Cells(i, j).Value) = False Then

[С.М.С]

А зачем вот это ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value

[funky_dude]

Сообщение от С.М.С

А зачем вот это ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value

проверка того, что число целое(недробное)

[doober]

If (Cells(i, j).Value < 0) Or (Cells(i, j).Value) > 100 Or ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value Or IsNumeric(Cells(i, j).Value) = False Then

Я думаю он ругается на деление строки на 1 оригинальный метод проверки в ячейке число или строка

Код должен выглядеть так

If (Cells(i, j).Value < 0) Or (Cells(i, j).Value) > 100 Or  IsNumeric(Cells(i, j).Value) = False Then

[С.М.С]

да нет деление на 1 нормально, только толку в этом нет. а вот чтобы реагировала на текст, вот

Sub CorrectMatrix()
Dim i, j, rownum, colnum As Variant
Dim bool As Boolean
i = 1
j = 1
rownum = 0
colnum = 0
Do While Cells(i, j).Value <> Empty
i = i + 1
j = j + 1
rownum = rownum + 1
colnum = colnum + 1
Loop
i = i - 1
j = j - 1
rownum = i
colnum = j
For i = 1 To rownum
For j = 1 To colnum
If IsNumeric(Cells(i, j).Value) = True Then
If (Cells(i, j).Value < 0) Or (Cells(i, j).Value) > 100 Or ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value Then
bool = False
Else
bool = True
End If
Else
bool = False
End If
Next j
Next i
If bool = False Then
MsgBox "Ââåä¸ííàÿ ìàòðèöà íåêîððåêòíà, ò.ê. ñîäåðæèìîå îäíîé èëè íåñêîëüêèõ ÿ÷ååê íå âõîäèò â äèàïàçîí 0-100 èëè íå ÿâëÿåòñÿ öåëûì", vbCritical
Else
MsgBox "Ââåä¸ííàÿ ìàòðèöà êîððåêòíà", vbOKOnly
End If
End Sub

[С.М.С]

ругается на несовпадение типа сравниваемых величин, по этому следующее

Тобишь обратите внимание на этот фрагмент:

If IsNumeric(Cells(i, j).Value) = True Then
If (Cells(i, j).Value < 0) Or (Cells(i, j).Value) > 100 Or ((Cells(i, j).Value) \ 1) <> Cells(i, j).Value Then
bool = False
Else
bool = True
End If
Else
bool = False
End If

а точнее замените этим вашу часть, как показано на пост выше

[alyon_ka]

С.М.С прав, сначала проверяйте число ли это а потом уже делайте проверку дальше - делите, умножайте - все равно.

[funky_dude]

всем спасибо