Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA LibreOffice Basic, выравнивание текста по ширине Пишу макрос для форматирования текста в LibreOffice Writer, нужно установить выравнивание текста по ширине, пожалуйста, подскажите как это можно сделать https://www.cyberforum.ru/ vba/ thread2143878.html Необходимо подтянуть данные с листа на лист Excel (по типу ВПР) VBA
Всем,добрый день. Прошу помочь в вопросе описанном ниже. Необходимо с помощью модуля подтянуть данные с Лист1(у меня это "Книги"),на Лист2(у меня это "Отправка") На первом листе "Книги"две колонки А,B: Наименование книг и Стоимость,на втором листе "Отправка" таблица 6 столбцов, в столбце C указано Наименование книг,в столбец D нужно поддтянуть стоимость книг в ячейки с листа "Книги". Пока...
VBA Найти сумму строк матрицы https://www.cyberforum.ru/ vba/ thread2143809.html
Что не так с кодом? Нужно найти сумму строки матрицы размерностью 7*6 диапазон матрицы, диапазон матрицы А1:F7 , при этом полученное число должно отображаться справа от матрицы. помогите пожалуйста Public Sub Matrix() Dim i, j Dim text, answer Dim 7 As Byte, 6 As Byte, sum As Integer Dim a() As Integer n = InputBox("N") m = InputBox("M") ReDim a(1 To 6, 1 To 7) As Integer
VBA По введенной дате рождения определить день недели Используя оператор выбора Select Case: По введенной дате рождения сообщить пользователю, в какой день недели он родился (понедельник или вторник, или среда и т. Д.). Для определения дня недели использовать функцию WeekDay (дата, vbMonday), которая возвращает целое число от 1 до 7. https://www.cyberforum.ru/ vba/ thread2143730.html
VBA JavaScript
Товарищи, окажите помощь, нужно допилить игрушку на JavaScript6. Вся информация по тел: 89315908183. За мат. помощь(сроки горят денег не пожалею).
VBA Вычислить сумму кодов всех символов, которые в цикле https://www.cyberforum.ru/ vba/ thread2143607.html
Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия на клавишу Esc.
VBA Массивы: найти номер рынка, где продаются самые дешевые ягоды Известны цены на землянику на n рынках Москвы. Известно расстояние от дома покупателя до каждого рынка. Найти номер рынка, где продаются самые дешевые ягоды, если покупатель согласен пройти расстояние не более r км. https://www.cyberforum.ru/ vba/ thread2143600.html Excel vba найти процесс на удаленном ПК VBA
Пытаюсь сделать поиск нужного процесса на указанных компьютерах. По примерам реализовал проверку на доступность удаленного ПК, но прикрутить функцию поиска процесса и вывода информации об этом знаний не хватает((( 'This function does the pinging Function GetPingResult(Host) 'declaring variables Dim objPing As Object Dim objStatus As Object
VBA Выгрузка массива в лист https://www.cyberforum.ru/ vba/ thread2143495.html
Доброго времени суток! :) Уважаемые, Пожалуйста помогите с выгрузкой массива? Создал массив с определенным размером. Заполнил его нужными значениями. Теперь надо удалить из массива все элементы в которых 3 последних a(i,4) и a(i,5) и a(i,6) пустые и выгрузить всё это на лист. Как удалить лишнее и выгрузить массив в лист? Sub Viborka() 'запускать после выгрузки и обработки ...
VBA Как обращаться к таблицам, если их в документе больше чем один https://www.cyberforum.ru/ vba/ thread2143477.html
Всем привет, подскажите как обращаться к таблицам, если их в документе больше чем один. Заранее спасибо
VBA Почему if не работает?
Public Function функция1(x) As Double If (x = 0) Then MsgBox("x не может быть равен 0") As VbMsgBoxResult Else функция1 = (Cos(Application.Pi() * x) / x) + Sin(Application.Pi() * x) * x End If End Function
VBA Сортировка массива по возрастанию с удалением одинаковых значений Доброго времени Уважаемые форумчане, с сортировкой массива в котором есть цифры трудностей не возникло, но как по возрастанию отсортировать такие данные в массиве ( Dim A(0 To 5) As String A(0) = 340x350x110 A(1) = 440x340x300 A(2) = 340x220x110 A(3) = 440x340x300 A(4) = 340x300x220 A(5) = 500x400x300 https://www.cyberforum.ru/ vba/ thread2143290.html
1 / 1 / 0
Регистрация: 25.09.2016
Сообщений: 160
0

Использование msgbox / inputbox при работе с массивами - VBA - Ответ 11885072

26.11.2017, 19:45. Показов 2271. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Задание:

Исходные данные (размеры матриц и значения элементов матриц) вводятся с помощью оператора ввода InputBox. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов, являющихся результатом вычислений, осуществите в рабочий документ приложения MS Word, используя оператор Type. В каждом варианте задания вычислите определители исходных матриц. При необходимости используйте отладчик приложения VBA.
12. Составить программу вычисления одномерного массива, каждый элемент которого равен минимальному элементу соответствующей строки матрицы A размером 5*5.


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
Sub Zadanie3()
Dim I As Integer ' Строка
Dim J As Integer  'Столбец
Dim n As Integer
Dim m As Integer
Dim min As Integer
m = InputBox("Введите число строк")
n = InputBox("Введите число столбцов")
Cells.Clear
ReDim A(n, m)
For I = 1 To m
For J = 1 To n
A(I, J) = InputBox("A(" & I & ", " & J & ")")
Next J
Next I
ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.Range("$A$1:$C$1"), , xlYes).Name = "Таблица"
For I = 1 To m
For J = 2 To n
If min < A(I, J) Then min = A(I, J)
z = min
MsgBox (" Результат равен z=" & z)
Next
Next
Также прикреплю исходник.

Как вывести введенную матрицу на активный лист Excel ,пробовал и Print.(Debug) и это , не выходит всё равно,и как подсчитать минимальный элемент строки,а и потом вычислить одномерный массива, каждый элемент которого равен минимальному элементу соответствующей строки ?

Вернуться к обсуждению:
Использование msgbox / inputbox при работе с массивами VBA
Вложения
Тип файла: rar задание3-.rar (13.1 Кб, 1 просмотров)
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2017, 19:45
Готовые ответы и решения:

Использование операторов ввода (InputBox) и вывода (MsgBox) при работе с массивами данных
Составить программу вычисления номера столбца матрицы размера 4x4, состоящей из нулей и единиц,...

Использование операторов ввода (InputBox) и вывода (MsgBox) при работе с массивами данных
Составить программу, формирующую одномерный массив из сумм квадратов элементов соответствующих...

Использование операторов ввода (InputBox) и вывода (MsgBox) при работе с массивами данных
Составить программу, формирующую одномерный массив из модулей минимальных элементов соответствующих...

Использование операторов ввода (InputBox) и вывода (MsgBox) при работе с массивами данных в Excel
Составить программу, формирующую одномерный массив из сумм квадратов элементов соответствующих...

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

Использование InputBox и MsgBox
Здорово, что есть такие форумы, где умные люди делятся своими идеями и соображениями с другими...

InputBox MsgBox
С помощью встроенной функции InputBox организовать ввод динамического одномерного массива целых...

Inputbox, msgbox
Здравствуйте, помогите пожалуйста,нужно выполнить 2 задания в VBA в Word: 1.Составить программу...

Управление размерами InputBox и MsgBox
Господа, пожскажите, плз. Могу ли я в Excell на VBA управлять размерами окошек Input и MsgBox?...

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