Привет всем.. Мне нужно нарисовать графику в 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
Если данные равны, то добавляет, а если одно значение не будет равно, то остальные единички не добавляется.. Где тут ошибка у меня?
Привет всем.. Мне нужно нарисовать графику в 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
Если данные равны, то добавляет, а если одно значение не будет равно, то остальные единички не добавляется.. Где тут ошибка у меня?Abdukhafiz
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
