색상 평균1 [기초방] VBA 100제 #55 [ 색상그룹평균 ] 색상그룹의 평균을 구하는 구문이다. 이런 문제는 딕셔너리로 하면 더 빠르고 코드도 간단하겠지만 기초방이라는것을 감안하여 임시배열을 통해서 풀어보았다. 더보기 Option Explicit Sub 색상평균구하기() Dim rngAll As Range: Set rngAll = Range([h5], [h5].End(4)) Dim rngA As Range Dim color$, r&, n& Dim vtemp ReDim vtemp(rngAll.Cells.Count, 1) '= 임시배열 크기 With [m4].CurrentRegion.Offset(1) '= 초기화 .Interior.color = xlNone .ClearContents End With For Each rngA In rngAll If InStr(color.. 2023. 7. 5. 이전 1 다음