返回列表下一主題上一主題發帖

[分享] 隨機產生

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1804
主題: 188
精華: 0
積分: 1997
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-9

熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-10-16 16:46 | 只看該作者

[分享] 隨機產生

隨機產生 A~Z a~z 0~9 三項且按比率產生其意字母26個產生機會較多數字 10較少

樓主熱帖

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2023-10-17 18:42 | 只看該作者

本帖最後由 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

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1804
主題: 188
精華: 0
積分: 1997
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-9

熱烈參與勳章

3^#

發表於 2023-10-18 10:25 | 只看該作者

回復 2# singo1232001

https://hcm19522.blogspot.com/2023/10/az-az-09-11899.html

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

返回列表下一主題上一主題