엑셀33 파일(Workbook)이 열려있는지 확인하는 법 출처 : 엑셀 바이블 486p Function IsFileOpen(파일 As String) As Boolean Dim 열린파일 As Workbook On Error Resume Next Set 열린파일 = Workbooks(Dir(파일)) IsFileOpen = (Err.Number = 0) End Function 파일이 열려있을 경우 : → Dir(파일)이 파일명을 뱉어냄 → 열린파일이라는 변수에 Workbooks 개체가 맞게 들어감→ 에러 발생안함→ Err.Number = 0이 됨→ IsFileOpen이 True가 됨 파일이 열려있지 않을경우(파일이 존재하지 않는 경우 등등):→ 열린파일이라는 변수에 Workbooks 개체가 안 들어감 [★밑에설명]→ 에러 .. 2024. 5. 15. 폴더 내에 있는 파일명들 불러오는 방법 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. 엑셀 그룹별 순위구하기 함수 엑셀 그룹별 순위 구하기 공식 :: 그룹 랭킹 계산 - 오빠두엑셀 (oppadu.com) 엑셀 그룹별 순위 구하기 공식 :: 그룹 랭킹 계산 - 오빠두엑셀 엑셀 그룹별 순위 구하기 공식 엑셀 그룹별 순위 구하기 목차 바로가기 함수 공식 =SUMPRODUCT(($그룹범위=그룹명)*($값범위>시작값))+1 인수 설명 엑셀 그룹별 순위 구하기 공식에 사용된 인수 인수 www.oppadu.com 2024. 4. 5. 엑셀 보이는 셀에만 복사하기, 보이는 셀에만 붙여넣기하기 엑셀 보이는 셀만 복사 붙여넣기 - 추가기능 - 오빠두엑셀 (oppadu.com) 엑셀 보이는 셀만 복사 붙여넣기 - 추가기능 - 오빠두엑셀 엑셀 보이는 셀만 복사 / 붙여넣기 추가기능 - DuTool 숨겨진 셀은 제외하고 보이는 셀만 복사하거나 보이는 셀에만 붙여넣기하는 엑셀 추가기능 www.oppadu.com 2024. 4. 5. 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 2 3 4 5 다음
