excel中的抽奖程序
生活随笔
收集整理的這篇文章主要介紹了
excel中的抽奖程序
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
Sub 矩形2_單擊()
??? Dim a
??? For X = 1 To 666
??????? a = Int((100 - lowerbound + 1) * Rnd + 0)
??????? Sheets("sheet1").Range("a1") = a
??????? Sheets("sheet1").Cells(2, 1) = 200
??? Next
End Sub
??? Dim a
??? For X = 1 To 666
??????? a = Int((100 - lowerbound + 1) * Rnd + 0)
??????? Sheets("sheet1").Range("a1") = a
??????? Sheets("sheet1").Cells(2, 1) = 200
??? Next
End Sub
總結(jié)
以上是生活随笔為你收集整理的excel中的抽奖程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： try except打印详细的错误日志
- 下一篇： 家长课堂：13妙招有效提升孩子注意力