作者innerpeace (小宝)
看板Visual_Basic
标题[VBA ] 请益Excel VBA Function取得函数引数栏位
时间Thu Aug 17 16:48:51 2017
各位高手 大家好：
我的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
如果起头的栏位变数 改用选取储存格的方式，会带入储存格内的值，就不是我要的
请问如何让函数的变数 可以用选取的方式得到该储存格的栏位？以方便带入计算
感激不尽!!!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.225.149.103
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1502959733.A.41C.html
1F：→ noworneverev: 用个activecell还是selection就好了吧 08/17 20:29
2F：→ innerpeace: 有喔 我原本有用sub副程式写出你说的方式 08/17 22:48
3F：→ innerpeace: 这里想请教的是 技术上能否给function一个栏位(用选取 08/17 22:51
4F：→ innerpeace: 的)然後计算对应位置的资料 因为资料量大 且有些位置 08/17 22:54
5F：→ innerpeace: 置不固定 所以才想写成函数方便使用 或有更好的方法？ 08/17 22:57
6F：推 hulapig: 你的范例是求最小值，应该不需要用到vba 08/17 23:41
7F：推 hulapig: 你可以合并前两项，用startRange as Range 08/17 23:44
8F：→ hulapig: startRange.column 和.row取你要的数值 08/17 23:45
9F：→ innerpeace: 我改好了!原来这麽简单，谢谢!!! 08/18 02:32
10F：推 hulapig: 其实你的datanumber也不需要，因为输入已经是你所选取的 08/18 21:57
11F：→ hulapig: range 08/18 21:58