mark15jill

½Ð°Ý
§Ú³]©wdata°}¦C¤¤ªº¯Á¤Þ­È¬°±ý§R°£ªº¤u§@ªí¦WºÙ
¨Ã§Æ±æ¥Îfor°j°é»Pif¨Ó§PÂ_©Ò«ü©wªº¤u§@ªí¬O§_¦s¦b
...
t591nm µoªí©ó 2015-8-7 17:10

¥H¤U½d¨Ò¨Ñ±z°Ñ¦Ò¡B­×§ï

1.     Sub IsSheetExist()
   
2.     Dim ws As Worksheet
   
3.     Dim sName As String
   
4.     sName = "¤@¤ë"  '«ü©w¤u§@ªí
   
5.     On Error Resume Next
   
6.     Set ws = Sheets(sName)
   
7.     If ws Is Nothing Then '«ü©wªº¤u§@ªí¤£¦s¦b
   
8.       Sheets.Add.Name = sName
   
9.     Else '«ü©wªº¤u§@ªí¤w¦s¦b
   
10.       MsgBox "¡§" & sName & "¡¨¤u§@ªí¤w¦s¦b¡C"
    
11.       ws.Activate
    
12.     End If
    
13.     End Sub

½Æ»s¥N½X