VBA/엑사남_기초방93 [기초방] 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 100제 #53 [ 색상정렬 ] 색상 정렬하는 문제이다. 색상 관련한 문제는 많이 안낸거 같아서 앞으로 2 - 3 개 정도 재밌는 문제로 찾아가려 한다. 코드 진행은 1. 배열에 기본이 되는 색상코드들을 담고 2. 전체영역을 순환하면서 해당 색상이 배열의 몇번째에 위치값을 찾아서 해당 셀을 출력해주면 된다. 3. 이때 배경색과 글자색을 같게 하여 마치 배경만 나온거 처럼 연출한다. 4. 마지막으로 전체영역을 재 순환하며 글자색을 검은색으로 하여 코드를 마무리한다. 더보기 Option Explicit Sub 컬러_정렬() Dim sample() Dim rngAll As Range: Set rngAll = [b4:b10] Dim rngA As Range Dim n&, sm, r& [k4:n10].Interior.Color = xlNone .. 2023. 7. 3. [기초방] VBA 100제 #52 [ 민원인 서식변경 ] 민원인 서식을 변경하는 문제이다. 줄바꿈인 chr(10) 과 Replace를 이해하느냐의 문제이다. 더보기 Option Explicit Sub 서식명변경하기() Dim rngAll As Range: Set rngAll = [c8:c13] With rngAll .Copy [g8] .Offset(, 4).Replace " (", Chr(10) & "(", xlPart '= 기초방 52 .Offset(, 4).Copy [k8] .Offset(, 4).Offset(, 4).Replace Chr(10) & "(", " (", xlPart '= 기초방 52-1 .EntireRow.AutoFit '= 자동 열높이 End With End Sub Sub 모두지우기() Dim rngAll As Range: Set rngA.. 2023. 7. 3. [기초방] VBA 100제 #51 [ 주소 나누기 ] 주소 나누기이다. 주소는 도시와 지역구로 되어있는데 주소중 대분류로 도시와 지역구로만 시트이름으로 분류하여 통합시트에서 분류하는 문제이다. 여기서 함정은 주소의 띄어쓰기가 한칸이상인 주소가 여러 있다는 것이다. 결국 이문제를 풀기위해선 worksheetFunction.Trim과 VBA Trim의 차이를 아냐 모르냐의 문제이다. transStr = WorksheetFunction.Trim(rngA) '= 다중 공백을 하나로 vTemp = Split(transStr, " ") '= 공백으로 Split juso = vTemp(0) & "_" & vTemp(1) '= 시트이름을 도시_지역구로 또한 이문제는 현재 시트의 이름이 기존에 있는지 없는지를 파악해야 하는데, 이를 위해선 토탈주소라는 것에 새롭게 만들어진.. 2023. 7. 2. 이전 1 ··· 9 10 11 12 13 14 15 ··· 24 다음
