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

[µo°Ý] ³æ¦ì¦r¦ê¸Ìªº¤W¼Ð¦r­×§ï

[µo°Ý] ³æ¦ì¦r¦ê¸Ìªº¤W¼Ð¦r­×§ï

³æ¦ì CM2 CM3 M2 M3 ªº¼Æ¦r³£»Ý­n­×§ï¤W¼Ð¦r¡A½Ð°Ý¥Î EXCEL VBA ¦p¦ó¿ï¨ú¸ÓÄæ¨Ã¤@¦¸­×§ï§¹¦¨¡C

¤W¼Ð¦r­×§ï.rar (5.66 KB)

{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

¦^´_ 1# ML089
  1. Sub ex()
  2. Dim A As Range
  3. For Each A In Range([C2], [C2].End(xlDown))
  4.   For i = 1 To Len(A)
  5.      If Val(Mid(A, i, 1)) > 0 Then A.Characters(i, 1).Font.Superscript = True
  6.   Next
  7. Next
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
ÁÂÁ¦^ÂÐ
µ{¦¡¬O±N©Ò¦³¼Æ¦r³£Åܦ¨¤W¼Ð¦r¡A¥Ø«e¥Î¦b³æ¦ìÄæÀ³¸Ó¬O¥i¥Hªº
­Y§Ú­nÀ³¥Î¦b»¡©úÄæ®É±¡ªp¤ñ¸û½ÆÂø¡A¸Ì­±¦³¨ä¥L¼Æ¦r¦s¦b¡A¬O§_ §PÂ_¬°  CM2 CM3 M2 M3  ªº¤å¦r®É¼Æ¦r¤~Åܦ¨¤W¼Ð¦r
­Y»Ý­n½d¨Ò»Ý­nµ¥±ß¤W§Ú¤~¦³ªÅ³B²z¡C
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

  1. Cells.Replace "m2", "m" & ChrW(178)
  2. Cells.Replace "m3", "m" & ChrW(179)
½Æ»s¥N½X

TOP

¦^´_ 4# chin15

³o¼Ë¤]¥i¥H¡A¶W¹L§Úªº¹w·Q¡A¤Ó¼F®`¤F¡AÁÂÁ¡C
¬d¤F¤@¤U»¡©ú
ChrW ¨ç¼Æ«h¶Ç¦^¤@­Ó¥]§tUnicode ¦r¤¸ªºString¡A­Y¦b¤£¤ä´©Unicodeªº¥­¥x¤W¡A¨ä¥\¯à»PChr¨ç¼Æ¬Û¦P¡C
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD