VBA

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

Войти

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

Другие темы раздела
VBA Найти все отрицательные числа из введенной строки, кратные 7 Ребята, помогите, очень надо решить задачу по visual basic Изначально задача была такой: 1. Создайте форму пользователя. Добавьте в форму нужные элементы (3 кнопки ВЫПОЛНИТЬ, ОЧИСТИТЬ и ВЫХОД, элементы Поле для ввода информации, Список, Надпись и пр.). Имя формы – Фамилия. Заголовок формы – Фамилия и номер варианта. 2. Напишите процедуру обработки события Click для кнопки ВЫПОЛНИТЬ в... https://www.cyberforum.ru/ vba/ thread149290.html	VBA if, case Помогите плиз сделать 2 задачки...Они вроде не сложные... 1. Определить делителем каких из чисел a,b,c является число К 2. Для целого числа n от 1 до 99 напечатать фразу "мне n лет", учитывая что 11 лет, 22 года, 61 год. На эту задачку у меня есть решение но только в паскале... Помогите плиз сделать код в VBA Uses CRT; type vozrast=1..100; var n:vozrast;
VBA Найти двузначное число, равное утроенному произведению его цифр найти двузначное число равное утроенному произведению его цифр я вот решаю не получается: Dim T, a, b, c As Integer T = 9 Do T = T + 1 a = T \ 10 b = T - a * 10 If T = (a * b) * (a * b) * (a * b) Then MsgBox (T) https://www.cyberforum.ru/ vba/ thread149074.html	VBA Удалить из строки все вхождения заданного слова https://www.cyberforum.ru/ vba/ thread148865.html помогжите пожалуйста сделать две задачки 1.В веденной строке вывести на экран все слова которые начинаются на букву которая введена с клавиатуры 2.Удалить из строки все вхождения заданного слова. Буду очень благодарен
Examination VBA Вообщем ребят экзамен в субботу,там 90% попадется задача в VBA,вообще не понимаю,кто может помочь - отблагодарю!!!!	VBA Вывести среднее количество балов студентов помогите, пожалуйста!!! Условие:вывести среднее количество балов, которые получили по укр. и англ. языках 20 лучших абитуриентов(фамилии не важны) (Option Button,CheckBox) https://www.cyberforum.ru/ vba/ thread148556.html
VBA перевевод с старого Qbasic на Visual Basic. https://www.cyberforum.ru/ vba/ thread148533.html 1000 REM ПОДПРОГРАММА "МЕТОД ГАУССА С ВЫБОРОМ 1001 REM ГЛАВНОГО ЭЛЕМЕНТА В СТОЛБЦЕ" 1002 REM 1003 REM ВХОДНЫЕ ПЕРЕМЕННЫЕ: A(I,J),B(I),N 1004 REM ВЫХОДНЫЕ ПЕРЕМЕННЫЕ: X(I),L 1005 REM ВНУТРЕННИЕ ПЕРЕМЕННЫЕ: I,J,K,R,A1(I,J) 1006 REM 1007 FOR I=1 TO N 1008 FOR J=1 TO N 1009 A1(I,J)=A(I,J)	Объекты в Excel VBA Объект Application (Приложение) занимает самый верхний уровень иерархии объектов Excel. Объект Application управляет установками и параметрами уровня приложения, т.е. такими, которые можно найти в диалоговом окне Параметры программы Excel. Чтобы убедиться в этом, закройте все открытые рабочие окна и откройте новую рабочую книгу. Затем выполните следующие шаги. 1. Выберите команду...
VBA Как исправить ошибку в проге https://www.cyberforum.ru/ vba/ thread148509.html Доброго времени суток! Собственно проблема моя вот в чём! Препод, тестируя программу, запускал её 1 раз. В результате выводилась таблица в отдельном файле. В этом файле он в таблицу вставляет строку и запускает программу ещё раз, указав те же условия(режиссера). Выскакивает окно связанное с буфером, на котором 3 кнопки(да,нет,отмена). При нажатии на отмену - ошибка. Требование препода - исключить...	VBA Объединение текстбоксов Здравствуйте. такой вопрос, по заданию нужно три раза посчитать некую сумму и записать ее в три текстбокса. Можно ли как-то объединить текстбоксы, что-то наподобие массива, чтобы обращаться по индексу? https://www.cyberforum.ru/ vba/ thread148310.html
VBA База данных Excel Здравствуйте...со ссылкой на приложеный файл...пытаюсь создать что-то путное...для ввода данных через форму, в связи с чем возникли некоторые вопросы: 1. Как сделать заливку линии, допустим от A1 до S1 если в программе описание строки (конкретной ячейки) идет следующим образом: Worksheets.Cells(I, 1), где I = 1, n По правилам это могло бы быть Range("A1:S1")...просто все упирается в цикл с...	VBA Заливка прямоугольника в Excel Подскажите, пожалуйста, как сделать заливку прямоугольника в Excel. Переделываю код макросов под Visual C++. Но почему-то при попытке залить прямоугольник черным выдает ошибку unhandled exception... (компилится нормально, сбой именно при выполнении кода) Полный код макроса: ActiveSheet.Shapes.AddShape(msoShapeRectangle, 313.5, 268.5, 165.75, 6#). _ Select ... https://www.cyberforum.ru/ vba/ thread148150.html

YuraAAA

1605 / 1337 / 291

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

Сообщений: 3,487

Записей в блоге: 2

25.06.2010, 11:31

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

25.06.2010, 11:31. Показов 2407. Ответов 1

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

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

Решение

Visual Basic

Public Sub proc1()
Dim A(1 To 10) As Single, B(1 To 12) As Single, C(1 To 8) As Single
Dim max As Single, min1 As Single, min2 As Single, min3 As Single
Cells(1, 1) = "A"
Cells(1, 2) = "B"
Cells(1, 3) = "C"
min1 = 100: min2 = 100: min3 = 100
For i = 1 To 10
A(i) = 100 * Rnd - 50
Cells(i + 1, 1) = A(i)
If A(i) < min1 Then min1 = A(i)
Next i
For i = 1 To 12
B(i) = 100 * Rnd - 50
Cells(i + 1, 2) = B(i)
If B(i) < min2 Then min2 = B(i)
Next i
For i = 1 To 8
C(i) = 100 * Rnd - 50
Cells(i + 1, 3) = C(i)
If C(i) < min3 Then min3 = C(i)
Next i
Cells(11, 1) = "Min= " & min1
Cells(13, 2) = "Min= " & min2
Cells(9, 3) = "Min= " & min3
max = min1
If min2 > max Then max = min2
If min3 > max Then max = min3
MsgBox max
End Sub

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

25.06.2010, 11:31

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

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

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

Найти максимальный элемент среди элементов с чётными индексами
Нужно написать массив из 10 эл-в. И собственно само задание: нужно найти минимальный элемент среди...

Дана матрица размера M × N. В каждом столбце матрицы найти максимальный элемент
Помогите разобраться,никогда не работал в vba

	25.06.2010, 11:31

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

25.06.2010, 11:31

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

Найти максимальный элемент в массиве, поменять его местами с первым элементом
3.16. Найти максимальный элемент в массиве X(N), поменять его местами с первым элементом, если же...

Найти максимальный по модулю элемент в одномерном массиве, состоящий из n вещественных элементов
Пожалуйста, помогите решить задачу в Excel в VBA.. Необходимо найти максимальный по модулю...

Найти максимальный отрицательный элемент в массиве. Программу снабдить обработкой неверно введенных данных
массив состоит из от 0 до 30 элементов параметры передаются через Param Array помогите написать...

Максимальный элемент среди минимальных
Дан массив A размера N и целые числа K и L (1≤K<L≤N). Переставить в обратном порядке элементы...

Новые блоги и статьи
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .
Rust или Go? А может C++? hw_wired 28.01.2025 С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .	Fortran и WinAPI: как создать приложение с графическим интерфейсом hw_wired 28.01.2025 Fortran — это один из старейших высокоуровневых языков программирования, широко используемый в науке и инженерии уже несколько десятилетий. Его название происходит от "Formula Translation" (перевод. . .	Списки в Haskell hw_wired 28.01.2025 Haskell является функциональным языком программирования, который отличается лаконичностью синтаксиса и мощными абстракциями. Важным концептом в Haskell являются списки — упорядоченные коллекции. . .	Функции высшего порядка в Haskell hw_wired 28.01.2025 Haskell – это современный функциональный язык программирования, который получил широкое распространение благодаря своей выразительности и мощным абстракциям. Одной из ключевых особенностей Haskell. . .	Как в цикле обойти все поля объекта в JavaScript bytestream 28.01.2025 Объекты в JavaScript представляют собой фундаментальные структуры данных, которые позволяют хранить и организовывать связанную информацию в виде пар ключ-значение. Каждый объект можно представить как. . .	Как выбрать строки в DataFrame по значению столбца в Pandas bytestream 28.01.2025 В области анализа данных библиотека Pandas стала незаменимым инструментом для работы с табличными данными в Python. Эта мощная библиотека предоставляет множество функций для эффективной обработки и. . .

Наверх