VBA Worksheet_change宏未检测到结构化参考表中的更改

问题描述：

我在使用结构化参考时触发Worksheet_Change宏时出现问题。我发誓我之前工作过，所以我认为这是一个语法问题。VBA Worksheet_change宏未检测到结构化参考表中的更改

当我使用“$ A $ 1”引用目标单元格时，引用它的工作正常。但是，当我使用结构化的参考来更改单元格时，它不起作用。其他结构化引用都正常工作。

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub 

    If Target.Address = "MonsterStats[Monster Name]" Then 
     Range("B25").Font.Bold = False 
     Range("B25").Font.Italic = False 
     Range("B25") = Range("MonsterStats[Ability1]") & Range("MonsterStats[Ability1 Text]") 
     Range("B25").Characters(1, Len(Range("MonsterStats[Ability1]"))).Font.Bold = True 
     Range("B25").Characters(1, Len(Range("MonsterStats[Ability1]"))).Font.Italic = True 
    End If 

    If Target.Address = "$P$3" Then 
     Range("B26").Font.Bold = False 
     Range("B26").Font.Italic = False 
     Range("B26") = Range("MonsterStats[Ability1]") & Range("MonsterStats[Ability1 Text]") 
     Range("B26").Characters(1, Len(Range("MonsterStats[Ability1]"))).Font.Bold = True 
     Range("B26").Characters(1, Len(Range("MonsterStats[Ability1]"))).Font.Italic = True 
    End If 

End Sub

你的代码的逻辑是'If ... ElseIf ... End If'，而不是'If ... End If，If ... End If' – Variatus

答

尝试If Target.Address(False, False) = "MonsterStats[Monster Name]" Then或 “MonsterStats [怪物名称]” 的值设置为绝对地址，比如$ A $ 1（而不是A1）。

这样做！非常感谢 – bigbucky

答

您可以用Intersect方法试试：

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Not Intersect(Me.Range("MonsterStats[Monster Name]"), Target) Is Nothing Then 
     ' do stuff 
    End If 

End Sub

VBA Worksheet_change宏未检测到结构化参考表中的更改

相关推荐