티스토리

행복공작소

검색하기

블로그 홈

행복공작소

raymond.tistory.com/m

레이먼 님의 블로그입니다.

구독자: 12

방명록 방문하기

주요 글 목록

[VBA] Find - Dictionary,Collection대용 [엑셀 실무][range.find를 이용한](여러 업체가 있는 )업체명부에서 업체별로 (열 단위로)근무자 뽑아내기 위 자료를 아래 모양을 바꾸기 Sub get_com_man() Dim rngX As Range Dim shtX As Worksheet Dim shtY As Worksheet Set shtX = Worksheets("업체명부") Set shtY = Worksheets("근무자") Set rngX = shtX.Range("a1").CurrentRegion Dim r As Long Dim row As Range Dim scode As String Dim rngF As Range 'Find는 값을 찾으나 Range 의 형식을 갖는다 shtY.Range("a2:y10000").Clear For r =.. 공감수 0 댓글수 0 2024. 1. 23.
[VBA] Dictionary에 대한 이해4 - Dictionary & Collection2 [VBA] Dictionary에 대한 이해4 - Dictionary & Collection2Dictionary의 Item으로서의 Collection 사용 Dictionary의 Item으로 올 수 있는 것들은 String,Number,Sheet,Workbook,Dictionary,Collection,True,False,.. 등이 있다.Dictionary의 Item으로 Collection를 쓸 수 있다는 것이다.Dictionary를 이용해 항목별로 시트 나누기 Sub groupByEmployee()Dim sT: sT = VBA.Timer Dim oDic As Scripting.DictionarySet oDic = New Scripting.Dictionary Dim rngX As Range: Set.. 공감수 0 댓글수 0 2024. 1. 17.
[VBA] Dictionary에 대한 이해3 - Dictionary & Collection1 Dictionary의 Item으로서의 Collection 사용 Dictionary의 Item으로 올 수 있는 것들은 String,Number,Sheet,Workbook,Dictionary,Collection,True,False,.. 등이 있다. Dictionary의 Item으로 Collection를 쓸 수 있다는 것이다. Sub Dic_Col240117() Dim oDic As New Scripting.Dictionary Dim rngX As Range Dim vData As Variant Dim sKey As String Dim r As Long Dim Col As New Collection Dim vMoney As String, vSubject As String Set rngX = Range("a2".. 공감수 0 댓글수 0 2024. 1. 17.
[VBA] Dictionary에 대한 이해2 - Double Dictionary Dictionary의 Item으로 올 수 있는 것들은 String,Number,Sheet,Workbook,Dictionary,Collection,True,False,.. 등이 있다. 즉 눈에 띄는 것이 Dictionary이다. Dictionary의 Item으로 다른 Dictionary를 쓸 수 있다는 것이다. Sub Double_Dictionary240116() Dim oDic As New Scripting.Dictionary Dim rngO As Range Dim vData As Variant Dim sKey As String, r As Long Set rngO = Range("a2").CurrentRegion vData = rngO.Offset(1).Resize(rngO.Rows.Count - 1)... 공감수 0 댓글수 0 2024. 1. 16.
[VBA] Dictionary에 대한 이해1 Dictionary에 대한 이해 - Key,Item - Item으로는 String,Number,Sheet,Workbook,Dictionary,Collection,True,False,..가 될 수 있다. 개념도2 Dictionary구성원 - Add : 사전에 새로운 키와 항목을 추가 Add(key,Item) - CopareMode - Count : 사전의 항목수를 가져옴 - Exists : 지정한 키가 사전에 있는 확인함 - Item : 지정한 키에 대해 항목을 설정하거나 가져옴 Item(Key) - Items : 사전의 모든 항목을 포함하는 배열을 가져옴 Function Items() -Key : 다른 키로 바꿈 Key(Key) -Keys : 사전의 모든 키를 포함하는 배열을 가져옴 Function Ke.. 공감수 0 댓글수 0 2024. 1. 11.
엑셀 VBA #93 / 특정 폴더 내, 파일통합_VBA필수 [VBA] 엑셀 VBA #93 / 특정 폴더 내, 파일통합_VBA필수 [VBA] Sub Data_gether_from_otherfile() Dim strPath As String, fName As String Dim wb As Workbook Dim rngS As Range Dim cntRows As Long Application.ScreenUpdating = False strPath = "C:\Users\sss\ddd\바탕 화면\조사활동\가나다조사\팀별일일보고\" '위 코드의 문제점 해결위해 아래처럼 한다 'strPath = Environ("userprofile") & "\바탕 화면\조사활동\가나다조사\팀별일일보고\" fName = Dir(strPath & "*.xls*") If fName = "" Then Ms.. 공감수 0 댓글수 0 2024. 1. 4.
엑셀 VBA #90 / 데이터재배치 [VBA] 엑셀 VBA #90 / 데이터재배치 [VBA] Sub vba90강231231() Dim rng As Range, c As Range Dim nc As New Collection Dim j As Long, i As Long, k As Long Dim a() ' C열 데이타를 텍스트 타입으로 바꾸기 Set rng = Range("c5", Cells(Rows.Count, "c").End(3)) rng.TextToColumns Destination:=rng, fieldinfo:=Array(1, 2) '정렬하기 Range("b5", Cells(Rows.Count, "c").End(3)).Sort Range("b5", Cells(Rows.Count, "c").End(3))(1, 2) 'New Collection &.. 공감수 0 댓글수 0 2023. 12. 31.
엑셀 VBA #85 / 이벤트 프로시저와 find 메서드 활용하기 [VBA] 엑셀 VBA #85 / 이벤트 프로시저와 find 메서드 활용하기 [VBA] Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Dim fc As Range If Not Intersect(Target, Columns("b")) Is Nothing Then Set rng = Sheet2.Range("a2:a32") On Error Resume Next Set fc = rng.Find(Day(Target.Offset(0, -1)), , , xlWhole) On Error GoTo 0 If Not fc Is Nothing Then fc.Offset(0, 1) = Target.Value Else MsgBox "정확한 값을 입력하세요." En.. 공감수 0 댓글수 1 2023. 12. 30.
엑셀 VBA #127 / Vlookup시리즈3_배열+Dictionary활용 [VBA] 엑셀 VBA #127 / Vlookup시리즈3_배열+Dictionary활용 [VBA] Sub Vlookup기능실현_New_Scripting_Dictionary_배열231228() Dim dict As New Scripting.Dictionary Dim rngS, rngF Dim i As Long Dim arr() rngS = Sheet1.Range("a2", Sheet1.Cells(Rows.Count, "b").End(3)) 'rngS배열방 지정 rngF = Sheet2.Range("a2", Sheet2.Cells(Rows.Count, "a").End(3)) 'rngT배열방 지정 For i = 1 To UBound(rngS, 1) If dict.Exists(rngS(i, 1)) Then Else dict.. 공감수 0 댓글수 0 2023. 12. 28.
VBA - Dictionary(Late vs Early Binding) by 우노사설 Dictionary방식( Late Binding & Early Binding) 1. Late Binding : 'MicroSoft Scripting Runtime'체크확인 불필요 Sub usedictionary() Dim rDatas As Range Dim oDic As Object '일단 범용 Object로 선언 후 Dim rRow As Range Dim sKey As String Dim iItem As Integer Dim ix As Integer Set rDatas = Worksheets("Sales").Range("A1").CurrentRegion Set rDatas = rDatas.Offset(1).Resize(rDatas.Rows.Count - 1) Set oDic = CreateObject(.. 공감수 0 댓글수 0 2023. 12. 23.
[엑셀이뭐니]매크로 기초 11강-Match 함수로 찾기(응용편)/ 중단모드 해제하기/ 엑셀 VBA 기초 [엑셀이뭐니]매크로 기초 11강-Match 함수로 찾기(응용편)/ 중단모드 해제하기/ 엑셀 VBA 기초 Sub match함수응용() Dim rok As Long Dim endr As Long Dim R As Range On Error Resume Next endr = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(2, 1), Cells(endr, 1)).Select For Each R In Selection a = R '상품명 b = R.Offset(0, 1) '색상 c = R.Offset(0, 2) '사이즈 d = a & "/" & b & "/" & c rok = Application.Match(d, Sheets("sheet1").Columns("A"), 0) .. 공감수 0 댓글수 0 2023. 12. 21.
엑셀 VBA #122 / 헷갈리는 시트, 셀 제어 [VBA] 엑셀 VBA #122 / 헷갈리는 시트, 셀 제어 [VBA] 1. 셀범위 설정 방법 그림1 Dim rng As Range '1번코드 'Set rng = Range("A1").CurrentRegion 'rng.Select '2번코드 ' Set rng = Range("A1", Cells(Rows.Count, "E").End(xlUp)) ' rng.Select '3번코드 Dim cnt As Long cnt = Range("A1").End(xlDown).Row 'A1셀을 기준으로 데이타가 있는 아래 마지막 셀의 행번호! Set rng = Range("A1:E" & cnt) rng.Select 코드1~3번의 값 동일함 https://www.youtube.com/watch?v=YHPGYQaAFxw&t=86s vvv 공감수 0 댓글수 0 2023. 12. 20.
엑셀 VBA #126 / Vlookup시리즈2_배열 활용 [VBA] 엑셀 VBA #126 / Vlookup시리즈2_배열 활용 [VBA] Vlookup 함수같은 기능 1. 파워쿼리 2. 배열 3. 배열 + Dictionary Sub VlookupVBA_1() '배열로 Vlookup기능실현 Dim rngS As Variant '워크시트의 셀범위를 배열로 집어 넣을 땐 항상 Variant임 Dim rngF As Variant ' " Dim arr() Application.ScreenUpdating = False Sheet2.Range("E2:E" & Sheet2.Range("A2").End(xlDown).Row).Clear rngS = Sheet1.Range("A2", Sheet1.Cells(Rows.Count, "B").End(3)) 셀 범위'Sheet1.Range("A2".. 공감수 0 댓글수 0 2023. 12. 19.
엑셀 VBA #119 / Dictionary 개체_실무 [VBA] 엑셀 VBA #119 / Dictionary 개체_실무 [VBA] Range("A1").CurrentRegion.Copy Range("D1") Range("D1").CurrentRegion.RemoveDuplicates Array(1, 2), xlYes 'array(1,2) : 제거할 인수가 CurrnetRegion영역의 1열과, 2열!!! 'xlYest 영역에 머리글이 포함되어 있음 최종코딩 Sub Pdictionary() Dim dict As New Scripting.Dictionary Dim rngS As Range, c As Range Dim i As Long Dim s As Variant Application.ScreenUpdating = False Columns("D:I").Clear Rang.. 공감수 0 댓글수 0 2023. 12. 19.
엑셀 VBA #118 / Dictionary 개체_기본 [VBA] 엑셀 VBA #118 / Dictionary 개체_기본 [VBA] [New Dictionary] Dim dict As Oject Set dict = CreateObject("scripting.dictionary") 위 두 문장으로 된 구문( Late Binding이라 함)을 아래 하나의 문장으로 된 구문( Early Binding이라 함)으로 할 수 있다. Dim dict As New Scripting.Dictionary 1.구조 Dictionary이름명. Add Key Item 2. 예시 dict.Add "사과",111 dict.Add "바나나",222 dict.Add "딸기",333 3. For ~ Next문에 적용 3.1. 기본 Dim dict As New Scripting.Dictionary Di.. 공감수 0 댓글수 0 2023. 12. 19.
엑셀 VBA #88 / 시트통합_VBA필수 [VBA] 엑셀 VBA #88 / 시트통합_VBA필수 [VBA] Sub MergeData_By_For_Next() Dim i As Long Application.ScreenUpdating = False Sheet1.Cells.Clear For i = 2 To 4 'sheet2번부터 4번까지(1월~3월시트)//// 4를 'Worksheets.Count'로 하는 게 High Class Sheets(i).Range("a1").CurrentRegion.Copy _ Sheet1.Cells(Rows.Count, "a").End(xlUp).Offset(1) '~~~~~~End(xlUp).Offset(1) => ~~~~~End(3)(2) Next Application.ScreenUpdating = True End Sub Sub .. 공감수 0 댓글수 0 2023. 12. 19.
엑셀 VBA #65 / 질문 답변(데이터 취합) [VBA] 엑셀 VBA #65 / 질문 답변(데이터 취합) [VBA] [하나의 통합문서에 있는 여러 시트들의 데이터들을 중복데이터 제거 후 '통합'시트에 하나로 취합하는 방법] 해결 방법 1. 엑셀 기능(RemoveDuplicates) 적용한 VBA코딩 2. New Collection활용 한 VBA코딩 1. 엑셀 기능(RemoveDuplicates) 적용한 VBA코딩 Sub 통합생성_고유항목만_1() Dim shAll As Worksheet Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False '기존 통합시트 삭제시 '삭제하시겠습니까?'라는 메세지창 나오기 않게! On Error Resume Next '만약 기.. 공감수 0 댓글수 0 2023. 12. 19.
엑셀 VBA #52 / 중복데이터 처리_5 [VBA]-고유항목별 합계구하기 엑셀 VBA #52 / 중복데이터 처리_5 [VBA]-고유항목별 합계구하기 Sub 중복데이터_시군구별합계() Dim gu As New Collection Dim rgu As Range, c As Range Dim e As Variant Dim tot As Long Application.ScreenUpdating = False Set rgu = Range("F2", Cells(Rows.Count, "F").End(xlUp)) '고유한 시군구 추출 On Error Resume Next For Each c In rgu If Len(c) Then gu.Add Trim(c), CStr(Trim(c)) End If Next On Error GoTo 0 '시군구별로 합계 ->시군구별 시트 생성->생성된 시트에 합계를.. 공감수 0 댓글수 0 2023. 12. 16.
엑셀 VBA #51 / 중복데이터 처리_4 [VBA] - 사용자정의함수 엑셀 VBA #51 / 중복데이터 처리_4 [VBA] - 사용자정의함수 Sub 중복데이터삭제_단계2() Dim rng As Range, rngX As Range Dim i As Long, j As Long Dim cntR As Long, cntC As Long Dim strI As String, strJ As String Set rng = Range("A3", Cells(Rows.Count, "D").End(xlUp)) cntR = rng.Rows.Count cntC = rng.Columns.Count For i = 1 To cntR - 1 strI = fnMerge(rng, i) For j = i + 1 To cntR strJ = fnMerge(rng, j) If strI = strJ Then If r.. 공감수 0 댓글수 0 2023. 12. 16.
엑셀 VBA #50 / 중복데이터 처리_3 [VBA]-Union 엑셀 VBA #50 / 중복데이터 처리_3 [VBA] Sub 중복데이타삭제_단계1() Dim rng As Range Dim lR As Long, lC As Long Dim i As Long, j As Long Dim rngX As Range Set rng = Range("A3", Cells(Rows.Count, "D").End(xlUp)) lR = Cells(Rows.Count, "A").End(xlUp).Row lC = rng.Columns.Count rng(1, lC + 1).Resize(rng.Rows.Count, 1) = "=A3&B3&C3&D3" For i = 3 To lR - 1 For j = i + 1 To lR If Cells(i, "E") = Cells(j, "E") Then If rng.. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #49 / New Collection_버블정렬의 콜라보 [VBA] 엑셀 VBA #49 / New Collection_버블정렬의 콜라보 [VBA] Dim nc As New Collection Dim rng As Range, c As Range Dim a() As Variant Dim i As Long Set rng = Range("A1", Cells(Rows.Count, "A").End(xlUp)) '---------------------------- '고유목록 추출 '---------------------------- On Error Resume Next For Each c In rng If Len(c) Then nc.Add Trim(c), CStr(Trim(c)) End If Next On Error GoTo 0 '--------------------------- '.. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #48 / 중복데이터 처리_2 [VBA] - 신규항목 추출 엑셀 VBA #48 / 중복데이터 처리_2 [VBA] - 신규항목 추출 Dim ro As Range, rc As Range Set ro = Range("A2", Range("A2").End(xlDown)) Set rc = Range("D2", Cells(Rows.Count, "D").End(xlUp)) For Each c In rc If Application.CountIf(ro, c) = 0 Then c.Resize(, 2).Copy Cells(Rows.Count, "A").End(xlUp).Offset(1) ' end(xlup).offset(1) =end(3)(2)와 같음 End If Next 위 코드 중 'Application.CountIf(ro, c) = 0' 구문은 아래 그림 워크시트 Counti.. 공감수 1 댓글수 0 2023. 12. 15.
엑셀 VBA #47 / 중복데이터 처리_1 [VBA]- Removeduplicates. 고급필터. New Collection 엑셀 VBA #47 / 중복데이터 처리_1 [VBA] 중복데이터 처리 방법 1. Removeduplicates 영역.RemoveDuplicates 중복제거할 열표시, Header포함여부 cf, 중복제거 기준 열이 2이상 일 경우?????? 영역. RemoveDuplicates (array(1,2,...)), Header포함여부 2. 고급필터 3. New Collection 1. Removeduplicaste Sub 중복데이터_removeduplicate() Dim rng As Range Set rng = Range("A1", Cells(Rows.Count, "A").End(xlUp)) rng.Copy Range("D1") Range("D1").CurrentRegion.RemoveDuplicates 1, .. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #46 / Replace 메서드 [VBA] - 유령문자 엑셀 VBA #46 / Replace 메서드 [VBA] - 유령문자.... - Dim rng as range Dim lT Dim e Set rng =range("A1").CurrentRegion lT = Array(ChrW(160),ChrW(13),ChrW(10)) For Each E In lT rng.Replace e, "" Next End Sub https://www.youtube.com/watch?v=LOBxQDDsoIY&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=46 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #45 / Find메서드_변형3 [VBA] - 중복표시 엑셀 VBA #45 / Find메서드_변형3 [VBA] Dim sh8 As Worksheet, sh7 As Worksheet Dim rng As Range, cf As Range Dim ad As String Set sh8 = Sheets("2018") Set sh7 = Sheets("2017") Set rng = sh7.Range("B3", sh7.Cells(Rows.Count, "B").End(xlUp)) 'Cells(Rows.Count,"B")만 쓰면 오류 발생가능성 있으므로, 시트명 sh7를 붙힐 것 For Each c In sh8.Range("B3", sh8.Cells(Rows.Count, "B").End(xlUp)) Set cf = rng.Find(c, , , xlWhole) If Not cf.. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로 찾기 엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로 찾기 Dim rng As Range, cf As Range Dim ad As String Set rng = Range("B3", Cells(Rows.Count, "B").End(xlUp)) Set cf = rng.Find("서울", Range("B18"), , xlWhole, , xlPrevious) If Not cf Is Nothing Then ad = cf.Address Do Cells(Rows.Count, "E").End(3)(2) = cf.Offset(, -1) Set cf = rng.FindPrevious(cf) Loop Until cf.Address = ad End If https://www.youtube.com/watch?.. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #43 / Find메서드_변형1 [VBA] 엑셀 VBA #43 / Find메서드_변형1 [VBA] Dim rng As Range, cf As Range Dim ad As String Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp)) Set cf = rng.Find("A-1", , , xlWhole) If Not cf Is Nothing Then 'cf값이 있으면 ad = cf.Address 'ad라는 변수에 cf값을 넣는다. Do cf.Interior.ColorIndex = 43 Set cf = rng.FindNext(cf) '기존 찾았던 cf셀 이후로 찾는다--findnext Loop Until cf.Address = ad 'cf의 주소가 처음 주소와 같을 때 까지 Do~Loop구문작동 End .. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #42 / Find메서드_기본 [VBA] 엑셀 VBA #42 / Find메서드_기본 [VBA] 예시1. B-1제품코드의 판정값 불러오기.... For~Next구문 혹은 For Each~Next구문 사용해도 되나, 자료가 방대한 경우 속도가 느려질 수 있음. Dim rng As Range, cf As Range Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp)) Set cf = rng.Find(Range("D2").Value, , , xlWhole) 'cf는 rng영역 중에서 D2셀과 같을 가지는 셀의 주소 임 Range("E2") = cf.Offset(, 1) ' 'Range("E2") = cf.Offset(, 1).value' 로 해도 동일한 결과가 나오네....... 예시2 Dim rng As.. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열 엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열 Sub 행삭제_배열_myexr231224() Dim r As Variant '모든 데이타를 넣을 배열방r....variant적용 Dim a() '배열방r의 데이타 중 'A-1'이외 값을 넣을 배열방a....동적배열적용 Dim i As Long, j As Long, k As Long '----------------------------------------------------- '값을 각 배열방에 넣는 과정 r = Range("A1", Cells(Rows.Count, "B").End(xlUp)) ReDim a(1 To UBound(r, 1), 1 To 2) '동적배열의 영역 확정, a는 2차원이므로 a(1차원,2차원)으로 표시해야함 '1차원 크기.. 공감수 0 댓글수 0 2023. 12. 15.
엑셀 VBA #40 / 행 삭제_개선1 [VBA] - Union 엑셀 VBA #40 / 행 삭제_개선1 [VBA] Sub 행삭제_union() Dim r As Range ' "A-1"값이 포함된 셀의 범위를 담을 변수(방) Dim i As Long, lR As Long lR = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To lR If Cells(i, "A") = "A-1" Then If r Is Nothing Then Set r = Cells(i, "A").Resize(, 2) 'r이 range타입이므로 set문으로! Else 'r방에 다른 값이 존재한다면 Set r = Union(r, Cells(i, "A").Resize(, 2)) 'r방에 r방의 기존 값과 새로운 값(Cells(i, "A").Resize(, 2))을 r방.. 공감수 0 댓글수 0 2023. 12. 14.

문의안내

티스토리
로그인
고객센터

티스토리는 카카오에서 사랑을 담아 만듭니다.