|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.03.2010, 12:17 | #1 |
Пользователь
Регистрация: 13.10.2009
Сообщений: 17
|
Автоматическое заполнение ячеек (VBA)
Нужно написать код, чтобы при открытии книги автоматически заполнялись ячейки с A1-A10 со значениями от 1-10.
Заранее спасибо за помощь! |
14.03.2010, 12:30 | #2 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
Private Sub Workbook_Open()
Dim i As Integer Sheets(1).Cells(1, 1) = 1 For i = 2 To 10 Sheets(1).Cells(i, 1) = Sheets(1).Cells(i - 1, 1) + 1 Next i End Sub |
15.03.2010, 04:38 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Предлагаю другой вариант. Без цикла:
Код:
Чем шире угол зрения, тем он тупее.
|
15.03.2010, 06:04 | #4 |
Особый статус
Участник клуба
Регистрация: 24.11.2008
Сообщений: 1,535
|
Без понтов
Код:
Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html
Последний раз редактировалось Sasha_Smirnov; 15.03.2010 в 06:25. Причина: smile. |
15.03.2010, 09:00 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А зачем? Какой плюс у предложенного Вами способа? А если нужно "пронумеровать" миллион строк?
Чем шире угол зрения, тем он тупее.
|
15.03.2010, 10:02 | #6 |
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
Оптимизация
Я прошу прощенье что пост немного не в тему, просто раз пошло такое дело, может как-то можно оптимизировать следующий код:
Код:
|
15.03.2010, 10:57 | #7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Оптимизация данного кода зависит от многих факторов. В общем виде, увеличить скорость выполнения Вашей процедуры можно, если работать не с ячейками листа, а с элементами массива. Например, так:
Код:
Есть еще ряд зависимостей: считать ли 0 и пустую ячейку равнозначными?, нужно ли заполнять все пустые (нулевые) ячейки значениями предыдущих, если они идут подряд?
Чем шире угол зрения, тем он тупее.
|
15.03.2010, 11:12 | #8 | |
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
Ноль это ноль, то есть независимое значение, пустая яцейка - это пустая ячейка. У меня в примере ошибка
Код:
Код:
Код:
Цитата:
|
|
15.03.2010, 11:21 | #9 | |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Цитата:
Пишите так Код:
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
|
15.03.2010, 11:24 | #10 |
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
спасибо, что подсказали. Я слабо опытен в VBA, по роду своей деятельности приходится учиться что говориться "на ходу".
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматическое заполнение диапазона ячеек формулой. | garry2000 | Microsoft Office Excel | 3 | 02.03.2010 14:19 |
Автоматическое заполнение ячеек разных листов одной книги | tissot | Microsoft Office Excel | 2 | 26.01.2010 21:24 |
Автоматическое заполнение. Как? | Vitaliy7 | Microsoft Office Access | 2 | 25.01.2010 12:29 |
Автоматическое заполнение строк | Пришвин | Microsoft Office Excel | 32 | 21.09.2009 18:01 |
автоматическое заполнение данными ячеек в excel | kasanad80 | Microsoft Office Excel | 7 | 17.07.2009 15:31 |