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

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-5 18:18 | 顯示全部帖子

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

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

樓主熱帖

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-5

2^#

發表於 2011-9-6 21:13 | 顯示全部帖子

本帖最後由棋語鳥鳴於 2011-9-6 21:14 編輯

回復 2# chin15

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

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-5

3^#

發表於 2011-9-7 19:37 | 顯示全部帖子

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

Sub yy()
Dim k As Range
Dim y As Range
Set k = [a1]
Set y = [b1]
For Each c In [k:y]
For i = 1 To Len(c)
If Asc(Mid(c, i, 1)) < 64 Then
c.Characters(i, 1).Font.Subscript = True
End If
Next
Next
End Sub

複製代碼

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-5

4^#

發表於 2011-9-8 20:04 | 顯示全部帖子

本帖最後由棋語鳥鳴於 2011-9-8 20:06 編輯

回復 7# GBKEE

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

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-5

5^#

發表於 2011-9-8 23:12 | 顯示全部帖子

回復 9# GBKEE

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