Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2010, 21:33   #1
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
Печаль Макрос в Exl2007 (VB 6.5)

Где ошибка? (Runtime error 1004, Application-defined or object-defined error)

ActiveCell.FormulaR1C1 = _
"= IF (ISBLANK (RC[-3]), IF (ISBLANK (RC[1]),0,MAX(R11C:R[-1]C)+1),0) "
tiger3 вне форума Ответить с цитированием
Старый 22.04.2010, 21:52   #2
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
По умолчанию

http://www.cfin.ru/itm/excel/pikuza/05.shtml
tiger3 вне форума Ответить с цитированием
Старый 22.04.2010, 21:56   #3
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
По умолчанию

есть тут кто живой
tiger3 вне форума Ответить с цитированием
Старый 22.04.2010, 22:00   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
есть тут кто живой
куда вы так торопитесь?

Достаточно убрать лишние пробелы в формуле:

Код:
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-3]), IF(ISBLANK(RC[1]),0,MAX(R11C:R[-1]C)+1),0)"
EducatedFool вне форума Ответить с цитированием
Старый 22.04.2010, 22:00   #5
EugeneS
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 472
По умолчанию

попробуйте так:

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-3]),IF(ISBLANK(RC[1]),0,MAX(R11C:R[-1]C)+1),0)"
EugeneS вне форума Ответить с цитированием
Старый 22.04.2010, 22:14   #6
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
По умолчанию

теперь тут ошибка ActiveCell.Offset(0, -4).Select
tiger3 вне форума Ответить с цитированием
Старый 22.04.2010, 22:16   #7
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
По умолчанию

и тут Selection.PasteSpecial Paste:=xlValues

Последний раз редактировалось tiger3; 22.04.2010 в 22:19.
tiger3 вне форума Ответить с цитированием
Старый 22.04.2010, 22:17   #8
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
По умолчанию

не подумайте ничего плохого, просто я с ВБ совсем не знаком, делаю вот по образцу и нифига
tiger3 вне форума Ответить с цитированием
Старый 22.04.2010, 22:22   #9
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

тут форум программистов, а не форум телепатов.

откуда нам знать, из-за чего ошибка...

Цитата:
теперь тут ошибка ActiveCell.Offset(0, -4).Select
Ошибка возникает из-за того, что на момент выполнения этой строки макроса выделена ячейка одном из столбцов с 1-го по 4-й.
Поэтому макрос не может выделить ячейку, расположенную четырьмя столбцами левее.
EducatedFool вне форума Ответить с цитированием
Старый 22.04.2010, 22:33   #10
tiger3
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 7
По умолчанию

вот спасибо
tiger3 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. Ples Microsoft Office Excel 8 17.12.2016 18:15
Макрос, запускающий макрос из другого закрытого файла petruha Microsoft Office Excel 7 14.03.2010 11:31
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос as-is Microsoft Office Excel 4 25.02.2010 07:51
Макрос Markizka Microsoft Office Excel 1 31.05.2009 20:53
Макрос терпкая_весна Microsoft Office Excel 2 18.05.2009 12:53