【奖励50币】VBA函数中如何引用range变量的部分区域

dian613595

1872

收藏 2017-10-28

悬赏 50 个论坛币已解决

请问VBA函数中如何引用range变量的部分区域。如下：

Function fff(a As Range) ' 假设变量a是8行1列
fff = Application.WorksheetFunction.Max(a(1:6,1)) ' 想找出变量a前6行中的最大值，但这样写有问题，应该怎样写呀？
End Function

谢谢！

最佳答案

old8xp 查看完整内容

Function fff(a As Range) As Integer a_column = a.Column ’取列号 With a myrange = Range(.Cells(1, a_column), .Cells(6, a_column)) ’ 定义a的前6行，作为range End With fff = Application.WorksheetFunction.Max(myrange) End Function

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

old8xp

2017-10-28 16:55:11

Function fff(a As Range) As Integer
a_column = a.Column ’取列号
With a
myrange = Range(.Cells(1, a_column), .Cells(6, a_column)) ’ 定义a的前6行，作为range
End With
fff = Application.WorksheetFunction.Max(myrange)

End Function

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

old8xp

2017-10-29 00:42:36

Function fff(a As Range) As Integer
a_column = a.Column ’取列号
With a
myrange = Range(.Cells(1, a_column), .Cells(6, a_column)) ’ 定义a的前6行，作为range
End With
fff = Application.WorksheetFunction.Max(myrange)

End Function

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群