返回列表 上一主題 發帖

[分享] 隨機產生

hcm19522

帖子
1412 
主題
4 
精華
0 
積分
1422 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-6-4 

熱烈參與勳章
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

帖子
1412 
主題
4 
精華
0 
積分
1422 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-6-4 

熱烈參與勳章
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

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題