在VBA + Excel中的数组

我已经写了一个macros，它应该读取每个工作表（行和列）中的值基于给定的值locking单元格或保持解锁状态。 代码编写的方式现在需要永远计算。 我被build议使用数组完成。 但是arrays也不能正常工作

我的Excel文件有15张。 我的代码如下。

Private Sub Workbook_Open() Dim sh As Object Dim sheetnames As String Dim i As Integer Dim col As Range Dim rng As Variant: Set rng = Application.Range("I16:BI300") 'Value Lock & Unlock is in Column Range I16 to BI16 and Row Range B16 to B300 Dim rngCell As Variant Application.ScreenUpdating = False For Each sh In Sheets 'First Each If sh.Name <> "Configuration" Then 'Configuration If sheetnames = sh.Name Worksheets(sheetnames).Activate ActiveSheet.Unprotect Password:="sos" For Each rngCell In Range("I22:BI300") If (Cells(1, rngCell.Column) = "Lock" And Cells(rngCell.Row, 1) = "Lock") Or (Cells(1, rngCell.Column) = "UnLock" And Cells(rngCell.Row, 1) = "Lock") Or (Cells(1, rngCell.Column) = "Lock" And Cells(rngCell.Row, 1) = "Unlock") Then rngCell.Locked = True rngCell.Font.Color = -16776961 Else rngCell.Locked = False rngCell.Font.ColorIndex = xlAutomatic End If Next rngCell ActiveSheet.Protect Password:="sos" End If 'End of Configuration If Next sh 'End of First Each Sheets(1).Select End Sub 

根据“列”和“行”中的值的组合，结果应该生成值。

 Column Row Value Lock Lock Lock Unlock Lock Lock Lock Unlock Lock Unlock Unlock Unlock 

Answer 1

我不确定数组是如何加快速度的，因为locking/解锁单元会导致主要的速度问题（尽pipe数组可以提高读取时间）。 无论如何，我build议将您希望locking/解锁的值设置为一个范围，然后一次性完成所有操作，而不是单独执行，因为这会影响您的主要性能。

 Private Sub Workbook_Open() Dim sh As Object Dim sheetnames As String Dim i As Integer Dim col As Range, LockRng As Range, UnLockRng As Range Dim rng As Variant: Set rng = Application.Range("I16:BI300") 'Value Lock & Unlock is in Column Range I16 to BI16 and Row Range B16 to B300 Dim rngCell As Variant Application.ScreenUpdating = False For Each sh In Sheets 'First Each ' Reset Ranges for each sheet Set LockRng = Nothing Set UnLockRng = Nothing If sh.Name <> "Configuration" Then 'Configuration If sheetnames = sh.Name Worksheets(sheetnames).Activate ActiveSheet.Unprotect Password:="sos" For Each rngCell In Range("I22:BI300") If (Cells(1, rngCell.Column) = "Lock" And Cells(rngCell.Row, 1) = "Lock") _ Or (Cells(1, rngCell.Column) = "UnLock" And Cells(rngCell.Row, 1) = "Lock") _ Or (Cells(1, rngCell.Column) = "Lock" And Cells(rngCell.Row, 1) = "Unlock") Then ' Create LockRng If LockRng Is Nothing Then Set LockRng = rngCell Else Set LockRng = Union(LockRng, rngCell) End If Else ' Create UnLockRng If UnLockRng Is Nothing Then Set UnLockRng = rngCell Else Set UnLockRng = Union(UnLockRng, rngCell) End If End If Next rngCell ActiveSheet.Protect Password:="sos" End If 'End of Configuration If ' Lock all cells in LockRng If Not LockRng Is Nothing Then LockRng.Locked = True LockRng.Font.Color = -16776961 End If ' Unlock all cells in UnLockRng If Not UnLockRng Is Nothing Then UnLockRng.Locked = False UnLockRng.Font.ColorIndex = xlAutomatic End If Next sh 'End of First Each Sheets(1).Select End Sub