多 cell.value 输入数组并调整大小

Question

我目前在代码中使用这个结构：

With Worksheets("Vendredi jour")
.Unprotect
.Cells(15, 43).Resize(1, 6).Value = Array(B, C, D, E, F, G) ' Mets les minutes dans le tableau de compilations
.Protect
End With

因为它是上帝赐予我的礼物，我不明白它是如何工作的，这是有问题的，因为我想把它应用到这个上:

  With Worksheets("Vendredi jour")
    .Unprotect
    
    .Cells(9, 41).Value = MyArray(0, 0) ' (x,0) = Employé
    .Cells(10, 41).Value = MyArray(1, 0)
    .Cells(11, 41).Value = MyArray(2, 0)
    .Cells(12, 41).Value = MyArray(3, 0)
    .Cells(13, 41).Value = MyArray(4, 0)

    .Cells(9, 44).Value = MyArray(0, 1) ' (x,1) = Passes
    .Cells(10, 44).Value = MyArray(1, 1)
    .Cells(11, 44).Value = MyArray(2, 1)
    .Cells(12, 44).Value = MyArray(3, 1)
    .Cells(13, 44).Value = MyArray(4, 1)

    .Cells(9, 46).Value = MyArray(0, 2) ' (x,2) = Pertes
    .Cells(10, 46).Value = MyArray(1, 2)
    .Cells(11, 46).Value = MyArray(2, 2)
    .Cells(12, 46).Value = MyArray(3, 2)
    .Cells(13, 46).Value = MyArray(4, 2)
    
    .Protect
    End With

有文档解释吗？

Answer 1

With Worksheets("Vendredi jour")
    .Unprotect
    .Cells(15, 43).Resize(1, 6).Value = Array(B, C, D, E, F, G) 
    .Protect
End With

在功能上与

相同

Worksheets("Vendredi jour").Unprotect
Worksheets("Vendredi jour").Cells(15, 43).Resize(1, 6).Value = Array(B, C, D, E, F, G) 
Worksheets("Vendredi jour").Protect

使用 With 的版本更易于阅读并且有一些轻微性能优势。

如果需要更多详细信息，请参阅

多 cell.value 输入数组并调整大小

Multi cell.value input with array and resize

arrays

excel

vba

resize