主题：請教CellRange的用法

VBA单元格区域Range 的語法是:

Dim Rg As MSExcel.Range
Rg= Ws.Range("A2:D4")
Rg = Ws.Rows("5")  '引用第5行
Rg = Ws.Rows("5:8")  '引用第5-8行

Dim Rg As CellRange     '這一行沒報錯
Rg= Tables("表A").CellRange(1,1,5,5)   '這句報錯

'帮助中介绍没找到太多

Dim Rg As C1FlexGrid.CellRange     '這一行沒報錯
Rg = Tables("表B").grid.getCellRange(2,2,5,5)   '這句報錯

'显示区域的上下左右
output.show(Rg.BottomRow)
output.show(Rg.TopRow)
output.show(Rg.LeftCol)
output.show(Rg.RightCol)
'设置区域的背景色
Rg.stylenew.backcolor = color.pink

哈哈,唐兄早晨!請教如何對CellRange賦值呢:

Dim Rg As C1FlexGrid.CellRange    

Rg = Tables("A").grid.getCellRange(1,2,1,2)  

rg.Value = "p"   '報錯Value 不是CellRange的成員

多謝唐兄指教!再請教: CellRange可以如VAB那樣把數組賦值給單元區域嗎?

Dim Rg As C1FlexGrid.CellRange    

Rg = Tables("A").grid.getCellRange(1,2,1,3)  

Dim Array As String() = {"a","b"}   '定义数组

rg.Data = Array   '報錯,長度超出

//似乎只能统一赋值吧

rg.Data = Array(1)