работа с циклами

[Triksi]

Привет...Помогите пожалуйста написать программу с помощью редактора VBA(Тема:Использование условий и циклов в решении задач с помощью VBA). Вот исходные данные.http://goo.gl/6VvP9

Нужно определить координаты заданного числа в массиве...Я новенькая и сложно не много! Прошу помочь...

[was3110]

А книгу (файл .xls) Вы создали? или помощь нужна от начала до конца?

[Triksi]

Мне нужен только код программы, книгу создала!

[Step_UA]

Зазмещение на страницу результатов, вместо вывода сообщения сделайте сами. Проверку на ввод пустой строки не делал ...
Sub find()
Dim s As String
Dim i, j As Integer
s = InputBox("Введите искомый элемент: ", "Поиск элемента")
For i = 1 To Cells(1, 1)
For j = 1 To Cells(2, 1)
If Cells(i + 3, j + 1) = s Then
MsgBox ("Элемент находится в строке " + Str(i) + " ,столбце " + Str(j))
Exit Sub
End If
Next j
Next i
MsgBox ("Элемент не найден")
End Sub