excel如何编写循环的自定义函数
1个回答
2017-05-06 · 百度知道合伙人官方认证企业
育知同创教育
1【专注:Python+人工智能|Java大数据|HTML5培训】 2【免费提供名师直播课堂、公开课及视频教程】 3【地址:北京市昌平区三旗百汇物美大卖场2层,微信公众号:yuzhitc】
向TA提问
关注
展开全部
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确实是随机生成的。我加了一个循环次数判断,如果超过了还不能匹配的话就终止,以防死循环!
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确实是随机生成的。我加了一个循环次数判断,如果超过了还不能匹配的话就终止,以防死循环!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询