VBA

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

Войти

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

Другие темы раздела
VBA Какой сейчас семестр? https://www.cyberforum.ru/ vba/ thread1415475.html Сoставить прoект прoграммы, в кoтором oпределяется, какoй сейчас семeстр или сeйчас кaникулы. Добавлено через 1 час 55 минут Спасибо, решил сам	Обработать ошибку деления на ноль VBA Подскажите, какое изменение в программу нужно ввести, чтобы при введении нуля выдавало сообщение об ошибке? Public Sub Prg_3_2() Dim x As Single Dim y As Single x = Val(InputBox("Введите x")) If x < 0 Or x >= 4 Then y = 1 / (x - 2) ^ 2 Else If x > 0 And x < 2 Then y = x ^ 2 + 4 * x - 7
VBA Пропинговать компьютеры и занести результаты в соответствующие ячейки столбца https://www.cyberforum.ru/ vba/ thread1415129.html Доброго всем времени суток. В документе один лист. Один столбец со списком имен компьютеров (начиная с "B2" и вниз). Всего около 4000 ПК. Есть задача: пропинговать их и занести результаты в соответствующие ячейки столбца "C". Пример до скрипта: A B C 1 Админ Admin-PC 2 Юзер1 User1-PC 3 Юзер2 User2-PC	VBA Нахождение слов курсивом и обрамления его в тэги <em> Добрый день всем форумчанам... Мне нужно подготовить небольшое подобие Типографа прямо в ворде. Споткнулся на шаге, когда нужно соответствующий элемент обрамлять в тэги. К примеру: Находим в тексте слова выделенные курсивом и обрамляем их в тэги <em>СловоКурсив</em> Находим в тексте Заголовок 1 и обрамляем его в тэги <h1>СловоКурсив</h1> Находим в тексте Заголовок 2 и обрамляем его в... https://www.cyberforum.ru/ vba/ thread1415040.html
Автоматизация снятия пароля в Word (массовая операция для множества файлов) VBA Уважаемые форумчане! Существует такая задача. Имеется порядка 7000 файлов word с расширение .doc все защищены паролем (пароль известен и файлы мои) сейчас появилась необходимость работы с ними, снимать защиту по одному файлу процесс муторный и долгий может у кого есть идеи как реализовать автоматизацию снятия пароля. При много благодарен за любой ответ! Добавлено через 4 часа 52 минуты...	VBA Поиск файлов в папке и подпапке Здравствуйте! Помогите пожалуйста, Как сделать поиск файлов .doc в выбранной папке и подпапке, на форме, и выводил списко файлов в listbox. Нашел похожее, но там выводится в ексель файл. В моем коде файлы берут только из выбранной папке, все файлы вложил. Спасибо! https://www.cyberforum.ru/ vba/ thread1414950.html
VBA Переделать текст так, что бы при выделении целой строки открывалась форма изменения https://www.cyberforum.ru/ vba/ thread1414851.html Здравствуйте. В таблице с помощью формы заполняются строки. Мне нужно переделать текст так, что бы при выделении целой строки открывалась форма изменения, а не заполнения этой строки. То есть уже вторая форма.	Обрезается график при сохранении VBA Здравствуйте! Имеется макрос, который сохраняет активный график в файл: ActiveChart.Export gname, "PNG" Если размеры небольшие, например, With ActiveChart.Parent .Width = 425 .Height = 300
VBA Выгрузить список ценных бумаг из Ломбардного списка, представленного на сайте ЦБ в виде XML Помогите, пожалуйста выгрузить список ценных бумаг из Ломбардного списка, представленного на сайте ЦБ в виде xml, в excel с помощью VBA. Что-то информации маловато по работе с xml... В правильном направлении иду? Sub Lombard() Dim xmlDoc As DOMDocument Dim xmlNode As IXMLDOMNode Dim xmlNodes As IXMLDOMNodeList https://www.cyberforum.ru/ vba/ thread1414668.html	VBA Составить програмный код вычисления функции Составить програмный код вычисления функции Y=((a*sin(x)+e^√3)/\|3x-1\| ) xЄ Until Начало \| ... https://www.cyberforum.ru/ vba/ thread1414348.html
Выгрузил данные в файл, как проделать обратную процедуру? VBA Доброго времени суток уважаемые формучане!! Суть проблемы следующая, значит делаю я лабораторную, а конкретно: выгрузку и загрузку данных в/из файла. Собственно выгрузка в файл: Sub СохранитьВфайл() ' Тестовый макрос будет пытаться заполнить ячейки ' Всего ячеек Dim einteger As Integer einteger = Cells(Rows.Count, 1).End(xlUp).Row	VBA Не работает поиск разных значений на разных листах Доброго времени суток, дан код, он из учебника, по поиску разных значений на разных листах, но он не хочет работать, а программа очень нужна Sub Поиск_разных_значений() Dim lLastRowA As Long Dim lLastRowB As Long Dim lLastRowC As Long Dim rFind As Excel.Range lLastRowA = Лист7.Cells(Rows.Count, "A").End(xlUp).Row lLastRowB = Лист8.Cells(Rows.Count,... https://www.cyberforum.ru/ vba/ thread1414076.html

Казанский

15146 / 6419 / 1731

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

Сообщений: 9,999

18.04.2015, 21:02

Не работает программа (Рекуррентные формулы) - VBA - Ответ 7497795

18.04.2015, 21:02. Показов 1449. Ответов 5

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

Сообщение было отмечено greatfire как решение

Решение

Подкорректировал программу, чтобы она работала. Но это не рекуррентный алгоритм, а итеративный.

Visual Basic

Public Sub Prg_5_1()
Dim a As Single
Dim b As Single
Dim n As Integer
Dim s1 As Single
Dim s2 As Single, c As Single
  b = 1
  c = 1
  For n = 1 To 36
    b = -b
    c = Sqr(n)
    a = b / c
    If n = 25 Then
      s1 = a
    ElseIf n = 36 Then
      s2 = a
    End If
  Next n
  MsgBox ("При n=25" + vbNewLine + "s=" + CStr(s1) + vbNewLine + "При n=36" + vbNewLine + "s=" + CStr(s2))
End Sub

Добавлено через 5 минут
Непонятно, зачем тут рекуррентные вычисления - последующий член последовательности никак не связан с предыдущим.
Может, надо вычислить СУММУ этой последовательности до n = 25 и n = 36?

Вернуться к обсуждению:
Не работает программа (Рекуррентные формулы) VBA

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.04.2015, 21:02

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

Рекуррентные формулы
Даны действительные числа х, e (х<>0, e>0) (e-эпсилон). Вычислить с точностью e бесконечную сумму и...

Рекуррентные формулы
Помогите преобразовать в рекуррентную формулу, отдельно для числителя и знаменателя. Если со...

Рекуррентные формулы
Подруга попросила решить вот эти вот задачки (а в особенности 3-ю и 4-ю) , а на Паскале уже и не...

Рекуррентные формулы
Здравствуйте! Нашел некоторые рекуррентные формулы, но не могу понять, как они выведены. Например,...

	18.04.2015, 21:02

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

18.04.2015, 21:02

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

Рекуррентные формулы
Объясните,пожалуйста, составление рекуррентных формул. X=X+...+(-1)^n* (2n-1)*x^2n+1/(2n)*(2n+1)

Рекуррентные формулы
Не могу разобраться с рекуррентной формулой для знаменателя суммы. Рекуррентные формулы, а далее -...

Рекуррентные формулы
Пользуясь рекуррентными формулами, вычислить значение многочлена степени N при заданном значении...

Рекуррентные формулы функций
Здравствуйте! Решал как-то я интегральные уравнения численными методами, но возникла ошибка: на...

Наверх