키로 값 수정

Question

Dim dFeat As Collection 
Set dFeat = New Collection 

Dim cObj As Collection 
Set cObj = New Collection 
cObj.Add 3, "PASSED" 
cObj.Add 4, "TOTAL" 
dFeat.Add cObj, "M1" 

Set cObj = New Collection 
cObj.Add 5, "PASSED" 
cObj.Add 6, "TOTAL" 
dFeat.Add cObj, "M2" 

dFeat("M1")("TOTAL") = 88 ' Error here 
Debug.Print dFeat("M1")("TOTAL") 

키를 사용하여 내부 모음 값을 수정하려면 어떻게해야합니까?

Answer 1

Dictionary을 사용하는 것에 대한 Alex K.의 조언은 정확하지만, 여기에있는 문제는 그의 답변보다 더 일반적이라고 생각합니다. Collection 키 (또는 해당 위치에 대한 색인 위치)는 쓰기가 아닌 읽기에만 유용합니다. 그래서이 줄

:

dFeat("M1")("TOTAL") = 88 ' Error here 

dFeat("M1") 괜찮습니다. 키 "M1"을 사용하여 추가 한 Collection을 반환합니다. 의 요소에 컬렉션을 직접 할당하려고하기 때문에 오류가 발생합니다. 일반적으로 c이 Collection 인 경우 c("TOTAL") (또는 c(2))은 좌변 일 수 없습니다.

Alek K.가 말한 것처럼이 문제를 해결하는 가장 좋은 방법은 내부 "컬렉션"또는 내부 및 외부 모두에 Dictionary을 사용하는 것입니다. 보일 것이다 내부에 대한 하나를 사용하는 방법은 다음과 같습니다

Dim d As Dictionary 
Set d = New Dictionary 

d("PASSED") = 3 
d("TOTAL") = 4 

dFeat.Add d, "M1" 

, 행 : dFeat("M1")("TOTAL")이 유효한 좌변 때문에

dFeat("M1")("TOTAL") = 88 

가 작동합니다. 더 간결

Dim c As Collection 
Set c = dFeat("M1") 

Call c.Remove("TOTAL") 
Call c.Add(88, "TOTAL") 

나 : 어떤 이유로 당신이 또는 MS 스크립팅 런타임을 포함하지 않을 수없는 경우

, 당신은 같은과 실패 라인을 교체해야합니다

Call dFeat("M1").Remove("TOTAL") 
Call dFeat("M1").Add(88, "TOTAL") 

그런 다음 에게 dFeat("M1")("TOTAL")의 값을 읽을 수 있습니다,하지만 당신은 여전히 ​​여기에 할당 할 수 없습니다.

Answer 2

컬렉션의 값 형식을 업데이트 할 수 없습니다.

Dim c as new Collection 
c.add 42, "wth" 
c("wth") = 88 //will error also 

은 Microsoft 스크립팅 런타임에 대한 참조를 추가 작동한다 Dictionary &와 Collection를 교체합니다.