질문있어요10 [VBA] 대량 데이터에서 부분합구하기 부분합에 대한 고민이다. 23000건 정도의 데이터이니 이걸 우리가 아는 부분합으로 구한다면 셀 사이사이를 부분합이 들어가야 하기 때문에 분명히 에러가 발생할 것이다. 질문자의 고민도 그런 고민일것이다. 이러한 문제의 해법은 기존 시트에 Insert를 하기보단 부분합전까지 배열이나 셀에 담고 부분합을 구한 후 다시 리스트를 쌓고 다시 부분합을 구하는 방식으로 해야 엑셀에 무리가 가지 않는다. 부분합전까지 리스트의 갯수를 구하기 위해서는 1. 고유값을 찾아내야 한다. uni = Application.Unique(rngAll.Columns(14)) 이 코드는 전체 영역중 14번째 열의 모든값을 배열로 담아서 고유값을 구한 후 uni 배열에 담는 구문이다. * 유니크 함수는 버전별로 작동이 안될 수도 있으니 .. 2023. 10. 4. [VBA] 이벤트를 통한 업무일지 업데이트 이벤트는 자칫 잘못하면 서로가 꼬이기 때문에 Target의 영역과 제한을 컨트럴하지 못하면 이벤트가 꼬여서 최초에 원하던 모양을 구현하기가 힘들어진다. 같은방 크루인 라이언님의 고민을 풀어보는 글을 써보려한다. 질문 사항은 이렇다. 1. 각 상태에 따라 셀의 색상이 변경되어야 한다. 2. 주의 마지막은 셀의 상태를 선택시 다음주 월요일로 이월되어야 한다. 더보기 Private Sub Worksheet_Activate() Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim rngX As Range: Set rngX = [e7:e60] '=일반 상태라인 Dim rngY As Range: S.. 2023. 8. 31. [질문] 숫자와 문자가 섞여있는 데이터를 숫자 기준 정렬하기 기본적으로 숫자와 문자가 섞여있는 데이터는 숫자도 문자로 인식하여 정렬을 하게되면 이런식으로 참 재미없게 정렬이 된다. 이를 해결하기 위해서는 앞의 숫자를 분리하여 그 분리된 숫자를 기준으로 정렬을 하면 된다. 파일명을 보면 숫자와 문자사이에 스페이스가 하나 있는데 이걸 기준으로 Split를 하면 된다. Split는 배열 형태로 반환하기 때문에 배열로 받거나 아님 배열의 한 부분을 받으려면 index 번호를 넣어주면 된다. 더보기 Option Explicit Sub Haja_Pdf_Page_Count() Dim rngX As Range: Set rngX = [a2] Dim rngAll As Range Dim rngA As Range If rngX = "" Then Exit Sub '= 파일명의 처음이 없.. 2022. 8. 27. [질문] 폴더속 PDF 파일들의 총 페이지수 구하기 완초님의 질문이다. pdf 파일이 있는데 그 pdf들의 각각의 총페이지 수를 구하는 것을 물어보셨다. https://ko.extendoffice.com/documents/excel/5330-excel-vba-pdf-page-count.html Excel에서 PDF 파일의 페이지 번호를 계산하는 방법은 무엇입니까? Excel에서 PDF 파일의 페이지 번호를 계산하는 방법은 무엇입니까? 특정 폴더에 여러 개의 Pdf 파일이있는 경우 이제 이러한 모든 파일 이름을 워크 시트에 표시하고 각 파일의 페이지 번호를 가져 ko.extendoffice.com 여기에 있는 코드는 오류가 나는것을 확인했다. 완쵸님도 여기에서 난 오류에 대해서 문의를 하셨다.. 많은 사람들이 사용할 코드는 아니겠지만 누군가에게는 반드시 필.. 2022. 5. 26. 이전 1 2 3 다음
