находить наибольший член этой строки( можно ряда или столбца) (Visual Basic)

[Rasta12345]

Дорогие обитатели форума. Очень долго не могу написать простейшую программу. Она должна брать из уже готовой матрицы в Exel или генерировать свою(не суть важно), строку и находить наибольший член этой строки( можно ряда или столбца). Прошу помочь в написании. Поскольку я недавно столкнулся с подобным и в игре human resurce mashine ответ за одно прошу объяснить на пальцах. Заранее спасибо!

[Aleksandr H.]

А что написал уже? Чтение строки екселя есть?

[Rasta12345]

Сообщение от Aleksandr H.

А что написал уже? Чтение строки екселя есть?

Я не написал пока ровным счетом ничего, поскольку написание этой программы будет осуществляться мною в аудитории перед преподом и в заданных им же конфигурациях( я лишь в общих чертах знаю что возможно будет). Чтение строки, столбца, диагонали я устроить смогу, а вот алгоритм который будет в этой строке находить наибольший, наименьший член, я не представляю как буду делать и соответственно прошу привиести примеры подобных программ или объяснить на пальцах.

[Aleksandr H.]

Sub ksibir()
    Dim colNumber As Long
    Dim rowsCount As Long, colsCount As Long
    Dim colSum As Long, colProizv As Long, colMax, colMin
    Dim rowSum As Long, rowProizv As Long, rowMax, rowMin
    Dim r As Long
    On Error GoTo erLabel
    colNumber = ActiveCell.Column
    colProizv = 1
    colMax = Application.WorksheetFunction.Max(Columns(colNumber))
    colMin = Application.WorksheetFunction.Min(Columns(colNumber))
    colSum = Application.WorksheetFunction.Sum(Columns(colNumber))
    rowsCount = Cells(Rows.Count, colNumber).End(xlUp).Row
    For r = 1 To rowsCount
        If (Cells(r, colNumber) <> "") And _
        IsNumeric(Cells(r, colNumber)) Then
            colProizv = colProizv * Cells(r, colNumber)
        End If
    Next
    rowProizv = 1
    rowMax = Application.WorksheetFunction.Max(Rows(colNumber))
    rowMin = Application.WorksheetFunction.Min(Rows(colNumber))
    rowSum = Application.WorksheetFunction.Sum(Rows(colNumber))
    colsCount = Cells(colNumber, Columns.Count).End(xlToLeft).Column
    For r = 1 To colsCount
        If (Cells(colNumber, r) <> "") And _
        IsNumeric(Cells(colNumber, r)) Then
            rowProizv = rowProizv * Cells(colNumber, r)
        End If
    Next
    MsgBox "СТОЛБЕЦ № " & CStr(colNumber) & vbNewLine & _
    "сумма" & vbTab & vbTab & ": " & CStr(colSum) & vbNewLine & _
    "произведение" & vbTab & ": " & CStr(colProizv) & vbNewLine & _
    "максимальное" & vbTab & ": " & CStr(colMax) & vbNewLine & _
    "минимальное" & vbTab & ": " & CStr(colMin) & vbNewLine & vbNewLine & _
    "СТРОКА № " & CStr(colNumber) & vbNewLine & _
    "сумма" & vbTab & vbTab & ": " & CStr(rowSum) & vbNewLine & _
    "произведение" & vbTab & ": " & CStr(rowProizv) & vbNewLine & _
    "максимальное" & vbTab & ": " & CStr(rowMax) & vbNewLine & _
    "минимальное" & vbTab & ": " & CStr(rowMin)
    Exit Sub
    
erLabel:
    MsgBox "ОШИБКА В ДАННЫХ" & vbNewLine & "Error: " & Err.Description
End Sub

[Sasha_Smirnov]

Да уж… В таком контексте я ещё не выступал.

Начну с простого (тема cuba_35): Массивы.

Сообщение от Sasha_Smirnov

'ОТ АВТОРА: «программистская» фишка здесь в том, что в условии не оговорено, что в массиве A'
'наибольшее и наименьшее значения представлены только одним элементом. Значит, их м. б. много!'

Сообщение от Sasha_Smirnov

Ещё 4 ч — и мы у цели! (Помнится, в институте на ТАКОЕ месяца два убивалось...)

