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

Ionutamaria90 Ionutamaria90    3   21.09.2019 21:00    2

Ответы
vickyin1519 vickyin1519  21.08.2020 13:03
Попробуй это:
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
ПОКАЗАТЬ ОТВЕТЫ
polisavostina polisavostina  21.08.2020 13:03
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
Заменить отрицательные элементы массива нулями. язык vba
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика