Function test(aa As Range, bb As Range, cc As Range)
Dim str
If aa.Value > bb.Value Then
str = aa.Value
If str > cc.Value Then
test = str
Else
test = cc.Value
End If
Else
str = bb.Value
If str > cc.Value Then
test = str
Else
test = cc.Value
End If
End If
End Function
注意的是要放在模块里,然后做为函数来调用
Ewin:梦想可以到达的地方，网络就可以做到-开放、平等、自由、充满激情......
posted @ 2008-07-31 20:35
Ewin 阅读(43)
评论(0) 编辑 收藏 网摘 所属分类:
应用常识