По идее, комментарии призваны обнажить «подводные камни» защиты, а как на самом деле?

Сообщение от Rasta12345

…вас не понял

Я об этом:

Сообщение от Rasta12345

прошу объяснить на пальцах.

И о доходчивости моих комментариев (ссылки на которые выше, в цитатах) для обычного человека.

[Rasta12345]

Сообщение от Aleksandr H.

Sub ksibir()
    Dim colNumber As Long
    Dim rowsCount As Long, colsCount As Long
    Dim colSum As Long, colProizv As Long, colMax, colMin
    Dim rowSum As Long, rowProizv As Long, rowMax, rowMin
    Dim r As Long
    On Error GoTo erLabel
    colNumber = ActiveCell.Column
    colProizv = 1
    colMax = Application.WorksheetFunction.Max(Columns(colNumber))
    colMin = Application.WorksheetFunction.Min(Columns(colNumber))
    colSum = Application.WorksheetFunction.Sum(Columns(colNumber))
    rowsCount = Cells(Rows.Count, colNumber).End(xlUp).Row
    For r = 1 To rowsCount
        If (Cells(r, colNumber) <> "") And _
        IsNumeric(Cells(r, colNumber)) Then
            colProizv = colProizv * Cells(r, colNumber)
        End If
    Next
    rowProizv = 1
    rowMax = Application.WorksheetFunction.Max(Rows(colNumber))
    rowMin = Application.WorksheetFunction.Min(Rows(colNumber))
    rowSum = Application.WorksheetFunction.Sum(Rows(colNumber))
    colsCount = Cells(colNumber, Columns.Count).End(xlToLeft).Column
    For r = 1 To colsCount
        If (Cells(colNumber, r) <> "") And _
        IsNumeric(Cells(colNumber, r)) Then
            rowProizv = rowProizv * Cells(colNumber, r)
        End If
    Next
    MsgBox "СТОЛБЕЦ № " & CStr(colNumber) & vbNewLine & _
    "сумма" & vbTab & vbTab & ": " & CStr(colSum) & vbNewLine & _
    "произведение" & vbTab & ": " & CStr(colProizv) & vbNewLine & _
    "максимальное" & vbTab & ": " & CStr(colMax) & vbNewLine & _
    "минимальное" & vbTab & ": " & CStr(colMin) & vbNewLine & vbNewLine & _
    "СТРОКА № " & CStr(colNumber) & vbNewLine & _
    "сумма" & vbTab & vbTab & ": " & CStr(rowSum) & vbNewLine & _
    "произведение" & vbTab & ": " & CStr(rowProizv) & vbNewLine & _
    "максимальное" & vbTab & ": " & CStr(rowMax) & vbNewLine & _
    "минимальное" & vbTab & ": " & CStr(rowMin)
    Exit Sub
    
erLabel:
    MsgBox "ОШИБКА В ДАННЫХ" & vbNewLine & "Error: " & Err.Description
End Sub

Вот это дело. Спасибо. Однако осталось несколько вопросов:
1)Для нахождения максисального члена просто есть функция?(Application.WorksheetFunct ion.Max(Rows(colNumber)))
2)ни разу не видел такого обозначения( Dim colNumber As Long)
3) А существует ли иной способ найти минимальный и максимальный член (столбца, строки и т.д.)

[Rasta12345]

Сообщение от Sasha_Smirnov

Да уж… В таком контексте я ещё не выступал.

Начну с простого (тема cuba_35): Массивы.

По идее, комментарии призваны обнажить «подводные камни» защиты, а как на самом деле?

Простите, но я как то вас не понял

[Aleksandr H.]

Сообщение от Rasta12345

1)Для нахождения максисального члена просто есть функция?(Application.WorksheetFunct ion.Max(Rows(colNumber)))

для нахождения максимального в строке на листе Excel.

Сообщение от Rasta12345

2)ни разу не видел такого обозначения( Dim colNumber As Long)

значит тему Типы данных прогуливал.

Сообщение от Rasta12345

3) А существует ли иной способ найти минимальный и максимальный член (столбца, строки и т.д.)

Да. в общих словах

For i = 1 To ПоследняяЯчеейка
tmp = cells(3,i)
If mx <= tmp Then mx = tmp
If mn >= tmp Then mn = tmp
Next