форма для нахождения максимального и минимального значения

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » форма для нахождения максимального и минимального значения (Макросы/Sub)

klokov__

Дата: Понедельник, 15.03.2021, 09:56 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Доброго времени суток уважаемые форумчане!
Прошу компетентных людей помочь в выполнении задания:

Разработать подпрограмму или пользовательскую форму для нахождения максимального и минимального значения выделенного диапазона рабочей таблицы и замены их нулевым значением.
Форма более-ли-менее разработана для Excel:
[vba]

Код

Option Explicit

Private Sub UserForm_Initialize()
   Me.Caption = "Статистика"
   CommandButton1.Caption = "OK"
End Sub

Private Sub CommandButton1_Click()
   Dim r As String
   Dim min As Double
   Dim max As Double
   Dim s As Double
   r = RefEdit1.Value
   Dim rgn As Range
   Set rgn = Range(r)
   min = WorksheetFunction.min(rgn)
   max = WorksheetFunction.max(rgn)
   s = WorksheetFunction.Sum(rgn)
   MsgBox RefEdit1.Value & vbCr & _
          "min=" & min & vbCr & _
          "max=" & max & vbCr & _
          "s=" & s
End Sub

[/vba]

Проблема в замене нулевыми значениями. Я вычитал что нужно использовать код типа:
КодВыделить код
[vba]

Код

Columns ("A") .Replace What:="???", Replacement:="0", _
SearchOrder:=xlByColumns, MatchCase:=True

[/vba]
Но....ни хватает мозгов

прикрутить к моей форме. Вот в чём и заключается моя просьба... :shy: