엑사남180 [기초방] VBA 100제 #60 [ 불일치 / 일치 같은 영역 색칠하기 ] 시리즈 마지막인거 같다. 같은 이름 사이에 [일치 / 불일치] 가 있을 때 일치이든 불일치이든 갯수가 이름의 갯수와 같은 영역에 노란색 음영을 칠하는 문제이다. 이 문제를 풀기 위해서는 1. 성명의 고유값들을 가져와야한다. 2. 고유값 이름들을 순환하면서 같은 이름들의 영역을 잡아야 한다. 3. 같은 이름들의 areas를 순환하면서 일치와 불일치의 카운트를 하여야한다. 4. 카운트 숫자와 이름 영역의 숫자와 비교하여 같으면 음영을 칠해야 한다. 5. 이를 마지막 열까지 순환하여야 한다. 1.성명의 고유값 구하기 Set rngX = [l5:l25] '= 이름영역 Vtemp = WorksheetFunction.Sort(WorksheetFunction.Unique(rngX)) 2. 고유값 이름순환 + 같은 이.. 2023. 9. 15. [한글자동화] 아래아 한글 표 제어하기 기존 우리는 표와 표사이를 옮겨갈때 화살표로 움직이곤 했다. 이게 표와 표 사이가 몇개 안될때는 문제없지만 3페이지만 넘어가도 이렇게 하드 코딩해서는 완전 자동화를 영위할 수 없다.. 표와 표를 넘나들기 위해서는 우선 표 객체만 찾을 수 있는 방법이 있는지 확인하여야 한다. 한글에서는 alt + g 를 누르면 찾아가기가 나오는데 거기서 조판 부호를 선택 후 표를 찾아서 [가기]를 누르면 캐럿(커서)가 있는 위치에서 가장 가까운 표를 찾을 수 있지만 표 안에는 들어가지 않는다. 그럼 우리는 문서의 가장 처음으로 커서를 위치한 후 표 찾는 스크립트를 반복하면 되지만, 표안에는 들어가지 않으니 표에 들어가서 어떤 행위를 하는 코드를 추가해주면 될것이다. Do hwp.FindTable fbln '= 표 찾기 I.. 2023. 9. 7. [한글자동화] 엑셀 문단을 한글표에 정리하기 오늘 해볼것은 엑셀의 문장들을 한글에서 문단 제목과 문장을 일정한 표에 담는 자동화를 해보려고 한다. 아직은 한글자동화라 보기보다는 엑셀 값들을 한글에 찍는 수준인데, 본인도 이번 기회에 한글매크로에 대해서 정리하고 있으니, 한글의 미주나 각주 또는 누름틀을 이용한 한글 고유의 매크로를 여러 방법으로 구현하여 이글을 읽는, 또는 어떤 필요에 의해서 본인의 글을 찾아보는 이들에게 더 큰 만족과 기쁨을 주려고 한다. 자 이런 글이 있을 때 우리 생각해야 한다. 1. 전체 영역을 어떻게 잡을 건지 2. 전체 영역을 순환하면서 어떻게 엑셀의 내용을 한글로 가져올 것인지 3. 예외 처리에 대해서 어떻게 처리할 것인지 1번 전체 영역을 본인은 Set rngAll = Range([b1], Cells(rows.Coun.. 2023. 9. 7. [한글자동화] 텍스트 색상변경 텍스트 색상변경에 관해서 적어보려한다. 이것을 진행하려했던 이유는 글자의 색상을 확인 후 관련된 텍스트의 색상을 변경하려 했지만, 글자 하나하나의 색상을 찾아내는 건 알아내지 못해서 일괄로 처리하는 것으로 대신하려 한다. 이와같이 RGB 컬러를 넣으면 그에 해당되는 모든 텍스트의 컬러를 파란색으로 변경하는 코드이다. 변경을 원하는 색상을 아래의 함수의 RGB값에 변경하여 주면 된다. 실무에 많이 이용하기 바란다. 2023. 9. 4. 이전 1 ··· 16 17 18 19 20 21 22 ··· 45 다음
