返回列表 上一主題 發帖

請教隨機 限定高手

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
1# 跳轉到 »
發表於 2023-9-8 16:41 | 顯示全部帖子
回復 1# duck_simon


    謝謝謝前輩發表此主題與範例
後學學習建議方案如下:



Option Explicit
Sub TEST()
[B4:E4].ClearContents
Do Until [B4] <> [C4]
[B4] = 41 + Int((Rnd() + 1) * 10 ^ 6) Mod 9
[C4] = 41 + Int((Rnd() + 1) * 10 ^ 6) Mod 9
Loop
Do Until [D4] <> [E4]
[D4] = 51 + Int((Rnd() + 1) * 10 ^ 6) Mod 9
[E4] = 51 + Int((Rnd() + 1) * 10 ^ 6) Mod 9
Loop
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題