Range类型的数据能否作为参数传递?
在sheet中查找指定的内容,在函数A中找到这个cell之后希望将找到的这个range作为参数传递给另外一个函数B,让B函数来分析Range所在的行列值、是否合并的属性,现在发现将找到的这个range传递给函数B时发生崩溃。
高手们知道range如何作为参数进行传递么?
'A
Function A(wsSheet As Worksheet) As Boolean
Set oRange = wsSheet.Cells.Find(What:=EXL_ELEMANTNAME, LookAt:=xlWhole)
B (oRange)
End Function
'B
Function B(oRange As Range)
curcol = oRange.row
End Function
[解决办法]
调用函数B时使用call
Call B (oRange)