Sub callBySheetType() Select Case TypeName(ActiveSheet) Case "Chart": Call callChart Case "Worksheet": Call callWorksheet Case Else: Call callElse End Select End Sub
Sub callChart() MsgBox "This is Chartsheet" End Sub Sub callWorksheet() MsgBox "This is Worksheet" End Sub Sub callElse() MsgBox "What?" End Sub
고독한나그네님..
진작 이렇게 말씀해주셨더라면.. 크크..
아래코드처럼 TypeName(ActiveSheet)을 검사하면 됩니다.
IF문을 사용해도 되지만.. 이런 경우는 Select문이 더 좋을 것 같네요..
자세한건 첨부파일을 참고하세요..
다운받기 : abyul.com_20120717_callBySheetType-1.xlsm
Option Explicit
Sub callBySheetType()
Select Case TypeName(ActiveSheet)
Case "Chart": Call callChart
Case "Worksheet": Call callWorksheet
Case Else: Call callElse
End Select
End Sub
Sub callChart()
MsgBox "This is Chartsheet"
End Sub
Sub callWorksheet()
MsgBox "This is Worksheet"
End Sub
Sub callElse()
MsgBox "What?"
End Sub