Написать программу для вычисления функции

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Самохина Лена
Сообщения: 4
Зарегистрирован: 02 дек 2010, 02:53

Написать программу для вычисления функции cos(xy)/2+3(x-2y)^(1/3), причем x и y вводятся в текстовые поля. Использовать для вывода форму, созданную с помощью VBA (Visual Basic for Application). Организовать также вывод в приложение Word или Excel. Для этого в программу добавить Selection.TypeText Text:=TextBox3.Text или АсtivеDocument.Соntent.InsеrtAfter

кто сможет помочь?
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Вот моё решение.
Вложения
Calculation.zip
(1.43 КБ) 46 скачиваний
Самохина Лена
Сообщения: 4
Зарегистрирован: 02 дек 2010, 02:53

у меня не получается перенести в word мне нужно сделать как в примере http://depositfiles.com/files/pm8xv17va
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Самохина Лена
сохраните папку на Рабочем столе - Разархивируйте её.
Перейдите в Word - Alt + F11 - File - Import file... - Тип файлов - .frm - Найдите Рабочий стол - Будет найден один файл - Открыть.
Самохина Лена
Сообщения: 4
Зарегистрирован: 02 дек 2010, 02:53

извините, я вставляла в код по отдельности.
огромное Вам спасибо, я бы Вас расцеловала :)
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Самохина Лена
вариант приближенный к примеру. Импортировать надо в Project(Primer). При импорте выбрать Тип файлов - .frm, .bas, .cls (надо импортировать 2 файла). При импорте файла .cls все макросы из ThisDocument проекта Project(Primer) будут удалены. Если у вас там (ThisDocument) что-то есть, то экспортируйте его (ThisDocument) на Рабочий стол, чтобы потом вернуть обратно.
Вложения
Primer.zip
(1.54 КБ) 32 скачивания
Самохина Лена
Сообщения: 4
Зарегистрирован: 02 дек 2010, 02:53

я сделала вот так, надеюсь правильно и похоже на пример
http://depositfiles.com/files/55vkkxc3r
sork
Сообщения: 4
Зарегистрирован: 06 янв 2011, 00:15

Привет у меня такое же задание только функция другая, вложения не работаю уже =(
кто может помогите
функция: sin(x/y)+0,3(x+0.2y)^(2/3).
Аватара пользователя
Busine2009
Сообщения: 322
Зарегистрирован: 18 июл 2009, 15:34
Контактная информация:

Вот решение. Запускать надо в Excel. В ячейку A1 будет выведен результат.
Вложения
Task..zip
(1.27 КБ) 43 скачивания
sork
Сообщения: 4
Зарегистрирован: 06 янв 2011, 00:15

спасибо большое
Ответить