Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заполнение ячеек / 2 сообщений из 2, страница 1 из 1
12.06.2007, 19:48:18
    #34590191
abcdefg
abcdefg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение ячеек
Помогите в решении ещё одной проблемы . Мне нужно заполнить ячейки В1: В20 данными из ячейки А1 таким образом :
на листе есть кнопка , каждый раз нажимая на кнопку нужно чтобы данные из А1 заполняли
поочередно ячейки В1:В20.Если В1 заполнена , тогда заполнить В2 ... ну и так далее. Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.06.2007, 07:53:18
    #34590534
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение ячеек
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Application.ScreenUpdating = False
On Error GoTo Err0
Dim i As Integer
   
Sheets("Лист1").Select
A1 = Range("A1").Value

For i =  1  To  20 
    B_i = Range("B" & CStr(i)).Value
    If IsEmpty(B_i) Or IsNull(B_i) Then
        Range("B" & CStr(i)).Value = A1
    End If
Next

Application.ScreenUpdating = True
Exit Sub
Err0:
    Application.ScreenUpdating = True
    MsgBox Err.Description
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заполнение ячеек / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 269ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182804]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 20ms
get tp. blocked users:
 1ms
others: 193ms
total:  269ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]