Если заявление с учетом нескольких ячеек для обновления нескольких ячеек

Question

Я пытаюсь обновить одну ячейку, основываясь на значении другой ячейки, но это нужно сделать для ряда диапазонов.Я нахожусь в тупике на коде, чтобы сделать это.

Это VBA в Excel.

Sub Elec()
Dim kw As Range, cells As Range, Response1 As Integer
InputBox ("Update Run Status to No Where the Kw load is less than")

    Set kw = Range("B10:Z10")
    Set cells = Range("B14:Z14")
        If kw < Response1 Then
            For Each cells In kw
            Set cells.Value = "No"
    Next

    End If
End Sub

Answer 1

Полагаю, вы ищете что-то вроде этого:

Sub Elec()
    Dim cell As Range, Response1 As Long

    Response1 = Application.InputBox("Update Run Status to No Where the Kw load is less than", , , , , , , 1)

    For Each cell In Range("B10:Z10")
        If cell.Value < Response1 Then cell.Offset(4).Value = "No"
    Next
End Sub

, где:

• используйте Application.InputBox() вместо VBA.InputBox() для принудительного ввода типапользовательский ввод: последний 1 должен заставить числовой ввод

• использовать Offset() свойство Range объекта с 4 в качестве параметра смещения строки иуказать на ячейку на четыре строки ниже указанной