Worksheet_Change設置目標範圍很慢

Question

我有一個excel宏，用於在基於另一個SO問題here的「Worksheet_Change」函數中的Excel中管理按鈕可見性。

問題是，雖然宏工作，它使更新Excel工作表相當滯後。我已成功地緩慢牽制，一條線路：

Set rUpdated = Range(Target.Dependents.Address) 

這將通過後面的腳本進行迭代更新爲變量的單元格區域。如果我用這一行調用一個腳本，我發現這是所有延遲的地方。這似乎是一條相當簡單的路線，但有沒有更好的方法來做到這一點？

披露：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rUpdated As Range 
    Dim shp As Shape 
    Dim rCell As Range 
    Set rUpdated = Range(Target.Dependents.Address) 
    If Not rUpdated Is Nothing Then 
     For Each rCell In rUpdated 
      If rCell.Column = 1 Then 
       'Look at each shape in the sheet and cross-reference with rCell. 
       For Each shp In Target.Parent.Shapes 
        If shp.TopLeftCell.Row = rCell.Row Then 
         shp.Visible = (rCell.Value <> "") 
         Exit For 'Exit the loop - the correct button has been found. 
        End If 
       Next shp 
      End If 
     Next rCell 
    End If 
End Sub 

Answer 1

我替換下面一行（和同伴線）配置：

On Error Resume Next 
ActiveSheet.Shapes("buttonRow" & Target.Row).Visible = (ActiveSheet.Cells(Target.Row, 1).Value <> "") 

然而，爲了得到這個工作，我首先需要重命名我的形狀。我使用這個功能來做到這一點：

Function renamebuttons() 
    For Each shp In ActiveSheet.Shapes 
     shp.name = "buttonRow" & shp.TopLeftCell.Row 
    Next shp 
End Function 

我運行該功能一次，並刪除它。一旦完成，我的形狀現在可以通過名稱來引用，並且不再導致在每個形狀和每個目標相關的循環中延遲。工作表中經歷的延遲現在是最小的。

Answer 2

所以，如果我理解正確的話，你想使一個按鈕可見，如果該行作爲細胞被改變。我唯一能想到的就是減慢速度，那就是檢查很多rCell或Shapes。我不知道你的文檔的結構是什麼。所以我的想法是：我不會每次都瀏覽所有的形狀，我會以一種模式命名它們，你可以用它們所在的行來標識它們，所以你使用名稱來解決它們（即Row2爲行2中的按鈕）。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rUpdated As Range 
    Dim shp As Shape 
    Dim rCell As Range 
    Dim obj As OLEObject 

    Set rUpdated = Range(Target.Dependents.Address) 
    If Not rUpdated Is Nothing Then 
     For Each rCell In rUpdated 
      If rCell.Column = 1 Then 
       On Error Resume Next 
       Set obj = ActiveSheet.OLEObjects("Row" & rCell.Row) 
       If Err.Number = 0 Then 
        obj.Visible = (rCell.Value <> "") 
       End If 
      End If 
     Next rCell 
    End If 
End Sub