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

 我来答
育知同创教育
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确实是随机生成的。我加了一个循环次数判断,如果超过了还不能匹配的话就终止,以防死循环!
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式