如果语句考虑多个单元格以更新多个单元格

Question

我正在尝试根据另一个单元格的值来更新一个单元格，但这需要在一系列范围内完成。我很困惑要执行此操作的代码。

这是excel中的Vba。

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

我想你是在追求这样的东西：

! Package inputenc Error: Unicode character Φ (U+3A6)
(inputenc)                not set up for use with LaTeX.

其中：

• 使用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属性作为行偏移量参数，并指向所引用的单元格下方四行的单元格