Excel VBA 重新计算选择

Question

我有一些 Excel 电子表格，它们对数据库的影响非常大(对总账表进行了 100 多次查询......哎呀!)。仅刷新我所在的工作表 (SHIFT+F9) 在某些电子表格中很有帮助，但我想要一种仅刷新所选单元格的方法。我想出了以下代码，并将其放置在 ThisWorkbook 对象中:

Dim currentSelection As String

Private Sub Workbook_Open()
    Application.OnKey "+^{F9}", "ThisWorkbook.RecalculateSelection"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    currentSelection = Target.Address
End Sub

Private Sub RecalculateSelection()
    Range(currentSelection).Calculate
End Sub

如果可能的话，我想让它更加便携，例如将其存储在 XLA 文件中并将其作为 Excel 插件加载。我使用的方法可以吗？有没有更好的方法来实现这一目标？

Answer 1

您应该能够使用以下内容:

Public Sub RecalculateSelection()
    Dim rng As Range
    Set rng = Application.Selection
    rng.Calculate
End Sub

您应该在“Set rng”行周围放置一些错误处理，因为用户可能没有选择范围(例如，他们可能选择了图表)。

通过使用应用程序对象，您不需要捕获 Workbook_SheetSelectionChange 事件。