標題: [發問] 單位字串裡的上標字修改 [打印本頁]

---

作者: ML089    時間: 2012-9-14 14:26     標題: 單位字串裡的上標字修改

單位 CM2 CM3 M2 M3 的數字都需要修改上標字，請問用 EXCEL VBA 如何選取該欄並一次修改完成。

[attach]12495[/attach]

[attach]12496[/attach]

---

作者: Hsieh    時間: 2012-9-14 15:34

回復 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

複製代碼

---

作者: ML089    時間: 2012-9-14 16:39

回復 2# Hsieh
謝謝回覆
程式是將所有數字都變成上標字，目前用在單位欄應該是可以的
若我要應用在說明欄時情況比較複雜，裡面有其他數字存在，是否 判斷為  CM2 CM3 M2 M3  的文字時數字才變成上標字
若需要範例需要等晚上我才有空處理。

---

作者: chin15    時間: 2012-9-14 20:28

1. Cells.Replace "m2", "m" & ChrW(178)
   
2. Cells.Replace "m3", "m" & ChrW(179)

複製代碼

---

作者: ML089    時間: 2012-9-14 21:24

回復 4# chin15

這樣也可以，超過我的預想，太厲害了，謝謝。
查了一下說明
ChrW 函數則傳回一個包含Unicode 字元的String，若在不支援Unicode的平台上，其功能與Chr函數相同。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)