我怎样才能加速我的基于事件的过程？

-2

我对我的事件过程有很大的问题，它需要几年运行时，我想一次改变更多的细胞。它是如何工作的，当用户更改单元格中的数据时，Worksheet_Change会添加注释，但首先Worksheet_SelectionChange会更新用户的信息（我在不同的工作表中有计算ACT日期12个月的sumifs，然后通过活动工作表上的camer工具显示）。我怎样才能加速我的基于事件的过程？

在知道这个问题是不断循环的事件cuz ... duno该怎么办？

Thx求助！

Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 

Dim cell As Range 

ActiveSheet.Unprotect Password:="xyz" 

For Each cell In Target 

     If cell.Row > 21 And cell.Column > 9 Then 

      If cell.Comment Is Nothing Then 
       cell.AddComment Now & " - " & cell.Value & " - " & Application.UserName 
      Else 
       If Val(Len(cell.Comment.Text)) > 255 Then 
        cell.Comment.Delete 
        cell.AddComment 
        cell.Comment.Text _ 
        Now & " - " & cell.Value & " - " & Application.UserName, 1 _ 
        , False 
       Else 
        cell.Comment.Text _ 
        vbNewLine & Now & " - " & cell.Value & " - " & Application.UserName, Len(cell.Comment.Text) + 1 _ 
        , False 
       End If 
      End If 

     cell.Comment.Shape.TextFrame.AutoSize = True 

     End If 

Next cell 

ActiveSheet.Protect Password:="11opkLnm890", AllowFiltering:=True 

End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim RowNumber As Long, i As Long 
Dim MaxRowNumber As Long 

MaxRowNumber = Range("A9").Value 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
Application.EnableEvents = False 

RowNumber = Target.Row 

Set sh_AUXILIARY_PT = ThisWorkbook.Worksheets("AUXILIARY_PT") 

    If Target.Row > 21 And Target.Row < MaxRowNumber Then 

     sh_AUXILIARY_PT.Range("AA4").Value = Cells(RowNumber, 1).Value 
     sh_AUXILIARY_PT.Range("AB4").Value = Cells(RowNumber, 2).Value 
     sh_AUXILIARY_PT.Range("AC4").Value = Cells(RowNumber, 3).Value 
     sh_AUXILIARY_PT.Range("AD4").Value = Cells(RowNumber, 4).Value 

     For i = 14 To 25 

     sh_AUXILIARY_PT.Cells(8, i).Value = Cells(RowNumber, i - 4).Value 

     Next i 

    End If 

Application.EnableEvents = True 
Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 
End Sub

来源

2014-09-24 Krystian_B

好吧，您可以考虑将您的收集范围分配给一个数组，然后循环，因为数组速度更快。

来源

2014-09-24 11:13:59 george

我怎样才能加速我的基于事件的过程？

回答

相关问题