請問如何將多個儲存格內的數字快速一起下標?

棋語鳥鳴

假設A1:F90儲存格中有英文與數字的組合
例:A5GR95J6L8W9，請問要如何讓多個儲存格內的數字(紅色部分)全部下標?

chin15

假設A1:F90儲存格中有英文與數字的組合
例:A5GR95J6L8W9，請問要如何讓多個儲存格內的數字(紅色部分)全部下 ...
棋語鳥鳴 發表於 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

複製代碼

棋語鳥鳴

回復 2# chin15


    感謝您的回覆!解決了我不少的問題!
能問一下第四行中Asc還有<64是什麼意思嗎??

kimbal

ASCII 表下65以前的字粒
http://www.asciitable.com/
64=@, 65=A,  66=B,.... 89=Y, 90=Z,...97=a (小寫),98=b,....

GBKEE

尋找數字可用 If Mid(c, i, 1) Like "[0-9]" Then
替換 If Asc(Mid(c, i, 1)) < 64 Then

棋語鳥鳴

回復 5# GBKEE
回復 4# kimbal
原來如此，2位大大讓多多增了知識了!但是小弟有1點想不透!為什麼我將此巨集改成下面方式(我想將範圍改在儲存格上)!卻不能使用，請問是哪裡錯誤了??

1. Sub yy()
   
2. Dim k As Range
   
3. Dim y As Range
   
4. Set k = [a1]
   
5. Set y = [b1]
   
6. For Each c In [k:y]
   
7. For i = 1 To Len(c)
   
8. If Asc(Mid(c, i, 1)) < 64 Then
   
9. c.Characters(i, 1).Font.Subscript = True
   
10. End If
    
11. Next
    
12. Next
    
13. End Sub

複製代碼

GBKEE

回復 6# 棋語鳥鳴
For Each c In Range(k.Address, y.Address)

1. Set k = [a1]
   
2. Set y = [b1]
   
3. MsgBox [k:y].Address   
   
4. MsgBox Range(k.Address, y.Address).Address   

複製代碼

棋語鳥鳴

回復 7# GBKEE


    我這樣測試的結果!只有A1跟B1這2個儲存格會下標而已!
我如果想讓他抓取A1與B1上的文字!來針對位置來做下標!請問要如何修改!
例如:我在A1打B10
                   B2打C21
他就會自動針對B10:C21範圍內做下標!

GBKEE

回復 8# 棋語鳥鳴
所以話要說清楚,就不浪費時間
For Each c In Range(k.Value, y.Value)

棋語鳥鳴

回復 9# GBKEE


    原來還有這一招喔!小弟才疏學淺~今天又從大師身上多學一招了!Thank  you~