Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA По нажатию кнопки, сравнить значение в TextBox со значенями в столбце A, активировать найденную ячейку Здравствуйте, так как не владею VBA, но надо решить, то прошу помощи со скриптом: есть textbox и рядом обычная СоmmandButton. В листе Excel в, скажем столбце, А есть цифры идущие не ячейка за ячейкой, а с промежутками. Как сделать так, что бы при ручном вводе цифры в TextBox и нажатии кнопки, произошло сравнение значения в textbox И значений в столбце A и при совпадении ячейка с этой цифрой... https://www.cyberforum.ru/ vba/ thread1320242.html VBA Загрузка диапазонов Excel в .Items и .Keys объекта Scripting.Dictionary
Добрый вечер. Идея такая - в словарь загрузить два диапазона (одинаковых по кол-ву значений, но не смежных). Один с ключами, второй со значениями. Потом сранивать ключи с другим массивом и при совпадении подставлять в нужные ячейки значения. При этом ключи ещё необходимо отредактировать перед записью в словарь - убрать все слова кроме первого. В VBA новичёк поэтому как реализовать не знаю....
VBA Поиск и выборка минимальных элементов в нескольких документах Exсel Доброго времени суток! Нужна помощь! Необходимо в двух прайс-листах представленных ниже. Найти одинаковые товары. Выбрать из них, товары с минимальной ценой. Данные о товарах с минимальной ценой, вывести на отдельный лист. Заранее благодарен. https://www.cyberforum.ru/ vba/ thread1319802.html VBA Суммирование чисел в клетках Excel посредством VBA https://www.cyberforum.ru/ vba/ thread1319789.html
Доброго времени суток. Столкнулся с проблемой: нужно просуммировать числа в клетках документа Excel при определенных условиях посредством VBA. Конкретно моя задача: у меня есть даты и напротив них числа, и нужно если в строках одинаковые месяцы (даты идут последовательно друг за другом - строка за строкой), то удалить эти строки, оставив только одну, "подтянуть" всё, что находится ниже, а числа...
Визуальное отображение документа на пользовательской форме VBA
Уважаемые специалисты, подскажите пожалуйста как поступить или хотя бы с чего начать искать, у меня за весь день поиска не появилось никаких зацепок. У меня есть шаблон документа, который мы используем на работе каждый раз, при создании документации. У меня возникла идея, а нельзя ли ускорить процесс перехода между уже заранее известными местами для заполнения в текстовом документе ворда с...
VBA Вывод в ListBox строки с листа Excel https://www.cyberforum.ru/ vba/ thread1319667.html
Имеется TextBox, ListBox, кнопка. В TextBox вводится город, нажатием кнопки производится поиск, в ListBox выводится найденная строка. Дело в том, что строка состоит из нескольких столбцов, а конкретно: A, B, C, D, E. У меня получилось сделать так, что выводится из строки всего один столбец, например B. Затем я модифицировал код, получилось, что выводятся все столбцы из строки, но теперь только из...
VBA В вещественной матрице размера n x 9 найти среднее арифметическое каждого из столбцов https://www.cyberforum.ru/ vba/ thread1319411.html
3 Дано натуральное число n и вещественная матрица размера n x 9. Найти среднее арифметическое каждого из столбцов, имеющих четные номера.
VBA При некоторых заданных вещественном x, целом n вычислить сумму n слагаемых заданного вида
2) При некоторых заданных вещественном x, целом n вычислить сумму n слагаемых заданного вида http://storage9.static.itmages.ru/i/14/1204/s_1417680711_1454377_21bca05b15.jpg
VBA Составить программу, печатающую значение true, если сумма 2 действительных чисел a и b является целым числом https://www.cyberforum.ru/ vba/ thread1319409.html
Добрый день. Помогите написать пару программ 1) Составить программу, печатающую значение true, если указанное высказывание является истинным, и False в противном случае: сумма 2 действительных чисел a и b является целым числом, т.е. дробная часть суммы равна 0
VBA Определение максимальных дат 1)Необходимо написать подпрограмму, которая принимает три даты, определяет и возвращает наибольшую из них. 2)Необходимо написать подпрограмму, которая принимает три даты и определяет и возвращает две наибольшие из них. -Необходимо обеспечить последовательный (один за другим) вызов подпрограмм из процедуры MAIN и передачу им данных. -В самих подпрограммах никакого общения с пользователем быть... https://www.cyberforum.ru/ vba/ thread1319378.html
VBA В колонке текстовой информации, если внутри ячейки есть искомое слово, то рядом вставить символ из перечня
Приветствую всех форумчан!! Прошу спецов уделить немного личного времени и помочь в следующей задачке (ФАЙЛ ПРИЛОЖЕН) Есть колонка текстовой информации, если внутри ячейки есть искомое слово, то надо рядом вставить символ из перечня. Искомых слов несколько, т.е. в каждой ячейке нужно проверить каждое слово из диапазона слов для поиска...
VBA Найти сумму четных членов ряда, и произведение нечетных членов ряда Почему не работает,кто объяснит? Ввести массив А(N) из членов ряда А(i) = i ^ (1 / 3) Число элементов ограничены по условию А(I) <= М, где М >> 1. Найти сумму четных членов ряда и произведение нечетных членов ряда. Sub Ç177() Dim A() As Single Dim L%, N%, i%, P!, S! L = 21 ' строка начала решения задачи N
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
05.12.2014, 19:43 0

