¦p¦ó¦b¶}±ÒÀɮ׮ɴå¼Ð©T©w¦b¬Y¤@Àx¦s®æ
- ©«¤l
- 96
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 274
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-29
- ³Ì«áµn¿ý
- 2024-11-24
|
¦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¾Ç
|
|
|
|
|
- ©«¤l
- 96
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 274
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-29
- ³Ì«áµn¿ý
- 2024-11-24
|
¦^´_ 2# GBKEE
·PÁÂGBKEE¤j.«ö·Ó±zªº¤è¦¡.¤@¤Á·d©w.ÁÂÁ |
|
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç
|
|
|
|
|
- ©«¤l
- 96
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 274
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-29
- ³Ì«áµn¿ý
- 2024-11-24
|
¦^´_ 2# GBKEE
¤w¸Ñ¨M.¤£·Ð³ÒGBKEE¤j¤F |
|
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç
|
|
|
|
|
- ©«¤l
- 618
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 663
- ÂI¦W
- 1
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- OFFICE 2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Pingtung
- µù¥U®É¶¡
- 2011-9-2
- ³Ì«áµn¿ý
- 2024-7-5
|
¥»©«³Ì«á¥Ñ p212 ©ó 2013-11-27 09:45 ½s¿è
¦^´_ 2# GBKEE
½Ð±ÐGBKEE¤j
´N1#°ÝÃD¦Ó¨¥¡AY´å¼Ð°±©ó«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 |
|
|
|
|
|
|
- ©«¤l
- 618
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 663
- ÂI¦W
- 1
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- OFFICE 2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Pingtung
- µù¥U®É¶¡
- 2011-9-2
- ³Ì«áµn¿ý
- 2024-7-5
|
¥»©«³Ì«á¥Ñ 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 |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 8# p212 - Option Explicit
- Private Sub Workbook_Open()
- Dim a
- On Error Resume Next
- a = Names("»¡©ú")
- If Err <> 0 Then Names.Add "»¡©ú", ActiveSheet.[B3].Address(, , , 1)
- On Error GoTo 0
- a = Replace(Mid(Names("»¡©ú"), 2), """", "")
- With Sheets(Range(a).Parent.Name)
- .Activate
- .Range(a).Activate
- End With
- End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Names.Add "»¡©ú", ActiveSheet.[B3].Address(, , , 1) '§tªº¦ì¸m
- '1=True «h¶Ç¦^¥~³¡°Ñ·Ó¡CY¬° False «h¶Ç¦^°Ï°ì°Ñ·Ó¡C¹w³]Ȭ° False¡C
- Me.Save
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 618
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 663
- ÂI¦W
- 1
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- OFFICE 2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Pingtung
- µù¥U®É¶¡
- 2011-9-2
- ³Ì«áµn¿ý
- 2024-7-5
|
¦^´_ 9# GBKEE
«D±`·P¨ì©êºpGBKEE¤j¡A´ú¸Õµ²ªGÁÙ¬O¥¢±Ñ¡I
¬O¦sÀɪº¡uÃþ«¬¡v¤£¹ï¡H(¤£¥i¦s¦¨¤@¯ëªº¡uExcel¬¡¶Ã¯¡v¡Hn¦s¦¨¡uExcel±Ò¥Î¥¨¶°ªº¬¡¶Ã¯¡v¤è¥i¦¨¥\¡H)
ÁÙ¬O¥t¦³§Þ¥©¡H
«_¬N½Ð±Ð¡An¦A´£¨Ñ±z¤°»ò¼Ëªº¸ê®Æ¤~¤è«K±z¸Ñ´b¡H
ÁÂÁ¡I |
|
|
|
|
|
|