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

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

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

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

°²³]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

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-9-6 21:14 ½s¿è

¦^´_ 2# chin15


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

TOP

ASCII ªí¤U65¥H«eªº¦r²É
http://www.asciitable.com/
64=@, 65=A,  66=B,.... 89=Y, 90=Z,...97=a (¤p¼g),98=b,....
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

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

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-7 19:54 ½s¿è

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-9-8 20:06 ½s¿è

¦^´_ 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¼Ð!

TOP

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

TOP

¦^´_ 9# GBKEE


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

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD