0

По какой-то причине, всё время указывает номер "9" последнего отрицательного числа, хотя тут вообще всего 8 чисел. Вот решение:

Sub n13()
Dim i As Double, A(1 To 8) As Double, min As Double
For i = 1 To 8
    A(i) = InputBox("Введите число, элемент массива:")
Next
min = A(1)
For i = 1 To 8
    If A(i) < min Then
        min = A(i)
    End If
Next
If min < 0 Then
    MsgBox ("Значение = " & min & ", номер = " & i)
End If
End Sub

Вот исправленное решение, не то искал. В любом случае, как теперь сделать так, чтобы выводилось только последнее отрицательное?

Sub n12()
Dim i As Double, A(1 To 8) As Double, z As Double
For i = 1 To 8
A(i) = Cells(i, 1)
If A(i) < 0 Then
MsgBox ("Значение = " & A(i) & ", номер = " & i)
End If
Next
End Sub
4
  • Да Вы вообще не то ищете. Надо - отрицательные, а Вы ищете зачем-то минимальное... PS. У Вас формально вообще нет задачи хранить массив - обрабатывайте прямо по мере ввода, массив не нужен.
    – Akina
    3 дек 2020 в 11:35
  • Действительно, просто перепутал услвовия, в предыдущих задачах как раз минимальное надо было найти. Хорошо, вот исправил, но не до конца. Никак не могу понять, как сделать, чтобы только последнее отрицательное выводилось.. Sub n12() Dim i As Double, A(1 To 8) As Double, z As Double For i = 1 To 8 A(i) = Cells(i, 1) If A(i) < 0 Then MsgBox ("Значение = " & A(i) & ", номер = " & i) End If Next End Sub
    – fryboil
    3 дек 2020 в 11:39
  • Так надо не выводить очередное отрицательное, а запоминать его индекс. А уже после цикла - вывести. Поскольку каждый следующий перезапишет предыдущий - выведется как раз последнее. И надо предусмотреть случаи, когда (1) отрицательных вообще нет (2) в ячейке - не число.
    – Akina
    3 дек 2020 в 11:45
  • >> ...номер "9" последнего отрицательного числа, хотя... всего 8 чисел потому что после отработки шага i = 8 счетчик увеличивается на единицу (i =9), цикл идет к следующему шагу... и тут понимает, что нужно уходить :) 3 дек 2020 в 14:25

1 ответ 1

0

Если идти циклом по строкам сверху вниз, то нужно перебрать все значения:

Sub n12()
    Dim i As Long, n As Long
    
    For i = 1 To 8
        If Cells(i, 1).Value < 0 Then n = i
    Next i
        
    If n > 0 Then MsgBox ("Значение = " & Cells(n, 1).Value & ", номер = " & n), 64, "РЕЗУЛЬТАТ"
End Sub

Но если цикл "развернуть", диапазон просматривается только до первого отрицательнного значения:

Sub n12()
    Dim i As Long

    For i = 8 To 1 Step -1
        If Cells(i, 1).Value < 0 Then Exit For
    Next i
    
    If i > 0 Then MsgBox ("Значение = " & Cells(i, 1).Value & ", номер = " & i), 64, "РЕЗУЛЬТАТ"
End Sub

Если есть желание, можно добавить сообщение о том, что отрицательные не найдены.

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.