Question

Помогите пожалуйста, программирование на vba в столбце А, начиная со строки №5 содержаться следующие данные 25 2 18 556 71. найдите сумму максимального и минимального значений и записать ее в ячейку С8

Answer 1

Sub aaa()

Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"

End Sub

Answer 2

Конечно, я могу помочь с написанием кода на VBA, чтобы решить эту задачу. Ниже приведен код, который можно использовать для нахождения суммы максимального и минимального значений в столбце A, начиная со строки 5, и записывания этой суммы в ячейку C8:

vbaCopy code
Sub FindMinMaxSum()
    Dim rng As Range
    Dim cell As Range
    Dim maxVal As Double
    Dim minVal As Double
    Dim sumVal As Double
    
    ' Set the range to look for values in column A starting from row 5
    Set rng = Range("A5:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    ' Set the initial values for max and min to the first cell in the range
    maxVal = rng.Cells(1).Value
    minVal = rng.Cells(1).Value
    
    ' Loop through each cell in the range to find the max and min values
    For Each cell In rng
        If cell.Value > maxVal Then
            maxVal = cell.Value
        End If
        
        If cell.Value < minVal Then
            minVal = cell.Value
        End If
    Next cell
    
    ' Add the max and min values together
    sumVal = maxVal + minVal
    
    ' Write the sum to cell C8
    Range("C8").Value = sumVal
End Sub

Вы можете скопировать этот код в модуль VBA в своей книге Excel, а затем запустить макрос FindMinMaxSum, чтобы выполнить расчет и записать сумму в ячейку C8. Перед запуском макроса убедитесь, что в столбце A есть данные, и что ячейка C8 пуста.