求一段exal代码

发布网友发布时间：2022-09-28 10:45

共1个回答

热心网友时间：2024-12-04 10:29

Sub 随机()
    Select Case Int(Rnd * 4) + 1
        Case 1
            [A1] = "价格：16888"
        Case 2
            [A1] = "价格：17888"
        Case 3
            [A1] = "价格：18888"
        Case 4
            [A1] = "价格：19888"
    End Select
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com