Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA: программно скопировать формулу / 5 сообщений из 5, страница 1 из 1
04.02.2008, 16:43:09
    #35108834
ask_for_ans
ask_for_ans
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: программно скопировать формулу
Здравствуйте!
Заполняю лист Excel с помошью VBA из Access'a.
Допустим, в ячейке A1 есть формула: "=B1+C1"
Как программно скопировать ее в ячейку A2, чтобы в A2 было "=B2+C2"?
Вариант с Selection - некрасивый и глупый.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 18:55:58
    #35109192
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: программно скопировать формулу
ask_for_ansЗдравствуйте!
Заполняю лист Excel с помошью VBA из Access'a.
Допустим, в ячейке A1 есть формула: "=B1+C1"
Как программно скопировать ее в ячейку A2, чтобы в A2 было "=B2+C2"?
Вариант с Selection - некрасивый и глупый.

Должно быть так
Код: plaintext
Range("A1:A2").filldown
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 22:33:32
    #35109426
Pavel55
Pavel55
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: программно скопировать формулу
Лучше так не делать (не надо вставлять форумулу в одну ячейку, а затем её протягивать куда-то вниз). Лучше вставлять сразу в определённый диапазон. Посмотрите пример

Код: plaintext
1.
2.
3.
4.
Sub Макрос1()
    [A1:A10] =  2 
    [B1:B10] =  3 
    [C1:C10].Formula = "=A1+B1"
End Sub

Последней строкой мы вводим формулу сразу во весь диапазон С1:С10 и Excel сам её меняет на A2+B2, A3+B3, A4+B4 и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2008, 01:16:24
    #35109519
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: программно скопировать формулу
ask_for_ansДопустим, в ячейке A1 есть формула: "=B1+C1"...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2008, 09:08:19
    #35109728
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: программно скопировать формулу
авторask_for_ans
Допустим, в ячейке A1 есть формула: "=B1+C1"...

тогда немного дополню

Код: plaintext
1.
2.
Public Sub test()
  [d1:d6].Formula = Range("d1").Formula
End Sub


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA: программно скопировать формулу / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 312ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2181492]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 203ms
total:  312ms
x
x
Закрыть


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