하자7 [한글화작업] 엑셀을 아래아 한글로 변환하기 엑셀을 한글로 변환화는 의뢰 한번 맺은 의뢰자의 인연은 쭈~~욱 2024. 1. 3. [기초방] VBA 100제 #67 [ 테이블 요약하기 ] 앞으로 포스팅할 내용들은 365 함수와 연계하여 작성 하도록 하려고 한다. 중요한 이유는 VBA보다는 엑셀 함수를 사용하여 짧고 빠르게 해결할 수 있는 문제들이기 때문이다. 본인이 아무리 코드를 줄인다고 해도, 막강한 365 함수를 이겨낼 수 없다. 기초방 67번같은 경우, 각 상품의 날짜와 품목을 키로 하여 각각의 판매 합계와 갯수, 평균, 최대 최소값을 구하는 것인데. 일반적으로 이러한 문제를 접근하기 위해서는 앞서 공개한 크루들의 코드처럼 엑셀 함수로 푸는것이 정석이고 정답이라고 말하고 싶다. 코드 자체는 엑셀 함수 기반이라서 큰 어려움은 없을 것이다. 더보기 Option Explicit Sub 기초방67() Dim rngAll As Range: Set rngAll = [a5].CurrentRegi.. 2023. 10. 1. [한글자동화] 엑셀 문단을 한글표에 정리하기 오늘 해볼것은 엑셀의 문장들을 한글에서 문단 제목과 문장을 일정한 표에 담는 자동화를 해보려고 한다. 아직은 한글자동화라 보기보다는 엑셀 값들을 한글에 찍는 수준인데, 본인도 이번 기회에 한글매크로에 대해서 정리하고 있으니, 한글의 미주나 각주 또는 누름틀을 이용한 한글 고유의 매크로를 여러 방법으로 구현하여 이글을 읽는, 또는 어떤 필요에 의해서 본인의 글을 찾아보는 이들에게 더 큰 만족과 기쁨을 주려고 한다. 자 이런 글이 있을 때 우리 생각해야 한다. 1. 전체 영역을 어떻게 잡을 건지 2. 전체 영역을 순환하면서 어떻게 엑셀의 내용을 한글로 가져올 것인지 3. 예외 처리에 대해서 어떻게 처리할 것인지 1번 전체 영역을 본인은 Set rngAll = Range([b1], Cells(rows.Coun.. 2023. 9. 7. [기초방] 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. 이전 1 2 다음
