[VBA ] 请益Excel VBA Function取得函数引数字段

楼主: innerpeace (俯首甘为孺子牛)   2017-08-17 16:48:51
各位高手 大家好:
我的Function函数如下:
'函数-横列资料计算Low
Function RowDataToGet_Low(StartColumn As String, StartRows As
Integer, DataNumber As Integer) As Single
Dim vLow_Output As Single, vStartColumn As Integer, vEndColumn As Integer
vStartColumn = Range(StartColumn & 1).Column
vEndColumn = vStartColumn + DataNumber - 1
vLow_Output = WorksheetFunction.Min(Range(Cells(StartRows,
vStartColumn), Cells(StartRows, vEndColumn)))
RowDataToGet_Low = vLow_Output
End Function
目前起始字段 我是在函数引数中 用人工输入的,例如:
StartColumn="E"
StartRows=5
如果起头的字段变量 改用选取储存格的方式,会带入储存格内的值,就不是我要的
请问如何让函数的变量 可以用选取的方式得到该储存格的字段?以方便带入计算
感激不尽!!!
作者: hulapig (呼拉猪)   2017-08-18 21:57:00
其实你的datanumber也不需要,因为输入已经是你所选取的range
作者: noworneverev (小朋友)   2017-08-17 20:29:00
用个activecell还是selection就好了吧
楼主: innerpeace (俯首甘为孺子牛)   2017-08-17 22:48:00
有喔 我原本有用sub副程式写出你说的方式这里想请教的是 技术上能否给function一个字段(用选取的)然后计算对应位置的资料 因为资料量大 且有些位置置不固定 所以才想写成函数方便使用 或有更好的方法?
作者: hulapig (呼拉猪)   2017-08-17 23:41:00
你的范例是求最小值,应该不需要用到vba你可以合并前两项,用startRange as RangestartRange.column 和.row取你要的数值
楼主: innerpeace (俯首甘为孺子牛)   2017-08-18 02:32:00
我改好了!原来这么简单,谢谢!!!

Links booklink

Contact Us: admin [ a t ] ucptt.com