☰

如果在 vba 中的特定单元格中输入特定值时运行函数

tag-icon • tag-icon microsoft-excel worksheet-function vba
如果在 vba 中的特定单元格中输入特定值时运行函数

更新代码！

我想创建一个工作表，如果我在单元格中输入“Hello”，A1则会自动插入一行。我在 vba 中尝试了此代码。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "Hello" Then
    Range("A2").EntireRow.Insert
End If
End Sub

它完成了工作。如果我在单元格中输入 Hello，A1它会插入一行。但是每次我对工作表进行更改时，都会插入一行。

我知道这是为了声明。Private Sub Worksheet_SelectionChange(ByVal Target As Range) 每次我对工作表进行更改时，代码都会运行。然后它进入 if 条件并检查条件。然后它发现 Hello 已输入到单元格中A1。所以它再次插入一行。如何摆脱这个兄弟？

提前致谢！

相关内容