2

有没有办法以任何有意义的方式提高 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 确实确保用户在选择下一个单元格之前必须等待，但与我的想法不太一样。

任何提示都会有所帮助！

4

1 回答 1

1

对我来说闪电很快。您是否在工作簿中进行了许多其他计算？你用的是什么版本？

于 2009-04-21T21:39:11.787 回答