|
|
| Другие темы раздела | |||||||||||||||||||||||||||||||||
| VBA Найти сумму элементов массива и вывести на печать Прошу помочь с программой :) У меня почему-то все элементы массива k=1 и с выводом на печать проблемы %-) Даны массивы A(m) и Y(m), m<=12. Найти сумму S=A(1)Y(m)+A(2)Y(M-1)+....+A(M)Y(1). Если S<24, вывести ее на печать; в противном случае вывести на печать оба исходных массива синим цветом. Сформировать новый массив K по правилу K= 1, если A(i)>Y(i) K= 0, если A(i)<=Y(i) https://www.cyberforum.ru/ vba/ thread700854.html |
VBA Оптимизировать макрос Word, который транспонирует таблицу с учетом объединения строк и столбцов 'Ìàêðîñ, òðàíñïîíèðóþùèé òàáëèöó, â êîòîðîé íàõîäèòñÿ êóðñîð. Èñõîäíàÿ òàáëèöà îñòàåòñÿ áåç èçìåíåíèé; òðàíñïîíèðîâàííàÿ- 'ïîÿâëÿåòñÿ â êîíöå äîêóìåíòà, ïîñëå ðàçðûâà ñòðîêè. 'Ñòðóêòóðà, õðàíÿùàÿ èíôîðìàöèþ îá îáúåäèíåíèÿõ Public Type cellInfo rs As Integer 'rowspan cs As Integer 'colspan w As Integer 'width shiftH As Integer 'ñìåùåíèå ïî ãîðèçîíòàëè - íóæíî äëÿ... | ||||||||||||||||||||||||||||||||
|
VBA Формирование массива с листа. Исправить код
https://www.cyberforum.ru/ vba/ thread700299.html На рабочем листе есть массив-строка С(5,1,1,7,1,21,1). Из него формируется новый квадратный массив. В приведенном коде все элементы нового массива равны 4. В чем здесь ошибка, подскажите, пожалуйста:umnik: Function g(c As Variant) As Double Dim i As Integer Dim j As Integer Dim n As Integer Dim R() As Double n = c.Columns.Count |
VBA Найти минимальное значение в столбце и вывести его Друзья! Помогите найти ошибку в цикле. Надо найти минимальное значение в столбце и вывести его. Я код написал, но он у меня постоянно ругается на строку If Public Sub Пример31() Dim I As Long, min As Integer, max As Integer, SR As Long, proiz As Long For I = 1 To 10 Sheets("Пример-31").Cells(I, 1) = Int(Rnd * 10) Next I min = 0 For I = 1 To 10 If min = LBound(.Cells(I, 10)) Then https://www.cyberforum.ru/ vba/ thread700220.html | ||||||||||||||||||||||||||||||||
|
VBA Ввод и вывод данных в окне при работе с массивами Помогите сделать пожалуйста так,чтобы пользователь мог вводить данные в окно и потом выводить введённые значения также в окне,чтобы проверить правильность работы программы. Option Explicit Option Base 1 Sub №1() Dim Массив_чисел, Количество_чисел, n As Integer, Среднее_арифметическое As Single Количество_чисел = Val("Введите количество элементов массива") For n = 1 To Количество_чисел ... |
VBA Замена определенного текста на листе Word из пользовательской формы Здраствуйте. Нужно реализовать такую ситуацию. Есть документ в котором часть текста не меняется. Другую часть нужно изменить типо имя фамилия адрес номер акта и тд. Нужно что бы нажатием на кнопку вызывалась форма , в которую вводились данные, при окончание ввода опять же нажатием на кнопку данные заносились в определенные места в документе. Были мысли типо такого: Создание макроса замены в... https://www.cyberforum.ru/ vba/ thread699930.html | ||||||||||||||||||||||||||||||||
|
VBA Как выделить отдельные слова в ячейке
https://www.cyberforum.ru/ vba/ thread699609.html Прошу помочь с программой. %-) В определенном столбце выводятся построчно данные по заявкам, в каждой строке может быть несколько заявок. Требуется, чтобы в каждой ячейке выделялось определенное слово, например, "Горящая" и окрашивалась в цвет, отличный от остального текста. То что приведено ниже окрашивает весь текст в ячейке :( Спасибо!!! Sub brands() Application.EnableCancelKey =... |
VBA Определить, расположены ли три точки на одной прямой Здравствуйте уважаемые форумчане. Помогите пожалуйста, в вба несилен. Не пойму где ошибка. Собственно задание: Даны три точки А(x1, y1), В(x2, y2), С(x3, y3). Определить будут ли они расположены на одной прямой. Если нет, то вычислить периметр треугольника. Код: Sub two() Dim X1 As Double Dim X2 As Double Dim X3 As Double Dim Y1 As Double Dim Y2 As Double Dim Y3 As Double | ||||||||||||||||||||||||||||||||
|
VBA Вычисление определенных интегралов методом Монте-Карло
https://www.cyberforum.ru/ vba/ thread699309.html Нужно придумать пример, любой. Вычисление определенных интегралов методом Монте-Карло. В Excel и basic. Заранее огромное спасибо |
VBA Изменение свойств документа Word или как еще задать желаемое название при сохранении
https://www.cyberforum.ru/ vba/ thread699275.html Добрый день! Задача такая: Формирую документ word программно из access (на основе шаблона) так: Set App = New Word.Application App.Documents.Add CurrentProject.Path & "\Template\" & "TempName.dot" With App.ActiveDocum
Наверх
| ||||||||||||||||||||||||||||||||
Сообщение было отмечено как решение