вывести масив в ListBox
здравствуйте, я понимаю, что это глупо, но я не знаю как вывести масив в ListBox после выволнения оператора if ... (чтобы все ел-ты масива,которые меньше 10 заменились нулями... как не крути у меня все-равно выводит масив без замены...) А=10 - константа.
Private Sub CommandButton1_Click()
N = TextBox1.Value
M = TextBox2.Value
ReDim Array1(N, M)
ListBox1.ColumnCount = M
ListBox1.ColumnWidths = "50"
For i = 2 To M
ListBox1.ColumnWidths = ListBox1.ColumnWidths & ";50"
Next i
For i = 0 To N - 1
ListBox1.AddItem (Cells(i + 1, 1).Value)
For j = 0 To M - 1
ListBox1.List(i, j) = Cells(i + 1, j + 1).Value
Array1(i, j) = Cells(i + 1, j + 1).Value
Next j
Next i
For i = 0 To N - 1
For j = 0 To M - 1
'If Max_el < Array1(i, j) Then Max_el = Array1(i, j)
If Array1(i, j) < A Then Array1(i, j) = 0
...
Next j
Next i
End Sub
Private Sub CommandButton1_Click()
N = TextBox1.Value
M = TextBox2.Value
ReDim Array1(N, M)
ListBox1.ColumnCount = M
ListBox1.ColumnWidths = "50"
For i = 2 To M
ListBox1.ColumnWidths = ListBox1.ColumnWidths & ";50"
Next i
For i = 0 To N - 1
ListBox1.AddItem (Cells(i + 1, 1).Value)
For j = 0 To M - 1
ListBox1.List(i, j) = Cells(i + 1, j + 1).Value
Array1(i, j) = Cells(i + 1, j + 1).Value
Next j
Next i
For i = 0 To N - 1
For j = 0 To M - 1
'If Max_el < Array1(i, j) Then Max_el = Array1(i, j)
If Array1(i, j) < A Then Array1(i, j) = 0
...
Next j
Next i
End Sub
Как ни крути, но если A = 10, то Вы всё же получите массив не содержащий элементов, значения которых будут < A. Только для того, чтобы увидеть это воочию, необходимо в конце макроса выполнить инструкцию ListBox1.List = Array1
Кстати, необходимую проверку можно осуществить при (или перед) заполнением списка, в таком случае Вы избавитесь от двух "лишних" циклов или же заполнить список с использованием свойства .List, а затем произвести необходимую замену.
Кстати, необходимую проверку можно осуществить при (или перед) заполнением списка, в таком случае Вы избавитесь от двух "лишних" циклов или же заполнить список с использованием свойства .List, а затем произвести необходимую замену.
спасибо