ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA: программно скопировать формулу
5 сообщений из 5, страница 1 из 1
VBA: программно скопировать формулу
    #35108834
ask_for_ans
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ask_for_ans
Гость
Здравствуйте!
Заполняю лист Excel с помошью VBA из Access'a.
Допустим, в ячейке A1 есть формула: "=B1+C1"
Как программно скопировать ее в ячейку A2, чтобы в A2 было "=B2+C2"?
Вариант с Selection - некрасивый и глупый.
...
Рейтинг: 0 / 0
04.02.2008, 16:43:09
| Ответить | Цитировать | Написать  
VBA: программно скопировать формулу
    #35109192
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
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, 18:55:58
| Ответить | Цитировать | Написать  
VBA: программно скопировать формулу
    #35109426
Pavel55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel55
Гость
Лучше так не делать (не надо вставлять форумулу в одну ячейку, а затем её протягивать куда-то вниз). Лучше вставлять сразу в определённый диапазон. Посмотрите пример

Код: 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
04.02.2008, 22:33:32
| Ответить | Цитировать | Написать  
VBA: программно скопировать формулу
    #35109519
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ask_for_ansДопустим, в ячейке A1 есть формула: "=B1+C1"...
...
Рейтинг: 0 / 0
05.02.2008, 01:16:24
| Ответить | Цитировать | Написать  
VBA: программно скопировать формулу
    #35109728
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
автор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
05.02.2008, 09:08:19
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA: программно скопировать формулу
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=246&tid=2181492]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 24ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 209ms
total:  288ms
созд. / загр.: 288ms
x
x
Закрыть


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