返回列表 上一主題 發帖

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

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

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

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

Columns(1:2).Interior.ColorIndex = 4

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

先感謝各位大大了~

回復 1# swatt
一欄一欄操作
For i = 1 To 2
Columns(i).Interior.ColorIndex = 4
Next
學海無涯_不恥下問

TOP

回復 2# Hsieh


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

TOP

回復 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

回復 4# GBKEE


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

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題