엑셀/엑셀 VBA28 폴더 내에 있는 파일명들 불러오는 방법 https://separang.tistory.com/65 [엑셀 VBA] Dir을 사용하여, 폴더 내 파일명 불러오기.윤 대리다. 간지 나는 메서드가 있어서 공유한다. 그동안 그냥 파일 열 때 [GetOpenFileName] 만 주구장창 썼는데 [Dir]을 통해 좀 더 우아한 매크로를 만들 수 있을 거 같아서 간단히 소개하고자 한다.separang.tistory.com Sub test() Dim File_Name As String Dim Folder As String Folder = ThisWorkbook.Path File_Name = Dir(Folder & "\" & "*.xls*") Do Cells(Rows.Count, 1).End(3)(2) = File_Name File_Nam.. 2024. 5. 15. visual studio로 vba 편집하기(vbe) Edit your Excel VBA with VS Code (with auto-sync) (youtube.com) 2024. 5. 7. VBA 질문 : 필터걸고 N번째행까지만 선택하려면 어떻게 해야할지 필터를 건다음에 예를 들어 3번쨰행까지만 선택한다고 하면 어떻게하면될까? 레코딩할수도 없고 https://www.officetutor.co.kr/board/Dtype/bfrmvw.asp?f_tn=Dqa_excel_n2&f_bno=48272&page=14&fchk=brd_title&fval=%C0%DA%B5%BF%C7%CA%C5%CD 오피스튜터 - [VBA문의] 자동필터후 필터링된 첫번째 행번호? 오피스튜터 - [VBA문의] 자동필터후 필터링된 첫번째 행번호? www.officetutor.co.kr 여기에 보니까 find를 이용해서 첫번째행을 구하는법은 나오는데, 특정 값을 필터링하는게 아니라 어떤 값의 범위를 필터링하는거면 find를 쓸수도 없는데 어떡할지? 그냥 통째로 복사하고 새 시트에 붙여넣기한다음.. 2024. 4. 20. VBE 설정 (폰트, 바탕화면) 검은색 바탕에 글자쓰기 2024. 4. 2. 매크로 : Find함수의 매개변수 after와 FindNext함수 차이 Find의 매개변수 after와 FindNext함수 둘 다 각각 어떻게 쓰는지도 잘 모르겠고 차이점도 모르겠는데 책에도 자세히 안적혀있고 구글에는 치면 사골처럼 자주 나오는 FineNext 응용코드들만 나와서 답답했다. 그냥 1-2줄짜리 어떻게 쓰는지 원형을 보고싶었는데 설명해주는 사람이 없어서 직접 하나하나씩 해봤다. 정말 단순한데 몇시간걸림... Find의 Output은 Range다 오랜만에 VBA할때마다 까먹음 Sub Find의_매개변수_after() Dim c As Range Set c = Cells.Find(what:="A-1") c.Font.Size = 16 Set c = Sheets(3).Cells.Find(what:="A-1", after:=c) 'Set c = Sheets(3).Cells.. 2024. 3. 28. 매크로 : 자동필터에서 항목 전부 체크하기 1줄 요약 : ActiveSheet.Range("A1").AutoFilter Field:=1 자동필터에서 특정 열에 모든 값들을 체크하고 내가 원하는 값들만 해제하는 코드가 필요했다. 이거는 실무에서 쓸 일이 많을 것같고 예전에 쓴 적도 있었는데, 방법이 그냥 순환문을 이용해서 항목을 전부 다 체크하는거였다. 100개가 넘는 경우에는 시간이 좀 걸렸다. 몇 분까지는 아니지만 몇 초 소요됐음. 뭐 좋은 방법없나하고 인터넷에 열심히 쳤는데도 답이없었는데 stackoverflow에 있었다 심지어 코드가 진짜 단순하고 짧아서 좀 허망했다 https://stackoverflow.com/questions/32081192/excel-vba-filter-select-all Excel VBA - Filter "Selec.. 2024. 3. 28. 매크로 : 피벗테이블 필터에서 원하는것만 안나오게 하기(체크풀기) For s = 1 To 1 '★시트 5개까지만 작동 With Sheets(s).PivotTables("피벗 테이블3").PivotFields("호차2") Application.EnableEvents = False Application.Calculation = xlCalculationManual i = .PivotItems.Count For n = 1 To i .PivotItems(n).Visible = True Next .PivotItems("(지)경산").Visible = False .PivotItems("(지)부산").Visible = False .PivotItems("(지)하남").Visible = False Application.Calculation = xlCalculationAutomatic A.. 2024. 3. 21. 달성률 계산하기 (목표 or 실적이 음수일때) + 감소목표달성률 https://blog.naver.com/villamoa003/220990943504 엑셀 달성률 계산하기 (음수 계산) 즐거운 엑셀입니다. 저는 엑셀이 좋습니다. 확실한 계산이 좋고 상황에 따라 여러 가지로 만들 수 있어서 ... blog.naver.com https://stop-hun.tistory.com/297 감소 목표달성률(하향지향 목표) 계산하는 법 얼마 전 업무를 하다가 목표달성률을 구해야하는 내용이 있었다. 수학을 어느 정도 좋아했던 인문계 학생이었던 나는 큰 어려움 없이 구할 수 있었다. 그러나 일반적인 경우에 한해서만 계산이 stop-hun.tistory.com 2022. 11. 8. 이전 1 2 3 4 다음
