[µo°Ý] ½Ð°Ý¬O§_¯à¸T¤î·s¼Wsheetªº¤è¦¡

z71078170

¦]»Ý­nŪ¨úAÀɮײĤ@­Ósheetªº¤º®e
¬G¤£·QÅý¨Ï¥ÎªÌ¦bAÀÉ®×·s¼W¨ä¥Lsheet
­Y²¾°Êsheet¶¶§Ç¡A¾É­Pµ{¦¡¿ù»~
¥Ø«e¥u¦³·Q¨ì¦pªG¥i¥H¸T¤î·s¼W¨ä¥Lsheet´N¯à¸Ñ¨M!
¦U¦ì¤j¤j«ç»ò¬Ý?

GBKEE

¦^´_ 1# z71078170

¤U¸ü (79.35 KB)

2015-11-27 08:35

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     Application.DisplayAlerts = False
   
4.     Sh.Delete
   
5.     Application.DisplayAlerts = True
   
6. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 2# GBKEE
½Ð±Ð±z¡I
¦p¦¹­«½Æ¦a°õ¦æ Sh.Delete¡A
·|¤£·|³y¦¨ Excel ¤º³¡°ïÂSªº
­t²ü¡H

GBKEE

¦^´_ 3# c_c_lai
·|ªº ,¦ý­n°õ¦æ5000 ¦h¦¸«á.

1. Option Explicit
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     Application.DisplayAlerts = False
   
4.     Debug.Print Sh.Name
   
5.     Sh.Delete
   
6.     Application.DisplayAlerts = True
   
7. End Sub
   
8. Sub Ex()
   
9.     Dim I As Long
   
10.     On Error Resume Next
    
11.     Do
    
12.         Debug.Print I
    
13.         I = I + 1
    
14.         DoEvents
    
15.         Sheets.Add Sheets(1)
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

«OÅ@¬¡­¶Ã¯¸û¹ê¦b,
NewSheetÀ³¸ÓµLªk°»´ú¤u§@ªí½Æ»s~~

stillfish00

¦^´_ 1# z71078170
¥i¥H¤£­n¥Î¶¶§Ç¨ÓŪ¨ú¸Ó¤u§@ªí¤º®e
§A¥i¥H¬Ý¸Ó¤u§@ªíªºÄݩʵøµ¡
¨Ò¦p
(Name)Äݩʬ°XXX
NameÄݩʬ°YYY

¥i¥H¥Î XXX.Range("A1")
©Î¥Î Sheets("YYY").Range("A1")

z71078170

¥Ø«e¥ý¨Ï¥Î GBKEE¤j¤jªº¤è¦¡¡A¥Ø«e¤è¦¡¨Ï¥Î¤W¨S¦³°ÝÃD¡AÁÂÁÂ
­Õ­Y§ï¬°¤u§@ªíªºÄݩʵøµ¡§P§O¶¶§Ç
³\¦hµ{¦¡­n­×§ï¤FXD
³Ìªñ¤ñ¸û¦£¤@¨Ç¡A¥´ºâ¥¼¨Ó¦³ªÅ¶¢¤@ÂI ¦b§ó¥¿
ÁÂstillfish00«üÂI

jackyq

¦^´_ 3# c_c_lai


¤j¤j¦n
§¹¥þ¤£·|¦³°ïÅ|­t²ü°ÝÃD