
excel
Sub GenerateRandomNumbers() Dim i As Integer For i = 1 To 100 If i Mod 3 = 0 And i Mod 5 = 0 Then MsgBox i & " is divisible by 15" Exit For End If If i Mod (5 * 3) = 0 Then MsgBox i & " is divisible by 75" Exit For End If NextEnd Sub3. 点击保存按钮,保存代码为"GenerateRandomNumbers"。4. 返回到excel主界面,在VBA编辑器中找到"插入"选项卡,在其中找到"宏"按钮并点击。5. 在弹出的对话框中选择刚才保存的代码文件,并点击打开。6. 弹出的对话框中会显示所有可用的宏。找到刚才保存的代码文件,并点击运行。这个程序会循环生成100以内的随机数,并输出能够被15整除和能够被75整除的数。你可以根据需要修改数字范围和条件来生成所需要的随机数。希望这个回答对你有帮助!如果还有其他问题,请随时问我。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号