Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/линейные вычислительные процессы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » линейные вычислительные процессы (Макросы/Sub)
линейные вычислительные процессы
Анастасия-_- Дата: Четверг, 15.06.2017, 16:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Вычислить значение функции при заданных исходных данных, сверить полученный результат с представленным в таблице. Вывести в диалоговое окно и в окно отладки Immediate исходные данные и полученное значение функции.
Подскажите пожалуйста, что у меня не правильно, заранее спасибо

[vba]
Код
Sub  значение_функции()
Dim  x As Single, a As Single, y As Single
x  = Val(InputBox("введите x"))
a  = Val(InputBox("введите a"))
y  = Sqr(x ^ (-3) + x / a ^ (1 / 4)) / a + x ^ (2)
Debug.Print "y="
End Sub
[/vba]
К сообщению приложен файл: _Microsoft_Word.docx(13Kb)


qwerty

Сообщение отредактировал Анастасия-_- - Четверг, 15.06.2017, 18:15
 
Ответить
СообщениеВычислить значение функции при заданных исходных данных, сверить полученный результат с представленным в таблице. Вывести в диалоговое окно и в окно отладки Immediate исходные данные и полученное значение функции.
Подскажите пожалуйста, что у меня не правильно, заранее спасибо

[vba]
Код
Sub  значение_функции()
Dim  x As Single, a As Single, y As Single
x  = Val(InputBox("введите x"))
a  = Val(InputBox("введите a"))
y  = Sqr(x ^ (-3) + x / a ^ (1 / 4)) / a + x ^ (2)
Debug.Print "y="
End Sub
[/vba]

Автор - Анастасия-_-
Дата добавления - 15.06.2017 в 16:31
китин Дата: Четверг, 15.06.2017, 16:36 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4421
Репутация: 698 ±
Замечаний: 0% ±

Excel 2007;Excel 2010


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение Как оформлять сообщения?

Автор - китин
Дата добавления - 15.06.2017 в 16:36
_Boroda_ Дата: Четверг, 15.06.2017, 17:19 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11702
Репутация: 4839 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Анастасия, не совсем так. Жирным как раз делать ничего не нужно. Просто войдите в редактирование своего поста, выделите код макроса и нажмите кнопочку # (которая рядом с кнопочкой fx)
==================
А ответ уже готов давно. Ждем Исправления Вашего поста


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеАнастасия, не совсем так. Жирным как раз делать ничего не нужно. Просто войдите в редактирование своего поста, выделите код макроса и нажмите кнопочку # (которая рядом с кнопочкой fx)
==================
А ответ уже готов давно. Ждем Исправления Вашего поста

Автор - _Boroda_
Дата добавления - 15.06.2017 в 17:19
Sandor Дата: Четверг, 15.06.2017, 18:30 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub значение_функции()
' Dim x As Single, a As Single, y As Single
x = Val(InputBox("введите x"))
a = Val(InputBox("введите a"))
y = Sqr(x ^ (-3) + (x / a) ^ (1 / 4)) / (a + x ^ (2))
Debug.Print "y="
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub значение_функции()
' Dim x As Single, a As Single, y As Single
x = Val(InputBox("введите x"))
a = Val(InputBox("введите a"))
y = Sqr(x ^ (-3) + (x / a) ^ (1 / 4)) / (a + x ^ (2))
Debug.Print "y="
End Sub
[/vba]

Автор - Sandor
Дата добавления - 15.06.2017 в 18:30
Анастасия-_- Дата: Четверг, 15.06.2017, 18:31 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Sandor, все равно выдает ошибку


qwerty
 
Ответить
СообщениеSandor, все равно выдает ошибку

Автор - Анастасия-_-
Дата добавления - 15.06.2017 в 18:31
Анастасия-_- Дата: Четверг, 15.06.2017, 18:44 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
спасибо, помощь больше не нужна, я нашла в чем ошибка


qwerty
 
Ответить
Сообщениеспасибо, помощь больше не нужна, я нашла в чем ошибка

Автор - Анастасия-_-
Дата добавления - 15.06.2017 в 18:44
_Boroda_ Дата: Четверг, 15.06.2017, 19:13 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11702
Репутация: 4839 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Раз уж написал, что готово, выложу
[vba]
Код
Sub значение_функции()
    Dim x As Single, a As Single, y As Single
    x = Val(InputBox("введите x"))
    a = Val(InputBox("введите a"))
    d = a + x
    y = Sqr(x ^ -3 + (x / a) ^ (1 / 4)) / (a + x ^ 2)
    Debug.Print "y="; y
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеРаз уж написал, что готово, выложу
[vba]
Код
Sub значение_функции()
    Dim x As Single, a As Single, y As Single
    x = Val(InputBox("введите x"))
    a = Val(InputBox("введите a"))
    d = a + x
    y = Sqr(x ^ -3 + (x / a) ^ (1 / 4)) / (a + x ^ 2)
    Debug.Print "y="; y
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 15.06.2017 в 19:13
Sandor Дата: Четверг, 15.06.2017, 19:24 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010


Сообщение отредактировал Sandor - Четверг, 15.06.2017, 20:21
 
Ответить
Сообщение

Автор - Sandor
Дата добавления - 15.06.2017 в 19:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » линейные вычислительные процессы (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!