| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 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
- 일일투자금액
- Face Detection
- 헬레나크로닌
- Git
- OpenCV
- 네인생우습지않다
- UPSERT
- Django
- 옹졸함
- 꼭읽어봐야할책
- delete
- ChatGPT
- 성선택
- 독후감
- MySQL
- 클라우드
- linux명령어
- php
- 나만의주식5법칙
- 서울로가자
- todolist
- 비밀번호변경
- 훌륭한모국어
- 중용
- 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..