Поиск максимального значения в переменных.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поиск максимального значения в переменных. (Макросы/Sub)

votangi59 Дата: Понедельник, 19.08.2024, 20:14 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 3 ±

Замечаний: 0% ±

Приветствую всех жителей форума!
Дано: куча переменных типа

PB(1), PB(2), PB(3), ..., PB(20)

возможно и больше, созданных посредством

Dim PBx(1 To 20) As Currency

Задача: найти максимальное числовое значение.
Решение:

PBmax = WorksheetFunction.Max (PB(1), PB(2), PB(3), ... PB(20))

Вопрос: существуют ли способы сократить данную конструкцию? Поделитесь, пожалуйста, опытом.
В поиске ответа не нашёл.

Ответить

Hugo Дата: Понедельник, 19.08.2024, 20:27 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

votangi59, можно проще:

Sub tt() Dim PB(2) PB(0) = 2 PB(1) = 3 PB(2) = 1 MsgBox WorksheetFunction.Max(PB) End Sub

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

votangi59

Дата: Понедельник, 19.08.2024, 21:22 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 3 ±

Замечаний: 0% ±

Hugo, приветствую.
Это была шутка? Благодарю.

Сообщение отредактировал votangi59 - Понедельник, 19.08.2024, 21:23

Ответить

MikeVol Дата: Вторник, 20.08.2024, 06:58 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 434

Репутация: 104 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

Цитата votangi59, 19.08.2024 в 21:22, в сообщении № 3 (

писал(а)):

Это была шутка?

С чего вы решили что это шутка? Предпологается что вместо =2, =3, =1 вы передадите значения с листа книги. Пример рабочий вы просто не уловили смысл.

Option Explicit Sub tt() Dim PB(2) Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1") PB(0) = ws.Cells(1, 1).Value PB(1) = ws.Cells(1, 2).Value PB(2) = ws.Cells(1, 3).Value MsgBox WorksheetFunction.Max(PB) End Sub

Ученик.
Одесса - Украина

Сообщение отредактировал MikeVol - Вторник, 20.08.2024, 07:01

Ответить

Hugo Дата: Вторник, 20.08.2024, 10:23 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Цитата votangi59, 19.08.2024 в 21:22, в сообщении № 3 (

писал(а)):

Это была шутка?

- ну я мог ответить просто

WorksheetFunction.Max(PB)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

votangi59

Дата: Воскресенье, 25.08.2024, 01:48 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 3 ±

Замечаний: 0% ±

Всех благодарю. Понятно.
Это подходяще:

Цитата Hugo, 20.08.2024 в 10:23, в сообщении № 5 (

писал(а)):

WorksheetFunction.Max(PB)

Вопрос исчерпан.

Ответить

Поиск максимального значения в переменных. (Макросы/Sub)

Страница 1 из 1
1