返回列表 上一主題 發帖

請教隨機 限定高手

請教隨機 限定高手

請教隨機限定高手..
vb或函數寫法都可..隨機數限定..

說明於附件內..謝謝 !

隨機數.rar (7.84 KB)

隨意窩 "EXCEL迷"  blog  或https://hcm19522.blogspot.com/ EXCEL函數

TOP

回復 2# hcm19522

回大大:似乎複製右啦.哪個絕對位址出錯?
    C3 出現大於C2  請指教...謝謝!

TOP

回復 1# duck_simon


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

20230908-1.jpg
2023-9-8 16:40


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

回復 3# duck_simon

区域数组公式 :公式下B3-->ENTER-->圈選B3:C3->游標放公式上-->shift+ctrl+enter三鍵一起按   方式二較簡單
隨意窩 "EXCEL迷"  blog  或https://hcm19522.blogspot.com/ EXCEL函數

TOP

本帖最後由 duck_simon 於 2023-9-8 18:20 編輯

回復 4# Andy2483


     感謝大大的VB 我知道您是高手..但我出現這個..哪裡
2023-09-08_180700_page-0001.jpg
2023-9-8 18:19
要更改? "不正確的內部程序"

TOP

本帖最後由 duck_simon 於 2023-9-8 18:28 編輯

回復 5# hcm19522


    回大大高手..正努力測試中  成功!  感謝高手

TOP

        靜思自在 : 君子立恆志,小人恆立志。
返回列表 上一主題