vba : 범위를 배열에 할당 한 다음 해당 범위를 곱하십시오.

Question

Private Sub CommandButton1_Click() 
    Dim ary(2, 2) As Variant 

    For p = 0 To 2 
     For q = 0 To 2 
      ary(p, q).Value = Range("a1:c3") 
     Next q 
    Next p 

    For f = 0 To 2 
     For t = 0 To 2 
      Cells(f + 1, t + 5).Value = ary(f, t) * 2 
     Next t 
    Next f 
End Sub 

배열에 범위를 할당하려면 위의 프로그램을 작성하고 있습니다. object required라는 오류가 표시됩니다. 나는 문

진 (P, Q) .Value = 범위 선택하는 것입니다 디버깅하려고 할 때 ("A1 : C3")를

어떤 하나 개의 도움이 할 수있는 ???

Answer 1

Private Sub CommandButton1_Click() 
    Dim ary As Variant 
    Dim wb As Workbook 
    Dim ws As Worksheet 

    Set wb = ActiveWorkbook 
    Set ws = wb.Sheets(1) 

    ary = ws.Range("a1:c3") 

    For f = 1 To UBound(ary) 
     For t = 1 To UBound(ary) 
      Cells(f + 1, t + 5).Value = ary(f, t) * 2 
     Next t 
    Next f 
End Sub