|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
30.08.2008, 23:15 | #1 |
Регистрация: 30.08.2008
Сообщений: 7
|
Как заставить макрос работай автоматически при внесении данных ?
Есть таблица, в нее заносятся данные в конце идет расчет по 4 формулам.
1=(D8+E8-1)*H8/D8), 2=ЕСЛИ(J8>I8;J8;I8), 3=ЕСЛИ(L8>K8;L8;K8), 4=M8*D8/60+N8. Записал макрос (modul1)-> Sub ActualCycle() ' ' ActualCycle макрос ' ActiveCell.FormulaR1C1 = "=(RC[-6]+RC[-5]-1)*RC[-2]/RC[-6]" Range("J8").Select Selection.AutoFill Destination:=Range("J8:J39"), Type:=xlFillDefault Range("J8:J39").Select End Sub Sub PPCycle() ' ' PPCycle макрос ' ActiveCell.FormulaR1C1 = "=IF(RC[-1]>RC[-2],RC[-1],RC[-2])" Range("K8").Select Selection.AutoFill Destination:=Range("K8:K39"), Type:=xlFillDefault Range("K8:K39").Select End Sub Sub LineCycle() ' ' LineCycle макрос ' ActiveCell.FormulaR1C1 = "=IF(RC[-1]>RC[-2],RC[-1],RC[-2])" Range("M8").Select Selection.AutoFill Destination:=Range("M8:M39"), Type:=xlFillDefault Range("M8:M39").Select End Sub Sub ProductionTime() ' ' ProductionTime макрос ' ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-11]/60+RC[-1]" Range("O8").Select Selection.AutoFill Destination:=Range("O8:O39"), Type:=xlFillDefault Range("O8:O39").Select ActiveWorkbook.Save End Sub Он работает только после того как нажмешь на выполнить макрос итд Хотелось бы чтобы он выполнялся автоматически при заносе данных в ячейки, плюс к этому были бы не видны формулы. Как это сделать подскажите гуру!!!! Последний раз редактировалось artfunk; 31.08.2008 в 00:32. Причина: ошибка |
31.08.2008, 01:08 | #2 | |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Цитата:
Private Sub Worksheet_Change в модуле соответствующего листа. Well, тут особо порадовать нечем: любая паранойя требует жертв. Придётся сначала (Формат - защита ячеек) ставить флажок "Скрыть формулы", а потом включать ("Сервис -- Защита") защиту листа. Предупреждаю: при этом почти гарантированы и геморрой, и головная боль одновременно, каким бы странным ни казалось это сочетание. |
|
31.08.2008, 14:41 | #3 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
У меня для 13 листах, ты можешь взять любое! Написан сей макрос, Уважаемым "pashulka". Код:
|
|
31.08.2008, 16:36 | #4 | |
Регистрация: 30.08.2008
Сообщений: 7
|
Привет
Цитата:
|
|
31.08.2008, 16:38 | #5 |
Регистрация: 30.08.2008
Сообщений: 7
|
Привет valerij
То что ты скинул енто конешь очень хорошо, НО еслибы это было на моем примере я бы понял |
31.08.2008, 17:34 | #6 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Re: Чет у меня не получается
artfunk,
в таких случаях я всем рекомендую Первые шаги. Не знаю, лучшее ли это руководство, - просто не знаю в сети других адресованных начинающим. Найдёте лучшее -- не откажите в любезности, бросьте ссылочку. |
31.08.2008, 19:29 | #7 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Держи, все как у тебя, формулы скрыты .Value = .Value, если хочешь их увидеть, закомментируй это выражение.
|
31.08.2008, 19:44 | #8 |
Регистрация: 30.08.2008
Сообщений: 7
|
Привет, Спасиб огромное Valerij !!!!!,
я не туда прописывал вот чайник |
31.08.2008, 19:47 | #9 |
Регистрация: 30.08.2008
Сообщений: 7
|
Заказал книги себе, буду изучать
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос по копированию данных из другого фаила | Devourer12345 | Microsoft Office Excel | 30 | 17.07.2008 04:54 |
как заставить работать макрос при определенном значении ячейки? | Град | Microsoft Office Excel | 5 | 30.05.2008 16:06 |
МАКРОС!ПОИСК ДАННЫХ. HELP! | jungo | Microsoft Office Excel | 8 | 02.04.2008 10:50 |
Макрос - до конца данных | jungo | Microsoft Office Excel | 6 | 08.02.2008 09:47 |