반응형 excel VBA3 셀에 값 입력하기 1.셀에 값 입력하기 Sub WriteCellValue() Dim rng As Range ' 범위 지정 Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1") ' 셀에 값 입력 rng.Value = "Hello, World!" ' 메시지 출력 MsgBox "셀에 값이 입력되었습니다." End Sub 2.연속된 여러 개의 셀에 값 입력하기 Sub WriteMultipleCellValues() Dim rng As Range ' 범위 지정 Set rng = Range("A1:B5") ' 연속된 여러 셀에 값 입력 rng.Value = "Hello" ' 메시지 출력 MsgBox "연속된 여러 셀에 값이 입력되었습니다." End Sub 3. 여러 영역에 값 입력하기 S.. 2023. 6. 25. 엑셀 파일 열기 1. 파일 열기 Sub OpenWorkbookExample() Dim wb As Workbook ' 파일 경로 및 파일 이름 지정 Dim filePath As String filePath = "D:\VBA Folder\Sample.xlsx" ' 엑셀 파일 열기 Set wb = Workbooks.Open(Filename:=filePath) End Sub 2. 읽기 전용 모드로 열기 Sub OpenReadOnlyWorkbookExample() Dim wb As Workbook ' 파일 경로 및 파일 이름 지정 Dim filePath As String filePath = "D:\VBA Folder\Sample.xlsx" ' 엑셀 파일을 읽기 전용 모드로 열기 Set wb = Workbooks.Open(File.. 2023. 6. 23. 엑셀 통합문서 만들기 새 통합문서 만들기 1. 새 통합문서 만드는 예제입니다. Sub AddWorkbook() '새 통합문서 만들기 Application.Workbooks.Add End Sub 변수 선언하고 새 통합문서 만들기 2. 변수를 선언하고 새 통합문서 만드는 예제입니다. Sub CreateWorkbook() '변수 선언 Dim wkbNew As Workbook '새 통합문서 만들기 Set wkbNew = Application.Workbooks.Add Set wkbNew = Nothing End Sub 새 통합문서 만들고 종료하기 3. 새 통합문서 만들고 종료하는 예제입니다. Sub AddAndCloseWorkbook() '새 통합문서 만들기 Dim wkbNew As Workbook Set wkbNew = Applic.. 2023. 6. 22. 이전 1 다음 반응형
