VBA如何存取欄中資料

[野荷花]

不好意思，小弟是用EXCEL VBA，雖然是不及格的OOP，但還是希望前輩能小吝相救。

程式碼：
Function r()
Dim a1, x As Range
Set x = Worksheets("總計").Range("B26:B28")
With Sum
For Each a1 In .Range("R26:s28").Columns
mkChart1 數列1:=a1, x_axis:=x
Next a1
End With
End Function

Function mkChart1(數列1 As Range, x_axis As Range)
執行時，它說a1 的編譯錯誤：By ref 的引數型態不符，但Columns是傳回
一個欄的Range物件。為什麼型態會不符呢
而且如果不是用For Each的方式，那就可以跑得動。似乎這一切，都是因為
我不會使用Columns集合屬性的關係。

不知道是否有哪位大哥知道這是怎麼回事?謝謝!

不好意思，小弟知錯了。因為a1被誤處理為varient了
--
Ξ Origin: 中興大學天樞資訊網 <b...@bbs.nchu.edu.tw> [FROM: 210.69.107.250]