Question

excel如何编写循环的自定义函数

Answer 1

Function tieba(a1)
times = 0
Do While True
b1 = Int(Rnd() * (a1 - 1)) + 1
c1 = Int(Rnd() * (a1 - 1)) + 1
times = times + 1
If a1 = b1 + c1 Then
tieba = b1
Exit Do
End If
If times > 400 Then
tieba = "400次内无法找到满足条件的数"
Exit Do
End If
Loop
End Function
-------------------------------------------------------------------
在vba编辑器里新建个模块，把以上代码复制进去就可以了。以后就可以在单元格使用这个函数了，比如说：单元格A1是你的a1，你可以填上100，单元格B1写上公式：=tieba(A1),那么单元格C1就是=100-B1。虽然单元格C1是用两个单元格的值计算的，但是从代码上可以知道，B1和C1确实是随机生成的。我加了一个循环次数判断，如果超过了还不能匹配的话就终止，以防死循环！