Вставка формул в Excel с VB

@Markaz · Регистрация: 01.04.2008

Студворк — интернет-сервис помощи студентам

Проблема такая
Как из программы на VB в экселевский лист вставить свою функцию находящуюся в персональной книге макросов, указать и разделить параметры функции. Код следующий:
With ExcWbk.Worksheets('main')
.Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc(a5;b6)'
End With

Здесь выдает ошибку:
1004 Application-defined or object-defined error

Что это за ошибка и как с ней бороться.

Заранее спасибо.

@Markaz · 10.06.2008, 16:32 **[ТС]**

Неужто никто не знает?

10.06.2008, 17:22

Попробуй
Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc(a5,b6)'
или
Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc(a5:b6)'

@Markaz · 10.06.2008, 17:30 **[ТС]**

Пробовал уже первый вариант. Не фурычит. Та же самая ошибка. А второй вряд ли подойдет. Это же описание диапозона получается, а мне нужно два параметра различных. Когда в функции один параметр оставляю (в данном случае а5) он его в кавычки заключает, т.е. на листе получается:

=PERSONAL.xls!MyCalc('a5')

10.06.2008, 18:04

А если принудительно в кавычки?
Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc('a5','b6')'

10.06.2008, 18:05

А какое описание у макроса MyCalc?

@Markaz · 11.06.2008, 11:57 **[ТС]**

To Vita

Так в том то и дело что мне нужно что бы функция брала значения соответствующих ячеек (в данных примерах ячейки а5 и b5).
Т.е., нужно что бы вставлялось в лист =MyCalc(a5, b5), а не =MyCalc('a5', 'b5')

Описание у мароса элементарнейшее. Для эксперимента был такой вариант
Function MyCalc(num1, num2)
MyCalc=num1+num2
End Function

@Markaz · 11.06.2008, 12:18 **[ТС]**

Вроде разобрался... Указал параметры как MyCalc(rc[5],r[1]c)
Почему-то не работало с точкой с запятой как разделителем.

Всем спасибо.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Markaz 0 / 0 / 1 Регистрация: 01.04.2008 Сообщений: 31

	Вставка формул в Excel с VB 08.06.2008, 18:22. Показов 1954. Ответов 7 Метки нет (Все метки) Проблема такая Как из программы на VB в экселевский лист вставить свою функцию находящуюся в персональной книге макросов, указать и разделить параметры функции. Код следующий: With ExcWbk.Worksheets('main') .Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc(a5;b6)' End With Здесь выдает ошибку: 1004 Application-defined or object-defined error Что это за ошибка и как с ней бороться. Заранее спасибо. 0

@Markaz 0 / 0 / 1 Регистрация: 01.04.2008 Сообщений: 31
	10.06.2008, 16:32 [ТС]
	Неужто никто не знает? 0

Vita
	10.06.2008, 17:22
	Попробуй Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc(a5,b6)' или Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc(a5:b6)'

@Markaz 0 / 0 / 1 Регистрация: 01.04.2008 Сообщений: 31
	10.06.2008, 17:30 [ТС]
	Пробовал уже первый вариант. Не фурычит. Та же самая ошибка. А второй вряд ли подойдет. Это же описание диапозона получается, а мне нужно два параметра различных. Когда в функции один параметр оставляю (в данном случае а5) он его в кавычки заключает, т.е. на листе получается: =PERSONAL.xls!MyCalc('a5') 0

Vita
	10.06.2008, 18:04
	А если принудительно в кавычки? Range('a6').FormulaR1C1= '=PERSONAL.xls!MyCalc('a5','b6')'

Vita
	10.06.2008, 18:05
	А какое описание у макроса MyCalc?

@Markaz 0 / 0 / 1 Регистрация: 01.04.2008 Сообщений: 31
	11.06.2008, 11:57 [ТС]
	To Vita Так в том то и дело что мне нужно что бы функция брала значения соответствующих ячеек (в данных примерах ячейки а5 и b5). Т.е., нужно что бы вставлялось в лист =MyCalc(a5, b5), а не =MyCalc('a5', 'b5') Описание у мароса элементарнейшее. Для эксперимента был такой вариант Function MyCalc(num1, num2) MyCalc=num1+num2 End Function 0

@Markaz 0 / 0 / 1 Регистрация: 01.04.2008 Сообщений: 31
	11.06.2008, 12:18 [ТС]
	Вроде разобрался... Указал параметры как MyCalc(rc[5],r[1]c) Почему-то не работало с точкой с запятой как разделителем. Всем спасибо. 0