Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Пронумеровать столбцы


Автор: ArtNeoX 12.3.2006, 22:14
В Excel сбрасывается таблица с данными первый столбец пустой.
Как в него поставить цифры нумерация строк с 1 и далее.
(в ходе SQL запроса и експорта в Excel строки отображаются в разном порядке, заранее нумерация неподойдет, будет не по порядку ввода)

Автор: Gannibal 13.3.2006, 00:01
ну типо вот так.. проидёт второй ряд с техтом проверит каждый столбик если чтото написано то поставит цифру если столбец окажеться пустой то нумерация закончиться

Код

Dim intCycle%

For intCycle = 1 To 255 Step 1
    If Cells(2, intCycle) <> "" Then
        Cells(1, intCycle).Value = intCycle
    Else
        Exit For
    End If
Next intCycle


Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)