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

excel¬°¦ó¦b¤£¯à´¡¤J©Î§R°£Äæ©M¦C

excel¬°¦ó¦b¤£¯à´¡¤J©Î§R°£Äæ©M¦C

½Ð°Ý¦p¦ó¸Ñ¨Mexcel¤£¯à´¡¤J©Î§R°£Äæ©M¦C

ÁÂÁÂ,²{¦b¥i¥H¤F

TOP

office2003

¥ý¶EÂ_¤@¤U
1­º¥ý§A ´M§ä¹q¸£¤ºªº EXCEL11.XLB §R°£¦¹ÀÉ®× ¦A¬Ý¬Ý·|¤£·|³o¼Ë

2.¦pªGÁÙ·|³o¼Ë ½Ð¨ì³o  C:\Users\   §Aªº¨Ï¥ÎªÌ¦W   \AppData\Roaming\Microsoft\Excel\XLSTART
§R°£¸Ì­±©Ò¦³ÀÉ®×

3.¦pªGÁÙ·|³o¼Ë ½Ð¨ì³o  C:\Program Files\Microsoft Office2003\OFFICE11\XLSTART
§R°£¸Ì­±©Ò¦³ÀÉ®×

4.­n¦p¦ó´ú¸Õ¬O§_»P§A¨Ï¥Îªºµ{¦¡¦³Ãö Ãö¤F´ú¸Õ¬Ý¬Ý´Nª¾¹D¤F...
§ÚÁÙ¬O­n°Ýµ{¦¡¬O§A¼gªº¶Ü?¬O§A¼gªº¸ÜÀ³¤£·|°Ý¦¹°ÝÃD

TOP

§ÚÁÙ¬O¦³ÂI¤£©ú,¦]¬°¨ä¥Lexcel file¨Ã没¦³¥H¤Wµ{¦¡½X¤]¬O¤£¯à´¡¤J©Î§R°£Äæ©M¦C

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2010-7-23 23:48 ½s¿è

¦^´_ 3# mmggmm
^^
³o¬O©úª¾¬G°Ý¶Ü?ÁÙ¬O¤À¨É
Á`¤§¤£­n¿ï¨ìA11 ÀH«K¤@®æ´N¥i¥H¥Î¤F
§A¿ï¤@¾ãÄ榳¿ï¨ì¤W­z´N¤£¯à¥Î¤F

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-23 23:29 ½s¿è

¬O·s¶}excel file, ¤£¹L叧¥~§Ú¦³ÀɮץΥH¤Uµ{¦¡,½Ð°Ý¬O§_»P¦¹¦³Ãö

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Worksheets("Sheet1").Activate
   If Not Intersect(Range("A1:L1"), Target) Is Nothing Then
       Ex False
   Else
       Ex True
   End If
End Sub
Private Sub Ex(Msg As Boolean)
   Dim I%
   With CommandBars(1) '¤u§@ªí¥\¯àªí
       .Controls(2).Controls(11).Enabled = Msg
       .Controls(4).Controls(2).Enabled = Msg
       .Controls(4).Controls(3).Enabled = Msg
   End With
   For I = 29 To 34  '§ÖÅã¥\¯àªíªº Index
       CommandBars(I).Controls(5).Enabled = Msg  '´¡¤J«ü¥O  Msg=True  ®É±Ò¥Î
       CommandBars(I).Controls(6).Enabled = Msg  '§R°£«ü¥O  Msg=False ®É°±¥Î
   Next
End Sub

TOP

½Ð°Ý¦p¦ó¸Ñ¨Mexcel¤£¯à´¡¤J©Î§R°£Äæ©M¦C
mmggmm µoªí©ó 2010-7-23 12:20



    ·|¤£·|¬O­¶­±«OÅ@¤F?
¤u¨ã->«OÅ@->«OÅ@¤u§@ªí
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD