VBA

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

Войти

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

Другие темы раздела
VBA Дана действительная квадратная матрица порядка n, все элементы которой различны Помогите, пожалуйста, написать код в VBA. Дана действительная квадратная матрица порядка n, все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей. https://www.cyberforum.ru/ vba/ thread2460976.html	VBA VBA: Дан массив из n-го кол-ва строк Дан массив из n-го кол-ва строк и m столбцов, найти у каждого массива наименьшее и наибольшее значение.
VBA Функция: нахождение минимального числа из четырёх заданных Помогите пожалуйста, написать функцию нахождения минимального числа из четырёх заданных чисел A, B, C, D. https://www.cyberforum.ru/ vba/ thread2460816.html	VBA Сумма по четным и не четным столбцам Прошу помочь с макросом, который суммирует ячейки по четным и по не четным столбцам . Как в примере в столбцах 1 и 2. Прошу прощения за пример в pdf. Спасибо. https://www.cyberforum.ru/ vba/ thread2460810.html
Подтягивание данных с другого листа VBA Здравствуйте. Снова столкнулся с проблемой: Необходимо в строку с номером подтянуть значение с другого листа. Пробовал впр, но он ругается на циклические ссылки, а подставлять значение надо именно в той же строке. Подскажите, пожалуйста, варианты что бы реализовать. Файл для примера.	VBA VBA 6.0 ПОмощь с циклами https://www.cyberforum.ru/ vba/ thread2460695.html Всем привет.Пытаюсь сделать программу по учебе,никак не могу с циклами.Прошу помощи.Суть в чем,я написал программу для расчета сил консольного крана(их там 5 на выходе),там вводишь значения 3 углов высоту и длину.Задача теперь сделать что бы 3 угла были со значениями от 5 до 45 с шагом 5,и на выходе мне надо что бы программа выдавала сочетания этих 3 углов при котором у всех сил будет наименьшая...
VBA Подскажите, пожалуйста, в чем корявость кода Sub stroki() Dim A, S1, S2, msg As String Dim i As Integer S1 = InputBox("Введите предложение") S2 = InputBox("Введите слово, которое необходимо найти") A = InStr(S1, S2) If A > 0 Then msg = "Такое слово присутствует в предложении" Else msg = "Такого слова нет в предложении" https://www.cyberforum.ru/ vba/ thread2460670.html	Как избежать тиражирования данных в области объединенных (Merge) ячеек? VBA Excel 2003. Есть шаблон некоторого отчета, в пустые ячейки которого должны быть внесены соответствующие данные. Данные берутся из другой excel-таблицы, которую готовит некоторое внешнее приложение, и они должны макросом переноситься в шаблон. В шаблоне, который нужно заполнять данными, в нескольких столбцах, есть объединенные (Merge) ячейки, отформатированные так, чтобы значение в них...
VBA Заполнить таблицу умножения VBA https://www.cyberforum.ru/ vba/ thread2460631.html Помогите пожалуйста с задачей, необходимо заполнить таблицу умножения, условия: 1) Используем конструкцию цикла For i…Next, For j…Next 2) Для диапазона используем Range.Offset() 3) Необходимо использовать свойство ячейки .Value" Приложил пример, слева как должно получится, справа исходное поле. Заранее спасибо.	VBA Выделение из текста слов. Например, из текста ''решений нет'' выделяются два слова ''решений'', ''нет'' https://www.cyberforum.ru/ vba/ thread2460535.html Здравствуйте, подскажите, пожалуйста решение. Я понимаю, что это очень легкая задача, но для меня она первая. Просто очень нужен живой пример для разбора задач такого типа. Спасибо
Сформировать две матрицы и рассчитать их: сумму; разность; произведение VBA Здравствуйте, подскажите решение вопроса: сумму и разность матриц я нашёл, произведение, как считал тоже, но, изучив информацию про матрицы, понял, что так матрицы не умножаются. СпасибоOption Explicit Option Base 1 Sub Massiv() Dim a() As Double, b() As Double, i As Integer, j As Integer, s$, s1$, s2$, s3$, s4$, n As Integer, sum() As Double, raz() As Double, pro() As Double n =...	VBA Проставить в таблице значения каждое следующее на 1 больше предыдущего https://www.cyberforum.ru/ vba/ thread2460353.html Помогите, пожалуйста решить простую задачку. В таблице с определенным диапазоном необходимо занести цифры по порядку, как в примере, на VBA с помощью цикла For Each…Next. Заранее большое спасибо.

Kate_27

198 / 132 / 67

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

Сообщений: 288

27.05.2019, 21:41

Excel

VBA функция суммы факториала - VBA - Ответ 13606777

27.05.2019, 21:41. Показов 975. Ответов 1

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

Ответ

Денис Р, у меня так получилось:

Visual Basic

Sub ДенисР()
    Dim i As Integer
    Dim n As Integer, Sum As Long, f As Long
    On Error Resume Next
    n = InputBox("Введите n: ")
    If Err.Number <> 0 Or n < 0 Then MsgBox "Неверный ввод!": Exit Sub
    f = 1
    For i = 1 To n
       f = f * i
       Sum = Sum + f
    Next i
    MsgBox Sum
End Sub

Вернуться к обсуждению:
VBA функция суммы факториала VBA

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.05.2019, 21:41

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

Функция для факториала в Turbo Basic
Здравствуйте! Хочу сразу сказать я не программист и вообще в компах ничего не шарю, я врач, в этом...

Вычисление суммы VBA
Даны значения n и m( ввести через окно ввода) Вычислить: B=\sum_{k=1}^{n}\sum_{j=1}^{m}\left(k + j...

Вычисление суммы по диапазону в VBA
Есть ли в Vba функция суммы по диапазону.Диапазон вычисляется в программе.На листе функцию задать...

Какая команда суммы в VBA?
какая команда суммы в VBA?

	27.05.2019, 21:41

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.05.2019, 21:41

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

Подстановка нужной суммы в excel и vba
Всем привет. Все вы уже не однократно спасали меня с моими разными глупыми вопросами. Так вот...

Функция Vba
Имеется пользовательская функция, которая по выбранному диапазону ячеек считает среднее значение...

Функция в VBA
помогите найти ошибку

Функция S в VBA
Прикрепил архив, в котором есть почти решенная задача. Нужно еще с помощью функции суммы, сложить...

Наверх