Ув. Знатоки. (наработки задачи имеются)

[Helena=]

Дана вещественная матрица. Найти число Х в этой матрице.
Т.е задаю Х получаю результат. Как ни крутили функцию она не дает ответа или выдает ошибку, посмотрите ребят.
Заранее спасибо с Ув. Елена.

[shanemac51]

как минимум

Dim A() As Single
Dim C As Integer
Dim J As Integer
Dim I As Integer

Private Sub CB_1_Click()
N = Val(TB_N.Value)

[EducatedFool]

Проверяй

Private Sub CB_1_Click()
    n = Val(TB_N.Value): On Error Resume Next
    Range("a1").Resize(n, n) = "=int(rand()*50-20)"
    Range("a1").Resize(n, n).Value = Range("a1").Resize(n, n).Value
End Sub

Private Sub CB_2_Click()
    x = Val(TB_X.Value)    ' искомое число
    n = Val(TB_N.Value)    ' размер матрицы
    Set res = Range("a1").Resize(n, n).Find(x)
    If res Is Nothing Then
        MsgBox "Число не найдено в матрице"
    Else
        MsgBox "Число найдено в матрице: строка " & res.Row & ",  столбец " & res.Column
    End If
    TB_R.Value = IIf(res Is Nothing, "no", "yes")
End Sub

[Helena=]

спасибо работает. Благодарность будет отправлена в течении выходных