½Ð°Ý¦p¦ó±N¦h­ÓÀx¦s®æ¤ºªº¼Æ¦r§Ö³t¤@°_¤U¼Ð?

´Ñ»y³¾»ï

°²³]A1:F90Àx¦s®æ¤¤¦³­^¤å»P¼Æ¦rªº²Õ¦X
¨Ò:A5GR95J6L8W9¡A½Ð°Ý­n¦p¦óÅý¦h­ÓÀx¦s®æ¤ºªº¼Æ¦r(¬õ¦â³¡¤À)¥þ³¡¤U¼Ð?

chin15

°²³]A1:F90Àx¦s®æ¤¤¦³­^¤å»P¼Æ¦rªº²Õ¦X
¨Ò:A5GR95J6L8W9¡A½Ð°Ý­n¦p¦óÅý¦h­ÓÀx¦s®æ¤ºªº¼Æ¦r(¬õ¦â³¡¤À)¥þ³¡¤U ...
´Ñ»y³¾»ï µoªí©ó 2011-9-5 18:18

1. Sub yy()
   
2. For Each c In [a1:f90]
   
3. For i = 1 To Len(c)
   
4. If Asc(Mid(c, i, 1)) < 64 Then
   
5. c.Characters(i, 1).Font.Subscript = True
   
6. End If
   
7.     Next
   
8. Next
   
9. End Sub

½Æ»s¥N½X

´Ñ»y³¾»ï

¦^´_ 2# chin15


    ·PÁ±zªº¦^ÂÐ!¸Ñ¨M¤F§Ú¤£¤Öªº°ÝÃD!
¯à°Ý¤@¤U²Ä¥|¦æ¤¤AscÁÙ¦³<64¬O¤°»ò·N«ä¶Ü??

kimbal

ASCII ªí¤U65¥H«eªº¦r²É
http://www.asciitable.com/
64=@, 65=A,  66=B,.... 89=Y, 90=Z,...97=a (¤p¼g),98=b,....

GBKEE

´M§ä¼Æ¦r¥i¥Î If Mid(c, i, 1) Like "[0-9]" Then
´À´« If Asc(Mid(c, i, 1)) < 64 Then

´Ñ»y³¾»ï

¦^´_ 5# GBKEE
¦^´_ 4# kimbal
­ì¨Ó¦p¦¹¡A2¦ì¤j¤jÅý¦h¦h¼W¤Fª¾ÃѤF!¦ý¬O¤p§Ì¦³1ÂI·Q¤£³z!¬°¤°»ò§Ú±N¦¹¥¨¶°§ï¦¨¤U­±¤è¦¡(§Ú·Q±N½d³ò§ï¦bÀx¦s®æ¤W)!«o¤£¯à¨Ï¥Î¡A½Ð°Ý¬O­þ¸Ì¿ù»~¤F??

1. Sub yy()
   
2. Dim k As Range
   
3. Dim y As Range
   
4. Set k = [a1]
   
5. Set y = [b1]
   
6. For Each c In [k:y]
   
7. For i = 1 To Len(c)
   
8. If Asc(Mid(c, i, 1)) < 64 Then
   
9. c.Characters(i, 1).Font.Subscript = True
   
10. End If
    
11. Next
    
12. Next
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# ´Ñ»y³¾»ï
For Each c In Range(k.Address, y.Address)

1. Set k = [a1]
   
2. Set y = [b1]
   
3. MsgBox [k:y].Address   
   
4. MsgBox Range(k.Address, y.Address).Address   

½Æ»s¥N½X

´Ñ»y³¾»ï

¦^´_ 7# GBKEE


    §Ú³o¼Ë´ú¸Õªºµ²ªG!¥u¦³A1¸òB1³o2­ÓÀx¦s®æ·|¤U¼Ð¦Ó¤w!
§Ú¦pªG·QÅý¥L§ì¨úA1»PB1¤Wªº¤å¦r!¨Ó°w¹ï¦ì¸m¨Ó°µ¤U¼Ð!½Ð°Ý­n¦p¦ó­×§ï!
¨Ò¦p:§Ú¦bA1¥´B10
                   B2¥´C21
¥L´N·|¦Û°Ê°w¹ïB10:C21½d³ò¤º°µ¤U¼Ð!

GBKEE

¦^´_ 8# ´Ñ»y³¾»ï
©Ò¥H¸Ü­n»¡²M·¡,´N¤£®ö¶O®É¶¡
For Each c In Range(k.Value, y.Value)

´Ñ»y³¾»ï

¦^´_ 9# GBKEE


    ­ì¨ÓÁÙ¦³³o¤@©Û³á!¤p§Ì¤~²¨¾Ç²L~¤µ¤Ñ¤S±q¤j®v¨­¤W¦h¾Ç¤@©Û¤F!Thank  you~