Метод половинного деления - VBA - Ответ 6946609

05.12.2014, 19:43. Показов 7202. Ответов 23
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function f#(x)
'f = (1 / 5) * x ^ 5 + 0.3 * x ^ 4 - (5 / 3) * x ^ 3 - x ^ 2 + 4 * x - 1.7
f = x - (1 / Atn(x))
End Function
 
Sub k(x, b, h, eps)
    Do
    a = x:         f1 = f(x)
    x = x + h:     f2 = f(x)
    If Abs(f1 - f2) < 1000 Then
        If f1 * f2 < 0 Then
           b1 = x
                Do
                   c = (b1 + a) / 2
                   If f(a) * f(c) > 0 Then a = c Else b1 = c
                Loop While Abs(a - b1) > eps
                i = i + 1: Print "x"; i; "="; c
        End If
      End If
     Loop While x <= b
End Sub
 
Private Sub Command1_Click()
k -100, 100, 0.1, 0.0001
End Sub


Вернуться к обсуждению:
Метод половинного деления VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2014, 19:43
Готовые ответы и решения:

Метод половинного деления, зависание
День добрый. Реализовал вот такой макрос решения уравнения методом половинного деления. Sub...

Метод половинного деления, ошибка кода
Добрый день, сломал всю голову - но не работает код, выдает ошибку - деление на ноль, все...

Метод половинного деления отрезка пополам для функции, заданной уравнением
Помогите, пожалуйста, если то-то знает как решить эту задачу на VBA (или другом языке...

Проект для решения нелинейных уравнений методом половинного деления
Нужно создать проект для решения нелинейных уравнений методом половинного деления, методом хорд и...

23
05.12.2014, 19:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2014, 19:43
Помогаю со студенческими работами здесь

Заданы два уравнения. Необходимо каждое из них решить методом половинного деления и методом касательных
Здравствуйте, помогите пожалуйста написать программы. Заданы два уравнения. Необходимо каждое из...

Метод деления отрезка пополам VBA
Функция y=f(x) задана на некотором отрезке неявно с помощью уравнения вида F(x,y)=0. Вычислить...

Найти частное от деления нацело N на K, а также остаток от этого деления
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное...

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2» через DO WHILE
Дано целое число N (&gt; 0). С помощью операций деления нацело и взятия остатка от деления определить,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru