返回列表 上一主題 發帖

[發問] 欄數引用的小問題_用數字取代英文字母

swatt

帖子
37 
主題
11 
精華
0 
積分
87 
點名
0  
作業系統
window7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-14 
最後登錄
2022-5-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-3-22 10:42 | 只看該作者

[發問] 欄數引用的小問題_用數字取代英文字母

請問高手大大,
一個小問題，感覺很簡單，卻一直找不到答案????
如以下例句:
Columns("A:B").Interior.ColorIndex = 4

我想要用數字 1 取代A, 2取代B
Columns("1:2").Interior.ColorIndex = 4
或
Columns(1:2).Interior.ColorIndex = 4

都不可行，應該是要怎麼寫呢?

先感謝各位大大了~
收藏 分享

swatt

帖子
37 
主題
11 
精華
0 
積分
87 
點名
0  
作業系統
window7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-14 
最後登錄
2022-5-30 
5#
發表於 2013-4-26 11:03 | 只看該作者
回復 4# GBKEE


抱歉, 一段時間沒上來所以沒注意到...
此方法可行，感謝GBKEE超級版主~

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-3-22 18:14 | 只看該作者
回復 3# swatt
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Columns(2).Resize(, 5).Interior.ColorIndex = 4
  4.     '如"B:F"-> Resize(, 5)=5欄
  5. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

swatt

帖子
37 
主題
11 
精華
0 
積分
87 
點名
0  
作業系統
window7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-14 
最後登錄
2022-5-30 
3#
發表於 2013-3-22 17:46 | 只看該作者
回復 2# Hsieh


  還是要跑迴圈喔，因為資料量比較大，本來是想要省點時間....
  感謝超級版主回覆~

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-3-22 13:46 | 只看該作者
回復 1# swatt
一欄一欄操作
For i = 1 To 2
Columns(i).Interior.ColorIndex = 4
Next
學海無涯_不恥下問

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題