[решено] Помогите, пожалуйста, отладить макрос

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

Помогите, пожалуйста, отладить макрос

Помогите, пожалуйста, отладить макрос. Ни разу не программировал на VB.

пользователь вводит 2 числа. На листе 3 Есть 5 колонок вида:

Name|h1|h2|b1|b2

Задача: если число 1 находится в пределах h1-h2, а число 2 находится в пределах b1-b2, то на листе 4 (там находится кнопка, на которую назначен макрос) вывести Name.
Вот что набросал.

Код:

Sub Fill()

    Dim i As Integer

    Dim h As Double

    Dim b As Double

       

    h = Cells(4, 2).Value

    b = Cells(4, 3).Value

    

    For i = 3 To 113

        If ((h >= Worksheets(3).Cells(i, 5).Value) And (h <= Worksheets(3).Cells(i, 6).Value)) Then

            If ((b >= Worksheets(3).Cells(i, 7).Value) And (b <= Worksheets(3).Cells(i, 8).Value)) Then

                Cells(i, 10).Value = Worksheets(3).Cells(i, 2).Value

            End If

        End If

    Next i

End Sub

При нажатии кнопки ничего не происходит (

for

Цитата:

Цитата St33l

For i = 3 To 113
zn1=worksheets(3).cells(i,5).Value
zn2=worksheets(3).cells(i,6).Value
zn3=worksheets(3).cells(i,7).Value
zn4=worksheets(3).cells(i,8).Value
If h>= zn1 And h <= zn2 Then
If b >= zn3 And b <= zn4 Then
Cells(i, 10).Value = Worksheets(3).Cells(i, 2).Value
End If
End If
Next i »

а еще подскажите, как проверить вхождение комбинации символов в строку? например ДСК в слово ПОДСКАЖИТЕ?

Это надо смотреть по формуле, а формулу выбрать из списка формул (там где строка формул проходит). нет сечас под рукой программы.

Цитата:

вхождение комбинации символов в строку

Dim re
re = InStr("ПОДСКАЖИТЕ", "ДСК")

re=3