ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý°ª¤â:
        ¤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?ÁÂÁÂ
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

¦^´_ 1# bhsm


   
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
·PÁÂGBKEE¤j.«ö·Ó±zªº¤è¦¡.¤@¤Á·d©w.ÁÂÁÂ
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¦^´_ 2# GBKEE
¦A½Ð±ÐGBKEE¤j.¬°¤°»ò¦³¨ÇÀÉ®×µLªk°õ¦æ·|¥X²{¤U­±³o­Óµe­±©O?
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¦^´_ 2# GBKEE
¤w¸Ñ¨M.¤£·Ð³ÒGBKEE¤j¤F
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

¥»©«³Ì«á¥Ñ p212 ©ó 2013-11-27 09:45 ½s¿è

¦^´_ 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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ p212 ©ó 2013-11-27 12:04 ½s¿è

¦^´_ 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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD