일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | ||
6 | 7 | 8 | 9 | 10 | 11 | 12 |
13 | 14 | 15 | 16 | 17 | 18 | 19 |
20 | 21 | 22 | 23 | 24 | 25 | 26 |
27 | 28 | 29 | 30 |
- 서울로가자
- db
- 비밀번호변경
- Git
- 공작과개미
- 지방사람이보는서울사람
- 독후감
- 네인생우습지않다
- ChatGPT
- todolist
- php
- 꼭읽어봐야할책
- Python
- UPSERT
- delete
- 중용
- linux명령어
- 나만의주식5법칙
- 다산의마지막습관
- 훌륭한모국어
- Face Detection
- OpenCV
- 일일투자금액
- git 업로드
- 헬레나크로닌
- MySQL
- 성선택
- 클라우드
- Django
- 옹졸함
- Today
- Total
목록RPA/Excel&VBA (2)
Terry Very Good
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sh..
현재 작업 디렉토리 경로 찾기 및 피벗실행 방법 전체코드 Sub 피벗실행() ' ' 피벗실행 매크로 ' ' Dim ThisWorkbookPath As String ThisWorkbookPath = ThisWorkbook.Path MsgBox "Working-Directory = " & ThisWorkbookPath Sheets("채널별").Select Range("A3").Select ActiveSheet.PivotTables("피벗 테이블1").ChangePivotCache ActiveWorkbook.PivotCaches. _ Create(SourceType:=xlDatabase, SourceData:= _ ThisWorkbookPath & "\[■ 마케팅내실화_유선상품부적격 현황.xlsm]raw!R3..