"엑셀 매크로 시트 있는지 확인"의 두 판 사이의 차이

2012년 4월 2일 (월) 00:18 판

1 함수

Public Function exist_worksheet(name As String) As Boolean
    exist_worksheet = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.name = name Then exist_worksheet = True
    Next ws
End Function

2 테스트

Sub button1_Click()
    If exist_worksheet("시트이름") Then
        MsgBox "있음"
    Else
        MsgBox "없음"
    End If
End Sub

@@ 1번째 줄: / 1번째 줄: @@
+==함수==
 <source lang='vb'>
 Public Function exist_worksheet(name As String) As Boolean
@@ 6번째 줄: / 8번째 줄: @@
      Next ws
 End Function
+</source>
+==테스트==
+<source lang='vba'>
+Sub button1_Click()
+    If exist_worksheet("시트이름") Then
+        MsgBox "있음"
+    Else
+        MsgBox "없음"
+    End If
+End Sub
 </source>
 [[분류: 엑셀 매크로]]
 [[분류: VBA]]