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

Старая форма входа

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

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

votangi59

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

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

Ранг: Новичок

Сообщений: 27

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

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

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

Код

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

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

Код

Dim PBx(1 To 20) As Currency

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

Код

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

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

Ответить

Hugo

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

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

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

Сообщений: 3703

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

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

365

votangi59, можно проще:
[vba]

Код

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

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

votangi59

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

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

Ранг: Новичок

Сообщений: 27

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

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

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

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

Ответить

MikeVol

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

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

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

Сообщений: 378

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

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

MSO LTSC 2021 EN

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

)

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

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

Код

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

[/vba]