在VBA中没有发生任何简单的条件

Question

在excel中，如果条件匹配，我想将单元格强加为0，否则可编辑。我的条件是另一个单元格的值= 1.这是我的最小示例VBA行：

sudo apt-get install php7.1-mysql

但即使B4设置为1，也没有任何事情发生！这段代码中是否缺少某些内容？谢谢！

Answer 1

使用您要分析/更改的特定工作表限定Range个对象。这是VBA的最佳实践，并确保代码作用于您需要的特定位置。

例如：

With Worksheets("Sheet1")

    If .Range("B4").Value = 1 Then .Range("C4").Value = 0

End With

或者

If Worksheets("mySheet").Range("B4").Value = 1 Then

    Worksheets("yourSheet").Range("C4").Value = 0

End If

Answer 2

您还必须参考表格。如，

If ActiveSheet.Range("B4").Value = 1 Then ActiveSheet.Range("C4").Value = 0

要查看您所指的工作表，请尝试以下操作：

Sub TestMe()
    If Range("B4").Value = 1 Then Range("C4").Value = 0
    MsgBox (Range("B4").Parent.Name)
End Sub