매개 변수가있는 하위 (항목이있는 사전 : 배열)

아래 코드의 문제점을 파악할 수 없습니다. Dictionary에 하나의 키 ( "SMTH")가 포함되어 있고이 키에는 하나의 항목 (세 개의 정수가있는 배열)이 포함되어 있습니다. 이제이 배열을 Sub 프로 시저로 보내고 계산하고 다시 반환하기를 원합니다.

Dim SMTH As String
Dim d
Dim Myarray
SMTH = "SMTH"
Myarray = Array(10, 20, 30)
Set d = CreateObject("Scripting.Dictionary")
d.Add SMTH, Myarray

Call countSub(Myarray)             'here is mistake I can't fix

Debug.Print Myarray(0), Myarray(1), Myarray(2)
End Sub

Sub countSub(Arr() As Variant)
For N = LBound(Arr) To UBound(Arr)
    Arr(N) = N * 10
Next N
End Sub

유형 불일치 오류 ...

나는 어떤 종류의 도움을 주셔서 감사합니다!

microsoft-excel

— 안드레
소스

Dim Myarray() As Variant첫 번째 하위의 선언에 추가하십시오 .

— Scott Craner 2016 년

오타였습니다. 죄송합니다. 여전히 실수가 있습니다

— Andre

그것은이어야 Dim Myarray()하지Dim Myarray

— 스콧 Craner에게

대단히 감사합니다! 귀하의 의견을 답변으로 표시하려면 어떻게해야합니까?

— 앙드레

불일치는 Myarray서브에 대한 호출과 Arr()서브 인수 목록에 있습니다. @ScottCraner가 작성한 것 외에도로 변경할 Arr()수 Arr있습니다. 그런 다음 중 하나와 함께 작동합니다 Myarray또는Myarray()

— 론 로젠 펠드