Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel Копирование формул в группу / 5 сообщений из 5, страница 1 из 1
17.12.2009, 16:48
    #36372078
Vesna в лесу
Vesna в лесу
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel Копирование формул в группу
Условие: Есть файл, в котором много(40) листов

Задача:Скопировать формулу из ячейки А1 и вставить во все остальные листы в ячейки А1

Как сделать?

(Просто текст так проставить в группу получается, а формулу - нет)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2009, 16:53
    #36372101
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel Копирование формул в группу
Нажать Shift, щелкнуть внизу по ярлыкам первого и сорокового листов, чтобы выделились все листы и теперь вводить формулу. Она вставится во все листы.
Не забыть потом щелкнуть правой кнопкой и дать команду "Разгруппировать".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2009, 17:00
    #36372124
Vesna в лесу
Vesna в лесу
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel Копирование формул в группу
Спасибо. Ошибка наша была в том, что не с того листа начинали группу набирать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2009, 17:03
    #36372141
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel Копирование формул в группу
Макросом:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub tt()
For Each ws In ThisWorkbook.Worksheets
frml = Sheets( 1 ).Cells( 1 ,  1 ).Formula
If ws.Index <>  1  Then ws.Cells( 1 ,  1 ).Formula = frml
Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2009, 15:49
    #36375393
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel Копирование формул в группу
или так
Код: plaintext
1.
2.
3.
4.
5.
Sub test()
Sheets.Select
[a1].Activate
ActiveCell.Formula = Sheets( 1 ).Cells( 1 ,  1 ).Formula
Sheets( 1 ).Select
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel Копирование формул в группу / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 462ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178691]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 240ms
total:  462ms
x
x
Закрыть


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