Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка при заполнении столбца умной таблицы формулами посредством макроса
 
#1
05.12.2016 09:58:58
Добрый день. В Excel 2016 был создан макрос. Все работало отлично. Открыл книгу в Excel 2007 - вылетает ошибка 1004 application defined error.
В чем проблема?

Прилагаю код макроса:
Код
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Range("Заказ[код]").FormulaR1C1 = _
        "=IFERROR(впр2(INDIRECT(""База""&LEFT([@артикул])&""[наименование]""),[@[наименование в базе]],INDIRECT(""База""&LEFT([@артикул])&""[артикул]""),[@артикул],INDIRECT(""База""&LEFT([@артикул])&""[код]"")),"""")"
Range("Заказ[наименование в базе]").FormulaR1C1 = "=IF([@[наименование клиента]]="""",RC[7],фпр([@[наименование клиента]],RC[7]:RC[16]))"
Application.Calculation = xlCalculationAutomatic
End Sub
 
 
 
#2
05.12.2016 10:00:58
впр2() доступна?
Аналогично с фпр().
Изменено: Hugo - 05.12.2016 10:04:19
 
 
 
#3
05.12.2016 10:04:14
Цитата
surkenny написал: фпр
Что это?
 
 
 
#4
05.12.2016 10:08:23
Цитата
RAN написал: фпрЧто это?
Это пользовательская функция (ищет максимально совпадающее название в базе с таким же артикулом (они не уникальны, уникален код) с названием заказчика). Работает.

Цитата
Hugo написал: впр2() доступна? Аналогично с фпр().
Это ВПР по 2 параметрам. Работает.
Не работает именно макрос, обновляющий формулы и при старте книги, и по кнопке.
 
 
 
#5
05.12.2016 10:10:38
surkenny, с Вас файл-пример.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#6
05.12.2016 10:15:26
Сюда не загрузить. Кидаю ссылку на Dropbox/
 
 
 
#7
05.12.2016 10:47:53
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 100 Кб) в реальной структуре и форматах данных того, что есть сейчас...
Уберите всё лишнее, чтобы файл был в рамках лимита и воспроизводилась в нём описанная ошибка.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#8
05.12.2016 11:28:28
Пример с простым кодом.
Макрос:
Код
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Range("Таб[код]").FormulaR1C1 = _
        "=Таб[[#Эта строка];[артикул]]"
Application.Calculation = xlCalculationAutomatic
End Sub
 
 
 
#9
05.12.2016 11:48:31
Название темы должно отражать суть задачи. Сейчас - общее.
Предложите новое. Модераторы переименуют тему.
 
 
 
#10
05.12.2016 11:53:40
Код
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Me.Worksheets("Лист1").Range("Таб[код]").FormulaR1C1 = "=[@артикул]"
Application.Calculation = xlCalculationAutomatic
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
05.12.2016 12:57:20
Та же самая ошибка.
 
 
 
#12
05.12.2016 13:00:37
Не будет реакции на сообщение №9, тему закрою.
 
 
 
#13
05.12.2016 14:05:53
vikttur, прошу прощения, что пособничал нарушителю.
Предлагаю назвать тему следующим образом:
Ошибка при заполнении столбца умной таблицы формулами посредством макроса

surkenny, подсказка:
Код
Debug.Print ActiveCell.FormulaR1C1

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#14
05.12.2016 18:20:30
То ли я не понял, то ли ошибки нет. В Immediate window я вижу формулы данных ячеек.
Ошибки в формуле нет. В самом макросе тоже. Все прекрасно работает на 2016 excel. На 2007 выдает Run-time error '1004' Application-defined or object-defined error
 
 
 
#15
05.12.2016 18:26:26
surkenny, в 2007 синтаксис обращения в формуле к УТ другой. Поставьте 2007 портабельный и увидите. Делайте проверку на версию офиса или ВБА (точнее не подскажу) и исходя из этого используйте разные формулы.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#16
05.12.2016 18:26:38
surkenny, Вы бы поблагодарили человека за то, что думает вместо Вас и над названием темы. А Вы вообще - хоть бы намек на то, что поняли замечание...
 
 
 
#17
06.12.2016 09:16:57
Благодарю за изменение названия темы! Впредь буду более внимательным.
Так же спасибо за все подсказки. Попробую просто записать макрос, посмотрю, чем отличаются формулы vba  
 
 
 
Страницы: 1
Наверх