¥i§_¥¨¶°°õ¦æ¤¤³~+¤H¤â¾Þ§@

enoch

½Ð°Ý¥¨¶°¥i§_¦b°õ¦æ´Á¶¡, ¹J¨ì«ü©w±¡ªp¤U ¼È°±¾Þ§@ (¨Ò¦p·í¤u§@ªí¤£¦s¦b)
Åý¨Ï¥ÎªÌ¥i¥H¤H¤â¾Þ§@ (¨Ò¦p·s¼W¤u§@ªí), ¦A«öÁäÄ~Äò°õ¦æ¾l¤U¥¨¶°«ü¥O
½Ð«ü±Ð

chchang76

§Ú¦L¶H¤¤§Ú¾Ç¹L¥i¥H¼g ·í¥X²{ERROR ©Î¤£¥¿½T­Èªº®É­Ô ¥i¥H¸õ¥Xµøµ¡½Ð¨Ï¥ÎªÌ¬O§_­nÄ~Äò ©Î­×¥¿¼Æ­È

À³¸Ó¬O¥i¥H¿ì±o~  «e´£¥u¬O§A­nª¾¹D¬Æ»ò±¡ªp»Ý­n±j¨î¤¤¤î!

GBKEE

¦^´_ 1# enoch
Ãþ¦ü³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlSheetName As String
   
4.     On Error GoTo xlErr
   
5.     xlSheetName = "§Úªº¤u§@­¶"                '¤u§@ªíªº¦WºÙ
   
6.     Sheets(xlSheetName).Activate
   
7.     Exit Sub
   
8. xlErr:
   
9.     If Err = 9 Then
   
10.         If MsgBox("[ " & xlSheetName & " ]  ¤£¦s¦b " & Chr(10) & "·s¼W [ " & xlSheetName & " ] ?", vbYesNo) = vbYes Then
    
11.             ActiveWorkbook.Sheets.Add.Name = xlSheetName
    
12.             Resume
    
13.         End If
    
14.     End If
    
15.     MsgBox "µ{¦¡¤¤Â_"
    
16. End Sub

½Æ»s¥N½X

enoch

GKBEE
¤£¦n·N«ä, §Úªí¹F±o­ø²M·¡
¦b¥H¤Wµ{¦¡­Y°õ¦æ¨ì ERR=9 ¤§«á,
¯à§_¦³ªÅ¶¡§ï¬°¤H¤â¾Þ§@,¦Ó¤£­­©ó¹w©wªº°õ¦æ«ü¥Ü: «ü©wªº·s¼W¤u§@ªí,
¨Ò¦p¥i¯à·Q±N²{¦³¤u§@ªí§ï¦W¬° "§Úªº¤u§@­¶"
·í¤H¤â°µ§¹¤§«á¦Aªð¦^µ{¦¡°õ¦æ

¹ê»Ú°ÝÃD:
·Q¼gµ{¦¡·íµo²{ÀÉ®×¥u¦³¤@­¶¤u§@ªí, ¦Û°Ê¦C¦L²Ä¤@­¶, ­Y¦h©ó¤@±i¤u§@ªí,
«h¤H¤â¿ï¾Ü²Ä´X­¶«á, ¦AÄ~Äò°õ¦æ¦C¦L

·Ð½Ð¦A«ü±Ð

Hsieh

¦^´_ 4# enoch

    ¦pªG­n³]©w¦C¦L­¶¼Æ

1. Sub ex()
   
2. ActiveWindow.View = xlPageBreakPreview
   
3. With ¤u§@ªí1
   
4. If .HPageBreaks.Count = 0 Then
   
5. .PrintOut
   
6. Else
   
7. .PrintPreview
   
8. End If
   
9. End With
   
10. ActiveWindow.View = xlNormalView
    
11. End Sub

½Æ»s¥N½X