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

29249946

½Ð°Ý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

bvge

¦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

29249946

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

gong

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

Hsieh

°ò¥»¤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)

¤U¸ü¦¸¼Æ: 23

2011-4-5 18:13

29249946

¦^´_ 5# Hsieh


   ÁÂÁ©O!!

trainee

¦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

Hsieh

¦^´_ 7# trainee


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

trainee

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

zse4rfv41

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