본문 바로가기
반응형

Excel10

엑셀 시트 한개씩 단일파일로 저장하기 Sub 시트저장() Dim Sht As Worksheet Dim strPath As String Application.ScreenUpdating = False strPath = ThisWorkbook.Path & "\" For Each Sht In Worksheets With Sht .Copy ChDir strPath ActiveWorkbook.SaveAs Filename:=strPath & Sht.Name & ".xlsx" ActiveWindow.Close End With Next Sht End Sub 2023. 3. 30.
엑셀 문장에 리스트에 있는 값이 존재하는지 확인 엑셀 특정 문장에 내가 만든 리스트에 있는 값이 존재하는지 확인하려면 다음 팡션을 활용해보자. function 문장은 다음과 같다. =sumproudct(--isnumber(search(리스트,문장)))>0 2023. 3. 3.
동적 배열 사용하기 동적 배열은 배열 요소 개수를 정의하지 않고 선언하는 배열을 의미한다. 배열의 행과 열의 수가 정해지는 지점에서 ReDim문으로 개수를 재정의한다.Dim matNumber() As Integer //동적 배열 선언//...ReDim matNumber (1 To 20) //20개의 배열 요소로 크기 정의//...ReDim matNumber(1 To 40) // 40개의 배열 요소로 크기 재정의//ReDim 문을 재사용한 경우 (1 To 40), 이전에 배열에 저장된 값(1 To 20)은 모두 사라진다. 이전 값을 유지하려면 ReDim Preserve 키워드를 사용해야 한다.ReDim Preserve matNumber (1 To 20) ReDim 문은 2차원 이상의 다차원 배열에 사용할 때 제약이 있다. 바.. 2018. 10. 9.
Excel VBA 실행 속도 빠르게 하기 엑셀 VBA 실행 시, 처리 속도를 빠르게 하기 위해서 적용할 수 있는 코드는 다음과 같다.Application.ScreenUpdating = False Application.DisplayStatusBar = FalseApplication.Calculation = xlCalculationManualApplication.EnableEvents = FalseActiveSheet.DispplayPageBreaks = Flase(코드 입력)Application.ScreenUpdating = TrueApplicationDisplayStatusBar = TrueApplication.Calculation = xlCalculationAutomaticApplication.EnableEvents = TrueActiveSh.. 2018. 8. 21.
배열(Array) 선언과 사용법 1. 배열 (Array) 또한 변수이므로 Dim, Public 등을 사용하여 선언한다. 2. 일반 변수(variable)과 다른 점은 배열 변수는 선언시 몇 개의 값을 저장할 배열인지 숫자를 정해야 한다.3. 배열변수를 선언할 때 입력될 데이터 형식을 지정하지 않으면 각 요소마다 서로 다른 데이터 형식의 값을 저장할 수 있다. 하짐나 이는 선언 형식이 Variant가 되므로 메모리 공간을 많이 차지하게 된다.4. 배열 선언 예제Dim numberList(10) As Integer위와 같이 선언하면 numberList(0)부터 numberList(10)까지 총 11개의 값을 저장할 수 있는 배열 변수를 사용할 수 있다.배열 변수에 값을 저장하려면 다음과 같이 한다.numberList(0) = 10numbe.. 2018. 8. 19.
개체 변수(Object Variable) 1. 개체 변수 (Object Variable)은 워크북, 시트, 셀 범위 등의 개체를 저장하는 변수이다. 이를 사용하면 코드가 더 단순해지고 실행 속도도 올라간다. 2. 예제Sub ObjectVariableExmaple() Const UserName As String = "YOYOYO" Dim intSize As Integer Dim rngTarget As Range intSize = 13 Set rngTarget = Sheets(1).Range("A1:C5") rngTarget = UserName rngTarget.Font.Size = intSizeEnd Sub3. 결과화면 2018. 8. 19.
with 문으로 개체 참조 생략하기 With .... End with 문은 두 가지 효과가 있다. 1. 코드 단순화2. 실행속도 향상[일반 사용 시]Range("A1:D5").Font.Size = 12Range("A1:D5").Font.Bold = TrueRange("A1:D5").HorizontalAlignment = xlCenterRange("A1:D5").Style = "Percent" [With... End with 사용 시]With Range("A1:D5").Font.Size=12.Font.Bold=True.HorizontalAlignment = xlCenter.Style = "Percent"End With 위의 작업 결과는 동일하다. 2018. 7. 29.
하위 개체 접근하기 1. Range("A1").Value = 200 현재 활성화된 Worksheet의 A1셀에 200 입력 2. Worksheets("Sheet2").Range("A1").Value = 200Sheet2라는 이름의 Worksheet가 존재한다면, Sheet2의 A1셀에 200입력 3. Workbooks("통합문서2.xlsx").Worksheets("Sheet1").Range("A1").Value = 200통합문서2.xlsx파일의 sheet1이라는 이름의 Worksheet의 A1셀에 200 입력 개체에 접근하기 위해서는 상위 -> 하위 순으로 접근해야 한다. (Workbooks -> Worksheets -> Range) 상위 개체가 생략된 경우에는 현재 활성화된 (화면에 뜬) 개체가 생략된 것으로 이해한다. .. 2018. 7. 1.
셀 값 지정하기 1. VBA실행: Alt + F112. 직접 실행창 실행: Ctrl + g3. Range("A1").Value=1004. 엑셀 A1셀 같이 100으로 들어감 A1 셀의 값을 직접 실행창에 표시하려면 다음을 실행1. ?Range("A1").Value 혹은2. Print Range("A1").Value*입력된 코드를 한 줄씩 지우려면 Ctrl + Y 2018. 6. 26.
매크로 통합 문서 파일 저장 경로 확인 1. Alt + F11로 Macro 실행 2. Ctrl + G로 직접 입력창 실행 3. ? Application.StartUpPath [ENTER]로 확인 2018. 6. 25.
반응형