Графика в Excel VBA

[Abdukhafiz]

Привет всем..
Мне нужно нарисовать графику в Excel. В ячейках даны время от 00:00 до 23:59, который используется для значение икса.. А значение y идет из базы данных (MS SQL Server 2005). Я написал такой код в VBA:

For i = 1 To 1440
        t = Application.Cells(i, 1)
        While Not records.EOF
            abc = records(0)
            If abc = t Then
                Application.Cells(i, 2) = "1"
                records.MoveNext
                GoTo Label
            Else
                Application.Cells(i, 2) = Null
                GoTo Label
            End If
        Wend
Label:
    Next

Если данные равны, то добавляет, а если одно значение не будет равно, то остальные единички не добавляется.. Где тут ошибка у меня?

[Казанский]

А что там за данные? Можете записать records(0) в столбец в книге Excel и выложить сюда?
Возможно, дело в погрешности вычислений, подробнее я писал тут.
Попробуйте вместо If abc = t Then

If abs(abc - t)<1E-6 Then 'секунда это приметно 1E-5

[DiemonStar]

Вопрос в лоб:

а нафига вам вот этот цикл

 While Not records.EOF

если вы из него при любом раскладе сразу же выходите:

            If abc = t Then
                Application.Cells(i, 2) = "1"
                records.MoveNext
                GoTo Label
            Else
                Application.Cells(i, 2) = Null
                GoTo Label
            End If