VBA 예제

초기화.txt

0.00MB

시트삭제, 내용삭제, 위치잡기

Sub mode1() 'D시트 확인변수 Dim sheetD As Worksheet '화면표시X Application.DisplayAlerts = False 'O시트 내용 삭제 Sheets("O").Columns.Delete '시트가 없으면 에러발생 무시 On Error Resume Next Set sheetD = Sheets("D") On Error GoTo 0 'D시트 삭제 If Not (sheetD Is Nothing) Then Sheets("D").Delete End If '위치 초기화 Sheets("O").Select Range("A1").Select Sheets("M").Select Range("A1").Select '화면표시O Application.DisplayAlerts = True '완료 메시지 MsgBox "초기화" End Sub