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

[µo°Ý] OFFICE 2003 Excel ¤¤­^¤å¦r«¬

[µo°Ý] OFFICE 2003 Excel ¤¤­^¤å¦r«¬

½Ð°ÝExcel 2003¡AÀx¦s®æ¤ºªº¤¤¤å­n§ï¦¨¼Ð·¢Åé¡A­^¤å§ï¦¨Times New Roman¡A¦³¿ìªk©MWord¤@¼Ë¤¤­^¤å§ï¤£¦P¦r«¬¶Ü?

¤£¥²¨C¦¸­n¥´¦r¹J´N­n§â¤¤­^¤å³£­n¦A­«½Æ§ó§ï¦r«¬¡C

³Â·Ð¦U¦ì¤j¤j¡A²Ä¤@¦¸µo¤å¡A¦³¹H³Wªº¦a¤è½Ð¨£½Ì¡C

¦pªG¤¤¤å¦r³£¬O¥´¦bAÄæ¡AÂI¿ïAÄæ³Ì¤WºÝ¡A¨ÏAÄæ¾ãÄæ¥þ³¡¤Ï¥Õ
µM«á¡A®æ¦¡\Àx¦s®æ\¦r«¬ ¿ï¼Ð·¢Åé ½T©w
¨º¥H«á¥u­n¦bAÄæ¥ô¦ó¤@¦C¥´¦r³£·|Åã¥Ü¬°¼Ð·¢Åé
¦pªG­^¤å¦r³£¬O¥´¦bBÄæ¡A§@ªk¦p¤W

TOP

¥i¬O§Ú¦b²Î­p±b³æ®É¡A¤¤­^¤å³£·|°Ñ¦b¦P¤@®æ¡A³o¼Ë´N«Ü³Â·Ð­n§ï¦r«¬;
¥´¨ì¤¤¤å´«¤@¦¸¡A¥´¨ì­^¤å¤S´«¤@¦¸¡C

TOP

³Ì«á¦A¤@¦¸½s¿è¤£¥i¥H¶Ü
­n§Y®ÉÅã¥Ü§Aªº»Ý¨D¦³§xÃø
ª¾¤§¬°ª¾¤§¡A¤£ª¾¬°¤£ª¾¡A¸Û¹ê¤]¡I

TOP

°ò¥»¤WEXCEL¨ÃµL¦¹¥\¯à
´Nºâ¥´§¹«á­n§ó§ï¦Û¦æ¤]¥²¶·³v¤@¿ï¨ú§ó§ï¦r«¬
­n¹F¨ì³o¼Ë®ÄªG¥i­É§UVBA¨Ó¹F¦¨
¦bthisworkbook¼Ò²Õ¤¤
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2. Dim A As Range
  3. For Each A In Target
  4.    For i = 1 To Len(A)
  5.       k = Asc(Mid(A, i, 1))
  6.       If (k >= 65 And k <= 90) Or (k >= 97 And k <= 122) Then
  7.          A.Characters(i, 1).Font.Name = "Times New Roman"
  8.          ElseIf k >= 255 Or k < 0 Then
  9.          A.Characters(i, 1).Font.Name = "¼Ð·¢Åé"
  10.       End If
  11.    Next
  12. Next
  13. End Sub
½Æ»s¥N½X
³o¼Ë¾ã­Ó¬¡­¶Ã¯¿é¤J®É´N·|¨Ì·Ó¸Ó¤ÀÃþÅã¥Ü¦r«¬ ³¡¤À¦r«¬.rar (7 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


   ÁÂÁ©O!!

TOP

¦A¨£ÃѦh¤@¦¸  Hsieh¶W¯Åª©¥Dªº¥\¤O¡I
¯uªº¨Ï§Ú¬Ý±o¥ØÀü¤f§b¡A«l¡I

½Ð°Ý¡A­Y­n¥þ­¶§¡§@¦¹³]©w¡A
À³¦p¦ó§@¥X§ñ§ï¡H
½Ðª©¥D¨£½Ì¡A§Ú¨Ã¤£¬O­Ê頼§O¤HÀ°¦£¡A
¥u¬O§Ú©ÒÃѦ³­­¡A¤O¦³¤£¶e¡I

TOP

¦^´_ 7# trainee


¤W­±ªºµ{¦¡½X¬O§Q¥Î¬¡­¶Ã¯¨Æ¥ó¡A¾ã­Ó¬¡­¶Ã¯¦³®Ä
­Y­n«ü©w¤u§@ªí¥i§PÂ_Shªº¦WºÙ
©Î¬O±N¦¨¬O§Q¥Î¤u§@ªí¨Æ¥óÅX°Ê
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ trainee ©ó 2011-4-6 18:28 ½s¿è

HSIEH¶W¯Åª©¥D¡A¦hÁ½ç±Ð¡I
:) :)

TOP

¶W¯Åª©¥DHsieh¯u¬O¼F®`
³o­Ó°ÝÃD§xÂZ§Ú«Ü¤[
¦bGOOGLEÀ°§U¤U§ä¨ì¤F³o­Ó¸Ñµª
§Ú¤]¥[¤J¤F¥»½×¾Â
¥i±¤ÁÙ¬O¤p¾Ç¥Í¨­¤À
µLªk¤U¸ü
´Ý©À

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD