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

½Ð°Ý¦p¦ó±N¦h­ÓÀx¦s®æ¤ºªº¼Æ¦r§Ö³t¤@°_¤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

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD