Уважаемые знатоки (матрица)

[Bombastick]

Матрица написанна так что бы читать можно было с листа. Сделал. Далее нужно найти заданное Х (любое число от 0 до 9999)
Я нахожу размеры матрицы все ок. а вот дальше не так что то
Сама конструкция такова

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

Private Sub CB_1_Click()
I = 1
While Cells(I, 1) <> ""
I = I + 1
Wend
N = I - 1
I = 1
While Cells(1, I) <> ""
I = I + 1
Wend
M = I - 1
TB_N.Value = N
TB_M.Value = M
ReDim A(1 To N, 1 To M) As Single
For I = 1 To N
For J = 1 To M
A(I, J) = Cells(I, J)
Next J
Next I
End Sub

Private Sub CB_2_Click()
x = Val(TB_X.Value)
For I = 1 To N
For J = 1 To M
If A(I, J) = x Then N = "Yes" Else N = "No"
Next J
Next I
TB_R.Value = N
End Sub

не получается сделать Private Sub CB_2_Click() не выводит результат в TB_R либо все время пишет что есть такое Х, а его нету.Решали сегодня в четвером не вышло, может кто из вас подскажет
Заранее спасибо

[doober]

Сообщение от Bombastick

Решали сегодня в четвером не вышло, может кто из вас подскажет
Заранее спасибо

В команде у вас должно было быть 6 человек,поэтому сразу и не решили

Dim A() As Single
Dim C As Integer
Dim J As Integer
Dim I As Integer
Dim N As Integer
Dim M As Integer
Private Sub CB_1_Click()
I = 1
While Cells(I, 1) <> ""
I = I + 1
Wend
N = I - 1
I = 1
While Cells(1, I) <> ""
I = I + 1
Wend
M = I - 1
TB_N.Value = N
TB_M.Value = M
ReDim A(1 To N, 1 To M) As Single
For I = 1 To N
For J = 1 To M
A(I, J) = Cells(I, J)
Next J
Next I
End Sub

Private Sub CB_2_Click()
Dim NN As String
x = Val(TB_X.Value)
For I = 1 To N
For J = 1 To M
If A(I, J) = x Then
NN = "Yes"
GoTo Yes
Else
NN = "No"
End If
Next J
Next I
Yes:
TB_R.Value = NN
End Sub

[Bombastick]

NN = "Yes"
GoTo Yes
NN = "No" вопросик не судите строго, а как на словах понять эту конструкцию можно? в частности NN=)
А то у препода слишком много вопросов ненужных, не факт что завтра понесу показывать, а ему чото не понравица((

[doober]

У вас N и строка и число одновременно,это точно преподу не понравится
ДО

Private Sub CB_2_Click()
x = Val(TB_X.Value)
For I = 1 To N
For J = 1 To M
If A(I, J) = x Then N = "Yes" Else N = "No"
Next J
Next I
TB_R.Value = N
End Sub

После

Private Sub CB_2_Click()
Dim NN As String
x = Val(TB_X.Value)
For I = 1 To N
For J = 1 To M
If A(I, J) = x Then
NN = "Yes"
GoTo 666' Так понятнее
Else
NN = "No"
End If
Next J
Next I
666
TB_R.Value = NN
End Sub

[Bombastick]

все дошло дошло) мозги сегодня вынесли просто 4 пары сдавал задачи , то то не так то это не так, завтра опять на приключения(
Спасибо