如果单元格值为真或仅等于数字，则运行 VBA 代码答案

【问题标题】：Run VBA code if the cell value true or equel to number only如果单元格值为真或仅等于数字，则运行 VBA 代码
【发布时间】：2019-04-30 15:37:05
【问题描述】：

我有一个包含动态单元格范围名称列表（选取）名称管理器的 excel 表。当我单击该列表中的任何单元格时，vba 代码会在另一个单元格中显示活动单元格值。如果仅$d$2 = 1，我想运行此 vba 代码。

VBA 代码如下。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(ActiveCell, [Picked]) Is Nothing Then
        [ValPicked] = ActiveCell.Value
     End If
End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

只需添加另一个If，并在您的代码中使用Target 而不是ActiveCell。前者是被改变的单元格。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, [Picked]) Is Nothing Then
        If Range("D2").Value = 1 Then
            [ValPicked] = Target.Value
        End If
     End If
End Sub

【讨论】：

这是我的荣幸。