VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Сформировать двумерный массив y(n,m) по правилу y(i,j) Добрый день. Прошу помочь с данной задачкой. Сформировать двумерный массив y(n,m) по правилу y(i,j) = (i+1)*(j+2). Число столбцов массива увеличить на единицу. Вычислить сумму элементов кратных трем каждой строки и записать в добавленный столбец. Результат вывести на элемент управления ListBox. https://www.cyberforum.ru/ vba/ thread2150256.html	Колонтитулы разделов с 1 \| Word VBA Здравствуйте Коллеги! Прошу помочь в следующей ситуации. Из начально документ имеет один раздел с одной страницей (первая страница - особый колонтитул). По ходу работы с документом возможно появление N - страниц в первом разделе а, также Np - количество разделов. Необходимо создать код который вставляет номер страницы (скажем по центру): - особый колонтитул только для первого раздела;...
VBA Листы книги, похоже, блокируются? Господа, у меня несколько лет назад был создан проект, который все эти годы работал как часы. И вдруг ошибка в самом начале (Applicftion-defined or ...Error), даже на таком операторе Msgbox ActiveSheet.Name (на примере одного из файлов проекта). А лист там всего один. Плюс, когда включаешь режим Конструктора (на листе ОЛЕОбъекты) и встаёшь на один из них, то в окне Свойства остаются свойства... https://www.cyberforum.ru/ vba/ thread2149992.html	VBA Как выгрузить данные с Spreadsheet1 Как выгрузить данные с Spreadsheet1 в excel c сохранением данных Spreadsheet1.Export ("1.xml") ' данный метод не подходит после него открывается excell файл https://www.cyberforum.ru/ vba/ thread2149990.html
VBA Экспорт таблицы Word в Excel по идентификатору таблицы Ознакомился с похожими темами, помучал макросы, но так и не нашёл решения. Поступает много (400 шт. в месяц) Актов (.doc) с каждого объекта ( XXX..). Требуется из папки с файлами .doc экспортировать из каждого ворда таблицы в одну EXCEL-таблицу. Особенность, в каждом .doc есть фиксированная строка с кодом объекта (XXX...) перед таблицей. При экспорте таблицы необходимо в каждую строку...	VBA Как скопировать страницу из одного файла в другой https://www.cyberforum.ru/ vba/ thread2149953.html Всем доброго дня. Такая проблемка. Я работаю с MS Publisher. Мне нуно скопировать страницу из одной публикации (файла) в другую (в другой файл). Делаю я это с помощью такого кода: Dim appPub As New Publisher.Application appPub.Open FileName:=FileName ActiveDocument.Pages(i1).Shapes.Range.Copy 'копирование страницы appPub.ActiveDocument.Pages(1).Shapes.Paste ...
VBA Можно ли подключить макрос на лету? Всем добрый день. Господа эксперты, подскажите, пожалуйста, можно ли подключить макрос при запуске приложения? Дело в том, что когда я запускаю приложение из меню MS Office (MS Publisher), значок макроса виден на ленте, но при нажатии на него ничего не происходит, т.е. он не связан с конкретным макросом. Можно ли сделать так, чтобы он был связан с нужным мне макросом? https://www.cyberforum.ru/ vba/ thread2149944.html	Макрос заменяющий букву "О" в тексте на формулу VBA РЕБЯТА! Нужна помощь! Нужен макрос, чтобы СУТЬ его была в том, чтобы заменял например букву "О" в тексте на формулу из этой буквы. Только одной буквы, а не целого слова. Так же чтоб не видно было выделения, очень нужно! С меня финансовая компенсация, даю слово!
VBA Нужна блок схема по коду VBA Sub Посчитать() Dim i, i1, sum, sum1 As Integer sum = 0 For i = 2 To 10 If Cells(i, 6) = 0 Then sum = sum + 1 Next i Cells(6, 2) = sum sum1 = 1 For i1 = 2 To 8 If Cells(2, i1) > 0 And i1 Mod 2 = 0 Then sum1 = sum1 * Cells(2, i1) https://www.cyberforum.ru/ vba/ thread2149718.html	VBA Последовательный ВПР https://www.cyberforum.ru/ vba/ thread2149313.html Ребят, всем привет. Подскажите, как через цикл подтянуть по Поставщикам и датам из Листа2 в Лист1. Через Application.VLookup не совсем удобно т.к он не просматривает горизонталь.
VBA Два условия в одном диапазоне СУММЕСЛИМН Добрый день, уважаемые коллеги. Очень нужна Ваша помощь. Как можно задать в функции СУММЕСЛИМН два условия в одном диапазоне. Пример во вложении. Данная тема уже поднималась на форуме (https://www.cyberforum.ru/ms-excel/thread1943042.html) но там не было решения у задачки. Перепробовал все что знают по Excel.	VBA Задание https://www.cyberforum.ru/ vba/ thread2148913.html Подскажите как сделать это задание

Varsel

0 / 0 / 0

Регистрация: 05.12.2017

Сообщений: 11

16.12.2017, 11:52 [ТС]

Решение квадратного уравнения - VBA - Ответ 11951369

16.12.2017, 11:52. Показов 39072. Ответов 4

Метки (Все метки)

Ответ

Visual Basic

Sub zadanie_n()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x1 As Single
Dim x2 As Single
a=CSng(InputBox("введите значение а","ввод"))
b=CSng(InputBox("введите значение b","ввод"))
c=CSng(InputBox("введите значение c","ввод"))
If a =0 And b=0 Then
MsgBox "Неверные исходные данные",,"ответ"
Else
If a=0 Then
MsgBox "x=" & -c/b, ,"вывод"
Else
d=b*b-4*a*c
Msgbox "Нет действительных корней", ,"вывод"
Else
If d=0 Then
MsgBox (-b/(2*a))
Else
x1=((-b-Sqr(d)/(2*a))
x2=((-b+Sqr(d)/(2*a))
MsgBox x1 & Chr(13) & x2, ,"вывод"
End If
End If
End If
End If
End Sub

Вернуться к обсуждению:
Решение квадратного уравнения VBA

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.12.2017, 11:52

Готовые ответы и решения:

Решение квадратного уравнения
Нужно написать программу, которая решает квадратное уравнение. Вроде бы элементарно, но что-то не...

Вычисление суммы и решение квадратного уравнения на VBA
Прошу помощи, чтобы сделали, или хотя бы начать помогли задания в прикреплении. Заранее спасибо.

Решение квадратного уравнения Visual Basic в Microsoft Excel
Помогите написать программу для решения квадратного уравнения с проверкой дискриминанта в VB...

Вычисление квадратного уравнения
Можно ли упростить эту программу для вычеслени квадратного уравнения: Private Sub...

	16.12.2017, 11:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.12.2017, 11:52

Помогаю со студенческими работами здесь

Найти корни квадратного уравнения
даны действительные числа а,b,с (а≠0).Выяснить имеет ли уравнение ах^2+bx+c=0 действительные...

Нахождение корней квадратного уравнения
y=ax^2+bx+c в exel VBA обьясните пожалуйста народ!

Вычислить корни квадратного уравнения
Вычислить корни квадратного уравнения ax^2 + bx + с = 0, заданного коэффициентами a, b и с...

Модифицировать программу решения квадратного уравнения
Модифицировать программу решения квадратного уравнения так, чтобы она не выдавала ошибку ни при...

Наверх