[發問] 單位字串裡的上標字修改

ML089

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

上標字修改.rar (5.66 KB)

下載次數: 9

2012-9-14 14:25

下載 (30.16 KB)

2012-9-14 14:26

Hsieh

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

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

chin15

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

複製代碼

ML089

回復 4# chin15

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