Вставка формул в 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)
Почему-то не работало с точкой с запятой как разделителем.

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

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

	Вставка формул в Excel с VB 08.06.2008, 18:22. Показов 1932. Ответов 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