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

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确实是随机生成的。我加了一个循环次数判断，如果超过了还不能匹配的话就终止，以防死循环！

你可以这样，定义一个变量，比如说time=0，在循环里面每次循环time++，循环的判断条件就是while（time<200）就行了

这里有延时函数的介绍

/ 函数类型：void （无返回值）

函数接口：delay(int)

例如在程序中取得n秒的延时，只要在代码中加入 delay(n) 即可。注：n 为 int 类型。

/

/ 调用时请务必#include <timeh> 头文件 /

函数代码如下：

void delay(int seconds)

{

clock_t start = clock();

clock_t lay = (clock_t)seconds CLOCKS_PER_SEC;

while ((clock()-start) < lay) ;

}

可以函数里面设定每一秒执行一次

以上就是关于excel如何编写循环的自定义函数全部的内容，包括:excel如何编写循环的自定义函数、C语言中想要一个while循环程序在2秒内结束并向下继续运行，用哪个函数，怎么用或者怎么停止循环、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！