Collection5 [기초방] VBA 100제 #54 [ 색상그룹정렬 ] 색상그룹정렬하는 코드이다. 사용한 코드는 오랜만에 컬렉션과 For each조합으로 풀어보았다. 더보기 Sub 기초방54_색상정렬하기() Dim Col As New Collection Dim Mycol Dim rngAll As Range: Set rngAll = Range([c4], [d4].End(4)) Dim rngA As Range, rngS As Range Dim rngX As Range: Set rngX = [h4] Dim Cnt& For Each rngA In rngAll.Columns(2).Cells '= 색상 추출 On Error Resume Next '= 고유한 색상만 추출 Col.Add rngA.Interior.Color, CStr(rngA.Interior.Color) On Error G.. 2023. 7. 4. [VBA] 누락수 구하기(ArrayList, Dictionary, Collection) 전에 VBA 배울때 배열과 딕셔너리에서 많이 울고 웃고 했던 기억이 있다. 지금은 주무기로 사용하고 있지만, 가끔 다른 분들의 딕셔너리 코드들을 보면 이렇게 사용도 가능하구나 하고 놀랄때가 있다. 딕셔너리를 보통 String값을 제어하는데 많이 사용하는데 딕셔너리는 그보다 더 큰 엄마의 가슴을 가지고 있다. 오늘 해볼것은 VBA 엑사남 일반방에서 잠깐 내본 문제를 응용하여 만들어보았다. 어레이 리스트를 사용한건 배열에 담아서 버블정렬을 통해서 정렬을 하여도 된다. 버블 정렬을 통한 방법은 지난 시간에 다뤄본적이 있으니 한번 알아보시길 바란다 https://1stminokingdom.tistory.com/84?category=964848 [VBA] 배열을 정렬해라(feat. 버블정렬) https://1st.. 2022. 11. 26. [Tip] 고유값으로 로또를 완성해라 총 4가지로 고유값을 구하는 방법을 적도록 하겠다. 엑셀의 중복값 제거도 좋은 툴중에 하나이다. 더보기 ㅁㄴㅇㄴㅁㄹㄴㅇㄹ [행단위 고유값]은 총 4 가지 방법으로 구한 중복되지 않은 6개의 숫자를 행단위로 한줄씩 나열한다. 전체로 봤을 경우에는 중복값이 발생할 수 있다. [전체행 고유값]은 총 4가지 방법을 딕셔너리로 Exists를 통해 전체적으로 고유값을 구한다. 1. 딕셔너리 2. 어레이리스트 3. 컬렉션 4. 배열 2022. 5. 27. [VBA] 영어 단어시험 만들기(Feat. Collection & Application.Caller) 코로나 19로 벌써 2년이 된 지금...그 사이에 소율이도 2학년이 되어 학원과 쪽지시험에 빠져살고 있다. 소율이 유튜브도 언능 올려야 하는데 근 1년 이상 소식을 안올리고 있어..딸래미 눈치가 보이는 중이다. https://www.youtube.com/channel/UCL5-JK_rAZcgrBPRYAttKtw 소율이랑 놀자 Tv[Let's play with Soy] 소율이의 일상을 기록하는 공간입니다. 아이의 오감이 느끼고 말하는 모습을 꾸밈과 거짓없이 그려보려 합니다. www.youtube.com 소율아 아빠가 미안하다...곧 올려줄께...ㅋㅋㅋ 딸래미 영어 공부를 봐줘야 하는데..매번 시험보기도 힘들고 해서... 쪽지시험 만드는것을 하나 만들어 보았다...시간 내서 좀더 디테일하게 만들어봐야겠다. .. 2021. 11. 15. 이전 1 2 다음
