|
|
| Другие темы раздела | |
|
VBA Вствка текста из VBA в notepad и обратно
https://www.cyberforum.ru/ vba/ thread881953.html Sub test() Shell "NOTEPAD.EXE", vbMaximizedFocus For I = 1 To 1000: DoEvents: Next ' время на открытие блокнота SendKeys "123456789", True End Sub Как вставить текст в уже открытый блокнот? Можно набранный в блокноте текст передать в строковую переменную? |
Построить вектор, элементы которого равны сумме элементов строк матрицы, которые стоят ниже главной диагонали VBA Нужно сделать лабу,но чтобы код был как можно проще. Построить вектор С элементы которого равны сумме элементов рядков матрицы А(m,m), которые стоят ниже главной диагонали . |
| VBA Распечатать те группы цифр, в которых цифра 7 встречается не более двух раз Ввести строку, состоящую только из цифр и букв. Распечатать те группы цифр, в которых цифра 7 встречается не более двух раз. (Группа цифр - это последовательность цифр, обрамленная буквами.) Sub jhj() Dim len2, i, j, i_start, i_end, fl, temp As Integer Dim a As String a = "0jkfd777 as7 ffff77777" len2 = Len(a) For i = 0 To len2 fl = 0 https://www.cyberforum.ru/ vba/ thread881900.html |
VBA Как определить сумму и количество только отрицательных значений массива
https://www.cyberforum.ru/ vba/ thread881887.html Помогите составить программу. Вот условие. Сформировать массив N чисел, среди которых могут быть как положительные, так и отрицательные числа. Определить сумму и количество только отрицательных значений.:) |
|
VBA Сумма матриц Помогите, пожалуйста: Составить программу вычисляющую сумму матриц А и В размерности n x n. Где в качестве аргументов передаются диапазоны ячеек с исходными данными, а так же функция не должна использовать встроенных функций Ms Excel, для обработки результатов. |
VBA Макрос для сдвига xls таблицы на несколько ячеек ниже
https://www.cyberforum.ru/ vba/ thread881689.html Добрый день, уважаемые форумчане. Выгружаю из SQL Server при помощи DTS Package xls-таблицу. Далее мне необходимо добавить при помощи макроса некоторые итоговые данные. Эти данные необходимо поместить над шапкой таблицы. Для этого хочу сдвинуть таблицу на несколько строк ниже, а в освободившиеся ячейки плюхнуть необходимые данные. Честно говоря с VBA давно не работал, все забыл. Подскажите как... |
|
VBA По примеру данной задачи нужно выполнить другую задачу, у самой не выходит
https://www.cyberforum.ru/ vba/ thread881631.html Пример: Type Spisok LastName As String FirstName As String PapaName As String Age As Byte End Type Private Function sortByLastName(massive() As Spisok, massiveSize As Integer, key As Boolean) As Spisok() ' key = true - по возрастанию ' key = false - по убыванию |
VBA Подсчитать сколько точек плоскости находятся вне прямоугольника 1<=x <=10 и -2<= y<=4 Подсчитать сколько точек плоскости, координаты которых вводятся с первых двух столбцов рабочего листа, находятся вне прямоугольника 1<= x <=10 и -2 <= y <=4. Для описания координат точек использовать переменную пользовательского типа. Для проверки принадлежности точки указанной области использовать логическую функцию. Type PointCoord 'название типа данных, который создает пользователь ... |
|
VBA Не пойму почему не работает программа
https://www.cyberforum.ru/ vba/ thread881627.html Написать логическую функцию, принимающую значения True, если в целом числе, являющимся единственным аргументом этой функции, сумма цифр – число, начинающееся на 4. Sub Four4() MsgBox Four(Val(InputBox("Введите число"))) End Sub Function Four(s As Long) As Boolean Dim i As Integer, a() As Long, n As Long ReDim a(i) If Int(a(i) / 100) = 4 Then If Mid(s, 1, 1) = "4" Then |
VBA Расчет итогов Есть макрос, который ищет по колонке "А", текст "Итого:" и затем суммирует на этой строке данные по колонке "F" начиная с F6. Sub Итоги() Set s = Columns("A").Find("Итого:", , xlValues, xlWhole, , , False) If Not s Is Nothing Then Range("F" & s.Row).Formula = "=Sum(F6:F" & s.Row - 1 & ")" End Sub https://www.cyberforum.ru/ vba/ thread881612.html |
|
Сохранить в одну ячейку ComboBox VBA подскажите как написать код чтобы 3 ComboBox сохранялись в одну ячекуй. P.S. вот начало кода: Cells (2,10)=cmbDD.Value cmbMM.Value cmbGG.Value |
VBA Не определяет " & i "
https://www.cyberforum.ru/ vba/ thread881537.html Пишу макрос для определения слов типа "таблица N" и столкнулся с проблемой: Данный вариант работает и MsgBox Выбивает "1": Sub Макрос1() Dim Count As Integer Dim FirstWord As String Count = ActiveDocument.Paragraphs.Count For i = 1 To Count TestString = ActiveDocument.Paragraphs(i) FirstWord = Mid(TestString, 1, 9) |
|
0 / 0 / 0
Регистрация: 18.05.2013
Сообщений: 14
|
|
| 28.05.2013, 16:39 [ТС] | 0 |
Построить вектор, каждый элемент которого равен сумме строк матрицы, деленной на элемент главной диагонали этой же строки - VBA - Ответ 463052828.05.2013, 16:39. Показов 1307. Ответов 6
Метки (Все метки)
Ответ
Спасибо)
Вернуться к обсуждению: Построить вектор, каждый элемент которого равен сумме строк матрицы, деленной на элемент главной диагонали этой же строки VBA
0
|
|
| 28.05.2013, 16:39 | |
|
Готовые ответы и решения:
6
Определить массив М, каждый элемент которого равен сумме соответствующих элементов массивов R и Q Сформировать одномерный массив, каждый элемент которого равен квадрату максимального элемента соответствующей строки матрицы Построить вектор D, элементы которого равны сумме элементов строк матрицы В
|
| 28.05.2013, 16:39 | |
| 28.05.2013, 16:39 | |
|
Помогаю со студенческими работами здесь
0
Сформировать массив, каждый элемент которого равен сумме элементов главной и побочной диагонали соответствующего столбца Вектор, каждый элемент которого равен сумме индексов исходной матрицы, равного ключу поиска
|