![]() |
Модераторы: Akina |
![]() ![]() ![]() |
|
Staruha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
Ставлю в первой строке 1 .Во второй пишу =ЕСЛИ(В1>0;A1+1;"").Тащю в низ.При заполнении В1 в А2 появляется 2 и т.д. И так 3000 тычячи формул.Нельзя ли VBA подключить.
![]() -------------------- Возмездие настигнет |
|||
|
||||
hobotyara |
|
|||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 15.8.2003 Репутация: нет Всего: нет |
If Len(Cells(1,2).value)>0 Then
For i=1 to 3000 Cells(i,1).value=i next i End If |
|||
|
||||
Staruha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
Всех с праздиком.Поздравлю маму ,а потом займусь формулой
![]() -------------------- Возмездие настигнет |
|||
|
||||
![]() ![]() ![]() |
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |