|
|
Другие темы раздела | |
VBA Исправить и доработать код
https://www.cyberforum.ru/ vba/ thread1740359.html Здравствуйте! Помогите пожалуйста отладить программу. Программа рабочая, там нужно правильно выставить обращение к замене. Очень вас прошу помочь! Function fn(x() As Double) As Double fn = 100 * (x(2) - x(1) ^ 2) ^ 2 + (1 - x(1) ^ 2) End Function Sub СМРС() Const e = 0.0000000001, n = 2, R = -1 Dim x(-1 To n + 1, 1 To n) As Double, i As Integer, j As Integer, L As Double, F(-1 To n + 1)... |
Даты в VBA VBA как сделать, тк чтобы он не выдавал данные с минусом? a = DateDiff("d", "20.05.2016", Now) MsgBox "С 10.06.2016 осталось дней до экзамена: " & a b = DateDiff("yyyy", "10.06.2016", Now) MsgBox "С 20.05.2016 осталось лет до экзамена: " & b c = DateDiff("m", "10.06.2016", Now) MsgBox "С 20.05.2016 осталось месяцев до экзамена: " & c D = DateDiff("h", "10.06.2016", Now) MsgBox "С 20.05.2016... |
VBA Избавиться от зависания программы при расчетах
https://www.cyberforum.ru/ vba/ thread1740295.html Здравствуйте! Столкнулся с такой проблемкой, программа не желает считать, при запуске происходит зависание программы. Просматривал программу, но к сожалению не обнаружил ошибки. Смотрел по иксам, x1 считает, а x2 не хочет считать - одно постоянное значение. Ответ должен быть 1, 1 Function fn(x() As Double) As Double fn = x1 ^ 4 + e ^ x2 - 4 * x1 - e ^ 1 * x2 + 4 End Function Sub МНС()... |
VBA Строки в VBA Удалить среднюю букву при нечетной длине строки и две средние буквы при четной длине строки. не знаю как переделать условие из паскаля в VBA :( Private Sub CommandButton1_Click() Dim s As String s = TextBox1.Text If Len(s) Mod 2 = 0 Then writeln(copy(s,1, (Len(s) div 2) - 1) , copy(s,(len(s) div 2) + 2, len(s))) Else writeln(copy(s,1, length(s) div 2) , copy(s,(length(s) div 2) +... https://www.cyberforum.ru/ vba/ thread1740240.html |
VBA Двумерный массив в VBA Help! не имею представления как ее решить...:cry::( |
VBA одномерный массив в VBA Дана последовательность чисел, среди которых имеется два нуля. Вывести на печать все числа, находящиеся между этими нулями. есть начало программы Private Sub CommandButton1_Click() Dim i As Integer Dim s As Integer s = 0 txt = Split(TextBox1.Value, ",") For i = 0 To UBound(txt) https://www.cyberforum.ru/ vba/ thread1740222.html |
VBA Запрет редактирования в общей книге
https://www.cyberforum.ru/ vba/ thread1740069.html Помогите на случай если есть более красивое решение. суть макроса в том, заказчики просят внести изменения в график, исполнитель вносит и ставит готово, в соседнюю ячейку ставится дата изменения. далее нужно сделать запрет на изменение уже внесенных запросов. я решил это следующим образом Dim x As Long Private Sub Worksheet_Change(ByVal Target As Range) If Target(1, 1).Value = "готово" Then... |
Как создать универсальный шаблон письма в Word с автоматическим форматированием? VBA Добрый день! Есть письмо оформленное следующим образом (см. приложение) Необходимо сделать шаблон который бы имел возможность: Заполнение всех желтых полей Вставки блока №1(красный прямоугольник) до 3 раз подряд Исключение блока №2 (синий прямоугольник) т.е. убрать из шаблона письма блок №2 в случаи отсутствия приложений к письму При всем этом заблокировать доступ к... |
VBA Удаление пробелов до символа
https://www.cyberforum.ru/ vba/ thread1740013.html Есть тесты в таком виде ( примерно 600 штук) : $# 2 Укажите аллергические реакции, развивающиеся по IV типу иммунного повреждения: Контактный дерматит Отторжение трансплантата Пищевая аллергия Тиреоидит Хашимото $# |
VBA Макрос Казнского заменяющий слова на формулу из этих же слов
https://www.cyberforum.ru/ vba/ thread1739819.html Sub bb() Dim w As Range, i&, j& For i = ActiveDocument.Words.Count To 1 Step -1 Set w = ActiveDocument.Words(i) If w.Text Like "*" Then j = j + 1 If j Mod 3 = 0 Then w.Fields.Add Range:=w, Type:=wdFieldEmpty, Text:= _ "eq " & Trim$(w.Text), PreserveFormatting:=False End If |
Объединить повторяющиеся строки excel с суммированием нужных столбцов VBA Здраствуйте, не могу разобраться в коде макроса, не в моих силах. Помогите плиз с готовым решением. Пример файла залил + там же лист как должно получиться. Суть - нужно объеденить повторяющиеся значения по столбцу C,D,O,S, а по столбцам H, I, J, N суммировать и по столбцу A произвести сцепление через запятую без пробелов можно. Кол-во строк свыше 2х тысяч и периодически добавляются. |
VBA открытие формы
https://www.cyberforum.ru/ vba/ thread1739639.html имеется книга эксель и в персональной книге макросов находится форма. как сделать так чтобы при открытии книги эксель открвывалась форма. я знаю что код надо прописывать в "эта книга" в vba, но форма у меня находится в личной книге макросов. |
1 / 1 / 1
Регистрация: 13.06.2015
Сообщений: 47
|
||||||
21.05.2016, 00:12 [ТС] | 0 | |||||
Найти Сумму всех несократимых дробей - VBA - Ответ 916779221.05.2016, 00:12. Показов 1825. Ответов 5
Метки (Все метки)
Ответ
спасибо
я хотел бы узнать часть макроса, чтоб сравнить массив с 2мя заданными коэффициентам, вывести их на след соседний столбец, и при меньших или больших( т.е не соблюдения условия) значениях сразу превратить в нули. такое возможно? m> value <n Добавлено через 2 часа 5 минут
Вот оно, творение Вернуться к обсуждению: Найти Сумму всех несократимых дробей VBA
0
|
21.05.2016, 00:12 | |
Готовые ответы и решения:
5
Найти сумму всех элементов и их среднее арифметическое, результаты представить в виде несократимых дробей Вычислить суммы всех несократимых дробей Вычислить суммы всех несократимых дробей Вычислить суммы всех несократимых дробей C# Windows Forms |
21.05.2016, 00:12 | |
21.05.2016, 00:12 | |
Помогаю со студенческими работами здесь
0
Вычислить суммы всех несократимых дробей, со знаменателем к, содержащихся между целыми числами Вывод в порядке возрастания всех правильных несократимых дробей, знаменатели которых не превосходят n Напишите программу поиска всех простых несократимых дробей, заключенных между 0 и 1, знаменатели которых не превышают 7 Найти количество несократимых правильных дробей с данным знаменателем |