| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 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 |
- MySQL
- Git
- 독후감
- db
- OpenCV
- 나만의주식5법칙
- todolist
- 훌륭한모국어
- 꼭읽어봐야할책
- 공작과개미
- 비밀번호변경
- 성선택
- UPSERT
- Face Detection
- delete
- 지방사람이보는서울사람
- 헬레나크로닌
- 테리베리추천도서
- ChatGPT
- 중용
- 서울로가자
- 네인생우습지않다
- php
- 옹졸함
- Django
- 일일투자금액
- linux명령어
- Python
- 다산의마지막습관
- git 업로드
- 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..