Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Как вывести график Привет всем.. Мне нужно нарисовать графику в Excel. В ячейках даны время от 00:00 до 23:59, который используется для значение икса.. А значение y идет из базы данных (MS SQL Server 2005). Я написал такой код в VBA: For i = 1 To 1440 t = Application.Cells(i, 1) While Not records.EOF abc = records(0) If abc = t Then ... https://www.cyberforum.ru/ vba/ thread578094.html Как записать код для поиска в ListBox VBA
я сделал listbox, там у меня список пассажиров, № рейса, № паспорта и.т.д., нужно сделать кнопку(CommandButton) при нажатие на которую в лист боксе остануться только те пассажиры которые пользовались услугой более 2-х раз),получаеться если в списке встречаеться 2 одинаковые № паспорта то это озночает что пассажир пользовался услугой более 2-х раз, тоесть нужно записать код который будет искать...
VBA Добавление строк на защищенном листе программно Привет! Ситуация такая: в Excel есть защищаемая ячейка с формулой СУММ и под ней ячейки не защищаемые, куда вносятся пользователем цифры для подсчёта суммы. Пользователю необходимо добавлять новые строки так, чтобы они попадали в формулу СУММ. При этом новые строки должны быть последними. Прав у пользователя на добавление новых строк нет. На изменение защищаемой ячейки прав тоже нет. И... https://www.cyberforum.ru/ vba/ thread578036.html VBA Рекурсия: На шахматной доске расставить 8 ферзей так, чтобы они не били друг друга https://www.cyberforum.ru/ vba/ thread577993.html
Всем привет. Прошу помочь в решении задачи в VBA c помощью рекурсии. Задача: На шахматной доске расставить 8 ферзей так, чтобы они не били друг друга.
VBA Посчитать сумму столбца в access VBA
Всем привет! В таблице нужно посчитать сумму столбца, который был создан искуственно (не входит в таблицу). Через построитель выражений сумма этого столбца не считается, хотя сумма других столбцов, которые изначально были в таблице считается. Как прописать код VBA, чтобы можно было посчитать сумму этого столбца? (через кнопку) файл с примером прилагается.
VBA Для каждого из массивов определить повторяющиеся элементы https://www.cyberforum.ru/ vba/ thread577907.html
"Подпрограммы." Заданы три одномерных массива разной размерности. Для каждого из массивов определить повторяющиеся элементы. Помогите, пожалуйста! Четырнадцать раз переделывал - не получается Вот: Sub main() Dim A() As Double Dim B() As Double Dim C() As Double Private Sub rep(mas, r, d) Dim d As Integer
VBA Перевести все буквы строки в верхний регистр в Word Имеется документ Word. Нужно в Бэйсике, который вызывается в Ворде написать программу, чтобы 1. можно было увеличить весь текст заглавными буквами 2. уменьшить все буквы нижним регистром 3. сделать так, чтобы первая буква каждого слова была заглавной как использовать эти функции? vbUpperCase Преобразование строки к верхнему регистру. vbLowerCase Преобразование строки к нижнему регистру.... https://www.cyberforum.ru/ vba/ thread577814.html Определить скольким из треугольников - ABC, ACD, BCD принадлежит начало координат VBA
Работа в VBA Excel. На плоскости даны точки A,B,C,D. Определить скольким из треугольников - ABC,ACD,BCD принадлежит начало координат? Точки можно взять произвольные, главное чтобы функция работала. Насколько я понимаю - нужно применить какую-то формулу из геометрии, записать её в подпрограмму и к ней потом обращаться через Call, но так как геометрия была 4 года назад - сейчас уже ничего не...
VBA Каким образом можно отображать данные, не делая сводной таблицы Подскадите, каким образом можно отображать данные, но делая сводной таблицы (данных в действительности намного больше, как и выводимых столбцов) Возможно есть примеры, как это можно это сделать. Спасибо https://www.cyberforum.ru/ vba/ thread577726.html VBA В матрице Z(m,m) каждый элемент разделить на диагональный, стоящий в том же столбце В матрице Z(m,m) каждый элемент разделить на диагональный, стоящий в том же столбце.(VBA) вот какой код получился у меня,но при делении иногда может выдавать ноль,хотя логически этого вообще не может быть. проверьте,пожалуйста, и исправьте: https://www.cyberforum.ru/ vba/ thread577594.html
Вычислить значение выражения VBA
Даны числа х (действительные), ε (ε > 0). Последовательность a1, a2, ... образована по следующему закону: a1 = x; далее,для n = 2,3,...выполнено: (где a1,a2.. - 1,2.. в индексе) 1) a(n)=sqr(abs(4*a^2(n-1)-2x)) - где n и n-1 в индексе 2) a(n)=3+1/2^n*cos^2(a(n-1)-x) - где n и n-1 в индексе помогите решить эти задачи.. очень надо..срочно!
VBA В матрице найти строки, элементы которых упорядочены по убыванию https://www.cyberforum.ru/ vba/ thread577563.html
В действительной матрице порядка MxN найти строки, элементы которых упорядочены по убыванию. Помогите пожалуйста!!!!!! Я в этом вообще дуб дерево (((
0 / 0 / 0
Регистрация: 15.05.2012
Сообщений: 5
0

Найти максимальный элемент в каждой строке матрицы - VBA - Ответ 3046216

17.05.2012, 21:27. Показов 4660. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
доброго времени суток!
помогите пожалуйста разобраться с программой
вводится массив 4*4 с клавиатуры, находится максимальный элемент в каждой строке,
выводится квадрат максимального элемента в новый массив

результатом программы должен стать документ, содержащий в себе исходный массив и обработанный
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
26
27
28
29
30
31
32
33
34
Sub матрица()
Dim a(4, 4) As Integer
Dim b(4, 4) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim max As Integer
 
For i = 1 To 4
    For j = 1 To 4
        a(i, j) = InputBox("введите элемент массива", "ввод массива")
    Next j
Next i
 
s = 0
For i = 1 To 4
    For j = 2 To 4
        max = a(i, j)
        If a(i, j) < a(i, j + 1) Then
            max = a(i, j + 1)
            k = 0
            b(s, k) = max
            k = k + 1
        End If
    Next j
    s = s + 1
Next i
For i = 1 To 4
    For j = 1 To 1
        Selection.TypeText (a(i, j) & Chr(9))
        Selection.TypeParagraph
    Next j
Next i
End Sub
заранее благодарю!

Вернуться к обсуждению:
Найти максимальный элемент в каждой строке матрицы VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2012, 21:27
Готовые ответы и решения:

В каждой строке матрицы найти максимальный элемент и заменить им первый элемент строки
В матрице Х(4,5) в каждой строке найти максимальный элемент и заменить им первый элемент строки....

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом
Ошибка в задаче. Может я что-то не дописал. Исправьте пожалуйста программу. Дана матрица B....

Дан двумерный массив . Найти максимальный элемент в каждой строке
1 . Дан одномерный массив . Упорядочить его по возрастанию 2 . Дан одномерный массив целых чисел ,...

В квадратной матрице 6х6 найти максимальный элемент, который лежит на побочной диагонали и максимальный элемент в каждой строке матрицы
В квадратной матрице 6х6 найти максимальный элемент, который лежит на побочной диагонали и...

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

В каждой строке матрицы найти максимальный элемент, в каждом столбце найти минимальный элемент, и поменять их местами
пожалуйста помогите плз!!! дан массив А. В каждой строке найти максимальный элемент, в каждом...

Найти максимальный элемент в каждой строке матрицы
найти максимальный элемент в каждой строке матрицы и заменить его числом 1.Оформить в виде функции.

Найти максимальный элемент в каждой строке матрицы
написать функцию

В каждой строке матрицы найти максимальный элемент
Дан двухмерный массив. В каждой его строке найти максимальный элемент

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