본문 바로가기

엑셀31

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줄 요약 : 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.