- 帖子
- 353
- 主題
- 5
- 精華
- 0
- 積分
- 386
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-5-4
 
|
本帖最後由 singo1232001 於 2023-10-17 18:43 編輯
回復 1# hcm19522
Sub test()
tx = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Debug.Print Mid(tx, Round(Rnd * 62, 0) + 1, 1)
End Sub
Sub 十組隨機數1到62()
For i = 1 To 10
Debug.Print Round(Rnd * 62, 0) + 1
Next
End Sub |
|
發表於 2023-10-17 18:42
| 