[已解决]关于是用VBA在单元格内多个数值计算且需要判断的问题，求助

ccc919

请问该表达式如何加入条件判断语句，计算结果如果小于2或者等于2则输出结果为2 如果大于2则正常计算。
例如计算输出结果为 1/2/6/4 则 条件判断后最后输出结果应为 2/2/6/4 ，如计算输出结果为 2/1/1 则判断后最后输出结果为 2/2/2
Function js1(rng)
c = Split(rng, "/")
For o = 0 To UBound(c)
sj1 = Sheets("sheet1").[n33] * 0.01
    c(o) = WorksheetFunction.RoundUp(c(o) * sj1, 0)
Next
js1 = Join(c, "/")
End Function

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-8 16:03

这样?

Function js1(rng As Range)
c = Split(rng, "/")
For o = 0 To UBound(c)
sj1 = Sheets("sheet1").[n33] * 0.01
    c(o) = Application.Max(2, WorksheetFunction.RoundUp(c(o) * sj1, 0))
Next
js1 = Join(c, "/")
End Function

跳转到最佳答案楼层

26759761@qq.com

这样?

Function js1(rng As Range)
c = Split(rng, "/")
For o = 0 To UBound(c)
sj1 = Sheets("sheet1").[n33] * 0.01
    c(o) = Application.Max(2, WorksheetFunction.RoundUp(c(o) * sj1, 0))
Next
js1 = Join(c, "/")
End Function

ccc919

26759761@qq.com 发表于 2015-3-8 16:03
这样?

Function js1(rng As Range)

恩，就是这样。