標題: [發問] 欄數引用的小問題_用數字取代英文字母 [打印本頁]

---

作者: swatt    時間: 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

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

先感謝各位大大了~

---

作者: Hsieh    時間: 2013-3-22 13:46

回復 1# swatt
一欄一欄操作
For i = 1 To 2
Columns(i).Interior.ColorIndex = 4
Next

---

作者: swatt    時間: 2013-3-22 17:46

回復 2# Hsieh


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

---

作者: GBKEE    時間: 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

複製代碼

---

作者: swatt    時間: 2013-4-26 11:03

回復 4# GBKEE


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)