返回列表 上一主題 發帖

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

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-9-5 18:18 | 只看該作者

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

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

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
10#
發表於 2011-9-8 23:12 | 只看該作者
回復 9# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2011-9-8 20:28 | 只看該作者
回復 8# 棋語鳥鳴
所以話要說清楚,就不浪費時間
For Each c In Range(k.Value, y.Value)

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
8#
發表於 2011-9-8 20:04 | 只看該作者
本帖最後由 棋語鳥鳴 於 2011-9-8 20:06 編輯

回復 7# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2011-9-7 19:51 | 只看該作者
本帖最後由 GBKEE 於 2011-9-7 19:54 編輯

回復 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   
複製代碼

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
6#
發表於 2011-9-7 19:37 | 只看該作者
回復 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
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-9-7 09:14 | 只看該作者
尋找數字可用 If Mid(c, i, 1) Like "[0-9]" Then
替換 If Asc(Mid(c, i, 1)) < 64 Then

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2011-9-6 23:19 | 只看該作者
ASCII 表下65以前的字粒
http://www.asciitable.com/
64=@, 65=A,  66=B,.... 89=Y, 90=Z,...97=a (小寫),98=b,....
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
3#
發表於 2011-9-6 21:13 | 只看該作者
本帖最後由 棋語鳥鳴 於 2011-9-6 21:14 編輯

回復 2# chin15


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

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-9-6 08:41 | 只看該作者
假設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
複製代碼

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題