gpt4 book ai didi

VBA Worksheet_change 宏未检测结构化引用表中的更改

转载 作者:行者123 更新时间:2023-12-03 03:27:12 26 4
gpt4 key购买 nike

使用结构化引用时,我在触发 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 Target.Address(False, False) = "MonsterStats[Monster Name]"then 或将“MonsterStats[Monster Name]”的值设置为绝对地址,例如 $A$1 (而不是 A1)。

关于VBA Worksheet_change 宏未检测结构化引用表中的更改,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47107541/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com