Question

Заменить отрицательные элементы массива нулями. язык VBA

Answer 1

Sub Calculate()
Dim Cols As Variant
Dim begin_row As Integer
Dim end_row As Integer
begin_row = 2
end_row = 6
Cols = Array(1, 2, 3, 4, 5)
For Each Col In Cols
If (Cells(begin_row, Col).Value < 0) Then
Cells(end_row, Col).Value = 0
Else
Cells(end_row, Col).Value = Cells(begin_row, Col).Value
End If
Next Col
End Sub

Answer 2

Попробуй это:
Randomize
Dim massiv(10) As Integer
Dim stroka As String
For i = 0 To 10
massiv(i) = Rnd * 100 - 50
Next i
For i = 0 To 10
If massiv(i) < 0 Then massiv(i) = 0
stroka = stroka & massiv(i) & vbCrLf
Next i
MsgBox stroka

Answer 3

Для замены отрицательных элементов массива нулями на языке VBA можно использовать следующий код:

Sub ReplaceNegativeElementsWithZero()
    Dim arr As Variant
    Dim i As Integer
    
    ' Задаем значения элементов массива
    arr = Array(-2, 5, -3, 0, -1)
    
    ' Проходим по всем элементам массива
    For i = LBound(arr) To UBound(arr)
        ' Проверяем, является ли элемент отрицательным
        If arr(i) < 0 Then
            ' Заменяем отрицательный элемент нулем
            arr(i) = 0
        End If
    Next i
    
    ' Выводим результаты
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

В данном примере в качестве исходного массива выбраны значения `(-2, 5, -3, 0, -1)`. В результате выполнения кода отрицательные элементы `(-2, -3, -1)` будут заменены нулями. Результат будет выведен в окно `Immediate`, доступное в среде разработки VBA (например, в Microsoft Excel открывается нажатием `Ctrl + G`).

Для использования собственного массива необходимо заменить строку `arr = Array(-2, 5, -3, 0, -1)` на соответствующую строку, где вместо `-2, 5, -3, 0, -1` будут указаны нужные значения.