有没有办法以任何有意义的方式提高 Excel 中以下 VBA 代码的性能?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Me.Range("Group1"), Target) Is Nothing Then
With wksData
.Range("Group1Column").Value = Target.Column
.Range("Group1Row").Value = Target.Row
End With
End If
End Sub
我添加了查看 Group1Column 和 Group1Row 命名范围的条件格式。我不知道我的性能问题是否与 SelectionChange 的过度杀伤或条件格式有关,但我想摆脱明显的滞后。
条件格式是超级基本的(类似于 Column($D3) = Group1Column),它仅用于“吸引眼球”的目的,但它对整体解决方案很有帮助。
我尝试过的一些事情:.ScreenUpdating、.EnableEvents、.Calculations。.ScreenUpdating 确实确保用户在选择下一个单元格之前必须等待,但与我的想法不太一样。
任何提示都会有所帮助!