[已解决]求一自定函数

天上的云pc

求一自定函数

最佳答案

月排行榜 / 总排行榜

JX_shangrila

2016-6-19 19:47

见附件

跳转到最佳答案楼层

JX_shangrila

Function xx(ByVal a As Range, ByVal b As Range, ByVal c As Range)
    If a + b >= 7 And a + b <= 11 Then xx = 1: Exit Function
    If a + c >= 7 And a + c <= 11 Then xx = 1: Exit Function
    If b + c >= 7 And b + c <= 11 Then xx = 1: Exit Function
    xx = 0
End Function

JX_shangrila

见附件

天上的云pc

JX_shangrila 发表于 2016-6-19 19:47
见附件

发现错误

JX_shangrila

Function xx(ByVal a As Range, ByVal b As Range, ByVal c As Range)
    If a + b >= 7 And a + b <= 11 And a + c >= 7 And a + c <= 11 Then xx = 1: Exit Function
    If b + c >= 7 And b + c <= 11 Then xx = 1: Exit Function
    xx = 0
End Function