我很抱歉,但我无法查看附件。然而,我可以为您提供一个解决方案来实现类似的功能,并且不需要使用取整函数。首先,在函数的参数中添加一个整数类型的常量以定义需要随机生成的范围。然后,在函数体内使用 Application.WorksheetFunction.RandBetween 函数来生成介于底部和顶部之间的随机数。接下来,在 If 语句中比较随机数是否等于 0 或 5。如果是,则返回该随机数;否则,继续执行下一个 If 语句。最后,在 End Function 中结束函数定义。下面是示例代码:Function RND(bottom, top, rng)On Error GoTo end1start:a = Application.WorksheetFunction.RandBetween(bottom, top)If a = 0 Or a = 5 Thenrng = aEnd Ifend starten初你画日究素然声态究d1:RND 读犯专= "" end2:End Function请注意,在上面的示例代码中,我们将随机数存储在一个名为 rng 的变量中,并将其返回给调用者。希望这个解决方案对您有所帮助。如果还有其他问题,请随时告诉我。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号