반응형 전체 글167 셀에 값 입력하기 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. 통합문서 닫기 저장하지 않고 닫기 Sub CloseWorkbookExample() Dim wb As Workbook ' 현재 활성화된 워크북 가져오기 Set wb = ActiveWorkbook ' 워크북 닫기 (저장하지 않고 닫기) wb.Close SaveChanges:=False ' 메시지 박스로 워크북이 닫혔음을 알림 MsgBox "워크북이 닫혔습니다." End Sub 변경 사항 저장하고 닫기 Sub CloseWorkbookWithSaveExample() Dim wb As Workbook ' 현재 활성화된 워크북 가져오기 Set wb = ActiveWorkbook ' 워크북 닫기 (변경 사항 저장 후 닫기) wb.Close SaveChanges:=True ' 메시지 박스로 워크북이 닫혔음을 알림 MsgBox "워크.. 2023. 6. 24. 통합문서 저장하기 통합문서 저장하기 Sub SaveWorkbookExample() ThisWorkbook.Save ' 현재 통합문서 저장 MsgBox "통합문서가 저장되었습니다." End Sub 다른 이름으로 저장하기 Sub SaveWorkbook() Dim wb As Workbook Dim savePath As String ' 파일 열기 Set wb = Workbooks.Open("D:\VBA Folder\NewFile.xlsx") ' 저장할 경로와 파일 이름 지정 savePath = "D:\Temp\MyFile.xlsx" ' 파일이 이미 존재하는지 확인 If FileExists(savePath) Then ' 파일이 이미 존재하는 경우 사용자에게 덮어쓸지 여부를 확인 Dim response As VbMsgBoxResul.. 2023. 6. 24. 엑셀 파일 열기 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 ··· 38 39 40 41 42 다음 반응형
