VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA меню в VBA https://www.cyberforum.ru/ vba/ thread234399.html Как в VBA создать меню? Напр.: *Сообщения- ----сообщение1(2) -----сообщение2(2)	VBA Создайте пользовательскую форму Создайте пользовательскую форму на которой расположите 2 элемента TextBox и 2 кнопки (добавить и очистить).Второй элемент TextBox должен быть многострочным.Пользователь вводит название блюда в первый элемент TextBox по нажаию на кнопку "добавить" элемент добавляется с новой строки в многострочный элемент TextBox .По нажатии на кнопку "очистить" оба элемента TextBox очищаются
VBA Функция InputBox https://www.cyberforum.ru/ vba/ thread234357.html С помощью функции InputBox запросите у пользователя название трех любых месяцев и выдайте их на рабочий лист Excel в правильной последовательности. Например, пользователь вводит месяцы Апрель, Март и Январь.	VBA Заполнение ячеек случайными числами Поскажите пожалуйсто, каким самым простым способом можно забить ячейки случайными числами? К примеру, заполнить 50 ячеек (А1:Е10). https://www.cyberforum.ru/ vba/ thread234072.html
Выяснить, какое число встречается раньше — положительное или отрицательное VBA Здравствуйте,помогите пожалуйста написать код к задаче: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше — положительное или отрицательное.	VBA Разбить данные из списка по отчету в VBA требуется большая и неоценимая помощь гуру есть задание автоматизировать печать отчетов в котором в выпадающем списке при выборе фио его данные ставились в разные ячейки данных будет много но так как начал только осваивать ВБА и ВБ то что то не могу врубиться как это сделать (форму сделал и экселе и в ВБ но дальше что то не получается никак) https://www.cyberforum.ru/ vba/ thread233894.html
VBA Считать диапазон https://www.cyberforum.ru/ vba/ thread233781.html На форме в TextBox задается диапазон цифр (или несколько), например 3-12, 20-35 Как считать отсюда цифры 3,12 и записать их в один массив, а 20,50 в другой?	Как создать PDF файл с именем ZAKAZ_(дата сегодня).pdf VBA Как создать из "Excel таблицы" - PDF файл с именем ZAKAZ_(дата сегодня).pdf при помощи макроса? Есть такой макрос: Sub Макрос1() ' макрос, записанный макрорекордером ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\ZAKAZ_" & Format(Now, "DD_MMMM_YYYY") & ".pdf" End Sub
VBA Как перенести Range на другой лист https://www.cyberforum.ru/ vba/ thread233685.html Public shet As Worksheet Public rng As Range Private Sub CommandButton1_Click() Set shet = ThisWorkbook.Worksheets(3) Call coder(shet) End Sub Function coder(shet) With shet	VBA Пароль на защиту листа https://www.cyberforum.ru/ vba/ thread233365.html Добрый день. Помогите, пожалуйста заполнить пробел в коде. Необходимо узнать как можно проверить установлен ли пароль на защищенном листе. If sh.ProtectContents Then 'если лист защищен If ... Then 'условие должно проверять есть ли пароль на листе или он защищен без пароля pass = InputBox(Prompt:="Введите пароль") sh.Unprotect Password:=pass ...
Работа с файлами Excel VBA какой процедурой выплняется сборка информации с эксель файлов? Именуйте темы осмысленно. Название темы должно максимально полно отражать ее содержание.	VBA Найти среднее геометрическое значение массива https://www.cyberforum.ru/ vba/ thread233099.html Здравствуйте уважаемые форумчане. Кто знает как решить такие задачки в VBA, пожалуйста напишите. 1. Ввести массив А(N). Найти среднее геометрическое значение массива. Нечетные элементы массива разделить на среднее геометрическое. Вывести преобразованный массив. 2. Ввести массив А(N). Найти среднее арифметическое значение массива. Первый элемент массива заменить на среднее арифметическое....

Faustxi

01.02.2011, 16:34

Найти минимальный и максимальный элемент массива - VBA - Ответ 1334171

01.02.2011, 16:34. Показов 23274. Ответов 8

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Visual Basic

Option Explicit
Option Base 1
Sub Mass()
Dim M1() As Integer, M2() As Integer, n As Integer, i As Integer, max As Integer, min As Integer, _
Str1 As String, Str2 As String, Str3 As String, M3() As Integer
Dim MNO As Integer
n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim M1(n), M2(n), M3(n)
 
Randomize
For i = 1 To n
M1(i) = Int(10 * Rnd + 1)
M2(i) = Int(10 * Rnd + 1)
Str1 = Str1 & M1(i) & " "
Str3 = Str3 & M2(i) & " "
Next
 
min = M2(1)
For i = 2 To n
If M2(i) < min Then min = M2(i)
Next
 
max = M1(1)
For i = 2 To n
If M1(i) > max Then max = M1(i)
Next
 
MsgBox "Массив: " & Str1 & Chr(13) & "Максимальный элемент: " & max & Chr(13) & _
"Минимальный элемент: " & min & Chr(13)
 
End Sub

Вернуться к обсуждению:
Найти минимальный и максимальный элемент массива VBA

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

01.02.2011, 16:34

Готовые ответы и решения:

Найти минимальный и максимальный элементы массива и заменить первый элемент массива суммой минимального и максимального элементов
Доброго времени суток.. Случилось так, что требуется решить 2 задачи в ВБА на массивы, которые я...

Найти максимальный элемент массива на четных местах и минимальный - на нечетных
Написать программу на VBA, которая позволяет в одномерном массиве осуществлять поиск максимального...

Найти минимальный и максимальный элементы массива
Дан массив целых чисел K(n), найти в нем минимальный Kmin, и максимальный Kmax элементы. Вывести в...

Найти сумму элементов массива, максимальный и минимальный элемент массива
Дан массив из N элементов на отрезке из найти сумму элементов массива , максимальный и минимальный...

	01.02.2011, 16:34

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

01.02.2011, 16:34

Помогаю со студенческими работами здесь

Как удалить максимальный и минимальный элемент массива
В задаче просят найти максимальный и минимальный элемент массива. Найти их не составило труда, но...

Ввести массив a(n). найти максимальный элемент массива. Четные элементы массива разделить на максимальный
Вывести полученный массив.

Найти минимальный и максимальный элемент матрицы
Найти минимальный и максимальный элемент матрицы С. Заменить ими элементы строки и столбца, в...

Определить минимальный элемент 1-го столбца массива, максимальный элемент 9-го столбца и поменять их местами
Сформировать массив 13 × 13 из чисел в диапазоне от –100 до 150. Определить минимальный элемент...

Oпределить минимальный элемент массива и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом массива.
Обработать на компьютере одномерный массив E(N): определить минимальный элемент массива и его...

Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы
Dim L(10, 5) For i = 1 To 10 For j = 1 To 5 L(i, j) = Int(Rnd * (72 - 27) + 27) Print L(i, j);...

Новые блоги и статьи
Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .

Наверх