반응형 전체 글167 GetOpenFilename 메서드를 이용해서 엑셀 파일 열기 Sub OpenExcelWorkbook() ' 문자열 변수를 정의 Dim FName As Variant ' GetOpenFilename 메서드를 사용하여 대화 상자 표시 FName = Application.GetOpenFilename( _ FileFilter:="Excel Files (*.xls; *.xlsx; *.xlsm), *.xls; *.xlsx; *.xlsm", _ Title:="통합 문서를 선택하세요", _ MultiSelect:=False) ' 파일 열기 If FName False Then On Error Resume Next Workbooks.Open Filename:=FNa.. 2024. 8. 22. 파일 열 때 특정 시트로 이동하기 Private Sub Workbook_Open() Dim sheetName As String ' 이동하고자 하는 시트 이름으로 변경 sheetName = "Sheet1" ' 지정한 시트로 이동 Sheets(sheetName).SelectEnd Sub 시트가 없으면 아래와 같이 에러가 납니다. 아래와 같이 간단하게 수정했습니다.Private Sub Workbook_Open() Dim sheetName As String ' 이동하고자 하는 시트 이름으로 변경. sheetName = "Sheet1" ' 시트가 존재하는지 확인 Dim ws As Worksheet On Error Resume Next Set ws = Sheets(sheetNa.. 2024. 8. 21. 지정한 범위의 셀 수정 시 통합 문서 저장하기 Private Sub Worksheet_Change(ByVal Target As Range) ' 변경된 셀이 지정된 범위와 교차하는지 확인 If Not Intersect(Target, Range("C5:C16")) Is Nothing Then ' 교차한다면 워크북 저장 ThisWorkbook.Save Else End IfEnd Sub 2024. 8. 20. 특정 범위를 새 통합 문서에 복사하고 저장하기 Sub CopyRangeToNewWorkbook() Dim rng As Range Dim wb As Workbook Dim newWb As Workbook Dim savePath As String ' 복사할 범위를 설정 Set rng = ThisWorkbook.Sheets("Example 1").Range("B4:C15") ' 새 통합문서 생성 Set newWb = Workbooks.Add ' 새로운 통합문서의 첫 번째 시트에 범위 붙여넣기 rng.Copy Destination:=newWb.Sheets(1).Range("A1") ' 저장 경로와 파일명 설정 savePath = "F:\Download\NewWorkbook.xlsx" .. 2024. 8. 20. 이전 1 2 3 4 ··· 42 다음 반응형
