返回列表 上一主題 發帖

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

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-14 14:26 | 只看該作者

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

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

上標字修改.rar (5.66 KB)

收藏 分享
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
276  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2012-9-14 16:39 | 只看該作者
回復 2# Hsieh
謝謝回覆
程式是將所有數字都變成上標字，目前用在單位欄應該是可以的
若我要應用在說明欄時情況比較複雜，裡面有其他數字存在，是否 判斷為  CM2 CM3 M2 M3  的文字時數字才變成上標字
若需要範例需要等晚上我才有空處理。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
4#
發表於 2012-9-14 20:28 | 只看該作者
  1. Cells.Replace "m2", "m" & ChrW(178)
  2. Cells.Replace "m3", "m" & ChrW(179)
複製代碼

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
5#
發表於 2012-9-14 21:24 | 只看該作者
回復 4# chin15

這樣也可以，超過我的預想，太厲害了，謝謝。
查了一下說明
ChrW 函數則傳回一個包含Unicode 字元的String，若在不支援Unicode的平台上，其功能與Chr函數相同。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題