본문 바로가기

전체 글

(1370)
[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 =..
[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..
[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"..
[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)...
[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..
엑셀 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..
엑셀 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 &..
엑셀 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..

반응형