代码之家 › 专栏 › 技术社区 › Jess

VBA:如何通过链接自动更改单元格来触发工作表事件函数?

excel vba excel-vba

Jess · 技术社区 · 16 年前

我的问题是: 当我手动更改单元格d9中的值时,下面的函数将触发“if-then函数”。我该怎么做才能让它通过一个链接自动改变单元格d9的值。

换言之,如果我在哪里将单元格d9链接到单元格a1并更改a1的值,我还能使下面的函数工作吗?

Private Sub Worksheet_Change(ByVal Target As range)
  If Target.Address = "$D$9" Then

  If range("C12") = 0 Then
    Rows("12:12").Select
    Selection.RowHeight = 0
  Else:
    Rows("12:12").Select
    Selection.RowHeight = 15
  End If
End Sub

2 回复 | 直到 7 年前

dendarii 16 年前

这样怎么样:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Dim rngDependents As Range
    Set rngDependents = Target.Dependents

    If Target.Address = "$D$9" Then
        MsgBox "D9 has changed"
    ElseIf Not Intersect(rngDependents, Range("$D$9")) Is Nothing Then
            MsgBox "D9 has been changed indirectly"
    End If

End Sub

BenMorel Manish Pradhan 12 年前

尝试使您的函数,然后在其他单元格中使用该函数并输入到单元格d9的链接。当您更改单元格d9处的值时,将计算您的函数。

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Eric · 我有邮政编码替换问题Excel VBA

1 年前

Chasester · VBA使用嵌套的DIV抓取URL

1 年前

jkp · 特殊字符复选标记

1 年前

Iron Man · 代码插入和复制到错误的工作表

1 年前

NoFafo · 将文本框放入数组进行格式化

1 年前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

1 年前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

1 年前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

1 年前