낭만소방관

별거 없다. 달력을 순환하면서 같은 내용끼리 병합하는 매크로 빈셀마다 ‘ 가 붙어있고 셀색이 조건부서식으로 되어있는 것만 주의하면 됨 Sub rngMerge() Dim rnG As Range Dim rngData As Range Dim i As Byte '작업속도 향상 Application.ScreenUpdating = False '데이터 영역 설정 Set rngData = Range("A1").CurrentRegion With rngData Set rngData = .Offset(5, 1).Resize(.Rows.Count - 5, .Columns.Count - 1) End With For Each rnG In rngData With rnG ' '가 셀마다 있어서 '가 있는 부분과 없는 부분을 구분해서..

지식인에 올라온 질문. 거래처번호를 기준으로 셀병합을 하고 거래처별 부분합을 넣고 싶다는 글. 부분합을 입력하기 위한 셀삽입을 위해 표 밑에서 위로 올라가며 for 구문을 이용한 것 말고는 특별한 것이 없는 매크로 Option Explicit Sub Macro() Dim i As Integer, j As Integer Dim cntR As Integer, cntC As Integer Dim rngData As Range Dim sumGold As Long Dim k As Integer '처리속도 향상 With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With '기존자료 삭제..

시트1에는 데이터가 있고 시트2에는 거래명세서 서식이 있다. 거래명세서에서 거래처셀에 거래처를 입력하면 시트1의 거래처와 일치하는 데이터를 불러온다. 1. 병합셀을 풀어 작업이 용이하도록 한다. 2. 거래처 값을 기준으로 자동필터를 실행하여 해당값을 불러온다. 3. 거래처 데이터를 불러온 후 다시 셀을 병합한다. 4. 거래처와 일치하는 값이 없을 땐 on error on resume 과 err.number 구문을 이용하여 에러처리를 하였다. 5. 코드 작성 후 Private Sub Worksheet_Change(ByVal Target As Range) 를 이용하여 코드를 연결해주었다. Sub Macro() Dim 표 As Range Dim 시트1 As Worksheet, 시트2 As Worksheet D..