Одномерный массив в VBA

[Nataly1992]

ну помогите.....

[alyon_ka]

да, во первых надо объявить массив правильно, а то он находит неправильно минимальный элемент

[alyon_ka]

и еще в коде кое что добавила

Private Sub CommandButton1_Click()
n = InputBox("Vvedite kolichestvo n")
ReDim A(n) As Double
For i = 1 To n
A(i) = InputBox("Vvedite A(" & i & ")")
Next i
For i = 1 To n
Cells(2, i).Value = A(i)
Next i
Cells(1, 1) = "Vhodnoj"
Cells(1, 2) = "Massiv"
Cells(3, 1) = "Vuhodnoj"
Cells(3, 2) = "Massiv"
Amin = A(1): Nmin = 1
Nvtoroy = 0: flag = 0
For i = 1 To n
If A(i) < 0 Then k = k + 1 ' находим элемент в массиве меньший нуля и переменную k увеличиваем на 1
If k = 2 And flag = 0 Then Nvtoroy = i: flag = 1 ' когда находим второй элемент массива меньший за ноль в переменной  Nvtoroy запоминаем его место
If Amin > A(i) Then Amin = A(i): Nmin = i
Next i
If Nvtoroy > 0 Then
    A(Nvtoroy) = Amin 'на место второго меньшего за ноль стравим минимальный
Else
    MsgBox "В массиве А меньше 2 элементов меньших нуля"
End If
For i = 1 To n
    Cells(4, i).Value = A(i)
Next i
End Sub

[alyon_ka]

обрати внимание массив был объявлен в твоем коде как ReDim A(n), и для него все числа были как строки, поэтому он неправильно минимальный элемент определял, массив в твоем случае должен быть обязательно объявлен как ReDim A(n) As Double

[Nataly1992]

Я готова вас расцеловать!!!!!!!!

[Nataly1992]

А можете еще сказать, що такое у вас flag????

[alyon_ka]

flag - тоже переменная, когда мы находим второй ненулевой элемент - присваиваем ей 1, когда в цикле мы проверяем эту переменную и она равна 1 - то мы уже знаем что второй ненулевой элемент найден, если переменная равно 0 - то это говорит об обратном

[Nataly1992]

Огромное спасибо. Вы моя спасительница))))

[alyon_ka]

в качестве благодарности можете добавить отзыв ))