VPF::Пронумеровать столбцы - Форум программистов

ArtNeoX

Дата 12.3.2006, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 23.10.2005

Репутация: нет
Всего: нет

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

Gannibal

Дата 13.3.2006, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

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

Код


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

Это сообщение отредактировал(а) Gannibal - 13.3.2006, 17:10

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »