¦p¦ó¦b¶}±ÒÀɮ׮ɴå¼Ð©T©w¦b¬Y¤@Àx¦s®æ

bhsm

½Ð°Ý°ª¤â:
        ¤p§Ì¦³¤@­ÓexcelÀÉ®×T.xls.¤º¦³A.B.C¤T­Ó¤u§@ªí.½Ð°Ý¦p¦ó¦b¶}±ÒTÀÉ®É.µe­±·|Åã¥Ü¦bB¤u§@ªí.¥B·|±N´å¼Ð©T©w¦bB¤u§@ªíªºD2Àx¦s®æ.Åý§Ú¿é¤J¸ê®Æ©O?ÁÂÁÂ

ML089

¦^´_ 8# p212


¥Ø¼Ð¡G¦b«D¬°¡u»¡©ú¡v¤u§@ªí¤§ÀH¾÷ªºÀx¦s®æ°õ¦æ¦sÀÉ¡BÃöÀÉ¡A¤§«á¦A«×¶}±ÒÀɮסAµe­±´å¼Ð±N©T©w©ó¡u»¡©ú¡v¤u§@ªíªºB3Àx¦s®æ¡C

¨Ï¥Î 2# ªº»¡©ú¤è¦¡´N¥i
Private Sub workbook_Open()
    With Sheets("»¡©ú")
        .Activate
        .Range("B3").Activate
    End With
End Sub

GBKEE

¦^´_ 10# p212
2007 ´N¬O­n¦sÀɬ° [Excel±Ò¥Î¥¨¶°ªº¬¡­¶Ã¯] ,¤~¦³¥¨¶°µ{¦¡

p212

¦^´_ 9# GBKEE
«D±`·P¨ì©êºpGBKEE¤j¡A´ú¸Õµ²ªGÁÙ¬O¥¢±Ñ¡I
¬O¦sÀɪº¡uÃþ«¬¡v¤£¹ï¡H(¤£¥i¦s¦¨¤@¯ëªº¡uExcel¬¡­¶Ã¯¡v¡H­n¦s¦¨¡uExcel±Ò¥Î¥¨¶°ªº¬¡­¶Ã¯¡v¤è¥i¦¨¥\¡H)
ÁÙ¬O¥t¦³§Þ¥©¡H
«_¬N½Ð±Ð¡A­n¦A´£¨Ñ±z¤°»ò¼Ëªº¸ê®Æ¤~¤è«K±z¸Ñ´b¡H
ÁÂÁ¡I

GBKEE

¦^´_ 8# p212

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim a
   
4.     On Error Resume Next
   
5.     a = Names("»¡©ú")
   
6.     If Err <> 0 Then Names.Add "»¡©ú", ActiveSheet.[B3].Address(, , , 1)
   
7.     On Error GoTo 0
   
8.     a = Replace(Mid(Names("»¡©ú"), 2), """", "")
   
9.     With Sheets(Range(a).Parent.Name)
   
10.         .Activate
    
11.         .Range(a).Activate
    
12.     End With
    
13. End Sub
    
14. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
15.     Names.Add "»¡©ú", ActiveSheet.[B3].Address(, , , 1)    '§tªº¦ì¸m
    
16.     '1=True «h¶Ç¦^¥~³¡°Ñ·Ó¡C­Y¬° False «h¶Ç¦^°Ï°ì°Ñ·Ó¡C¹w³]­È¬° False¡C
    
17.     Me.Save
    
18. End Sub

½Æ»s¥N½X

p212

¦^´_ 7# GBKEE
·PÁÂGBKEE¤jªº«ü¾É¡I
1¡B[¥ô¤@Àx¦s®æ] ªº¦ì¸m«Y«üÀH¾÷ªºÀx¦s®æ¡A¦Ó¤£¬O¼Ð¥Ü¬°[¥ô¤@Àx¦s®æ] ¤å¦rªºÀx¦s®æ¡C
2¡B¥»¤H±NGBKEE¤j«ü¾Éªº¤º®e®M¥Î¦Ü­Ó¤HÀɮסA¨ä¤¤"aa"¨ú¥N¬°"»¡©ú"¡A"d2"¨ú¥N¬°"b3"°õ¦æ´ú¸Õ¡Aµ²ªG¥¢±Ñ¡C(¥Ø¼Ð¡G¦b«D¬°¡u»¡©ú¡v¤u§@ªí¤§ÀH¾÷ªºÀx¦s®æ°õ¦æ¦sÀÉ¡BÃöÀÉ¡A¤§«á¦A«×¶}±ÒÀɮסAµe­±´å¼Ð±N©T©w©ó¡u»¡©ú¡v¤u§@ªíªºB3Àx¦s®æ¡C)
3¡Ba = Replace(Mid(Names("aa"), 2), """", "")­×§ï¬°a = Replace(Mid(Names("»¡©ú"), 2), """", "") ­þùؤ£¹ï¡HÀ³¦p¦ó­×§ï¡H
GBKEE¤j¥i§_¦A¦¸«ü¾É¡H
ÁÂÁ¡I

GBKEE

¦^´_ 6# p212
¥ô¤@Àx¦s®æ°õ¦æ¡uÀx¦sÀɮסvÃöÀÉ«á¡A¦A«×¶}±ÒÀɮ׮ɴå¼Ð©T©w¦b«ü©wªºÀx¦s®æ  :¬O³o[¥ô¤@Àx¦s®æ] ªº¦ì¸m?

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim a
   
4.     On Error Resume Next
   
5.     a = Names("aa")
   
6.     If Err <> 0 Then Names.Add "aa", "d2"
   
7.     On Error GoTo 0
   
8.     With Sheets(1)
   
9.         .Activate
   
10.         a = Replace(Mid(Names("aa"), 2), """", "")
    
11.         .Range(a).Activate      
    
12.     End With
    
13. End Sub
    
14. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
15.     Names.Add "aa", ActiveCell.Address   '¥ô¤@Àx¦s®æªº¦ì¸m
    
16.     Me.Save
    
17. End Sub

½Æ»s¥N½X

p212

¦^´_ 2# GBKEE
½Ð±ÐGBKEE¤j
´N1#°ÝÃD¦Ó¨¥¡A­Y´å¼Ð°±©ó«DB¤u§@ªí¤§¥ô¤@Àx¦s®æ°õ¦æ¡uÀx¦sÀɮסv¥B¡uÃöÀÉ¡v¡A«h¦A«×¶}±ÒTÀɮɡAµe­±±N¤£·|©T©wÅã¥Ü¦bB¤u§@ªíªºD2Àx¦s®æ¡C
½Ð°ÝÀ³¦p¦ó­×§ï¨Ï´å¼Ð°±¸m©ó¥ô¤@Àx¦s®æ°õ¦æ¡uÀx¦sÀɮסvÃöÀÉ«á¡A¦A«×¶}±ÒÀɮ׮ɴå¼Ð©T©w¦b«ü©wªºÀx¦s®æ¡H
ÁÂÁ¡I

bhsm

¦^´_ 2# GBKEE
¤w¸Ñ¨M.¤£·Ð³ÒGBKEE¤j¤F

bhsm

¦^´_ 2# GBKEE
¦A½Ð±ÐGBKEE¤j.¬°¤°»ò¦³¨ÇÀÉ®×µLªk°õ¦æ·|¥X²{¤U­±³o­Óµe­±©O?

¤U¸ü (15.48 KB)

2013-9-13 12:26