我正在尝试使用 VBA。
我有一份声明说:
Sub PM()
Set rn = ActiveWindow.VisibleRange.Cells(1, 1)
Application.ScreenUpdating = False
'If Not Intersect(Target, Range("C27")) Is Nothing Then
If Range("C27") = 3 Then
ActiveSheet.Shapes("Option Button 28").Select
Selection.Enabled = False
If Range("J57") < 455 Then
Range("J56") = False
Else
Range("J56") = True
End If
Else
ActiveSheet.Shapes("Option Button 28").Select
Selection.Enabled = True
End If
rn.Activate
Application.ScreenUpdating = True
End Sub
当我更改单元格 C27 时,传递给单元格 J56 的值可以完美工作。但是一旦选择了 C27 中的值,然后我更改单元格 J57,J56 就不会按应有的方式相应更改。我必须再次更改 C27 值以触发 J56 反映正确的值。
有人能指出我做错什么吗?
答案1
我在这里猜测,但我希望您仅从在 c27 上触发的事件调用此代码,因此如果您编辑 j57,则不会调用该函数/子函数。