標題: 請教隨機 限定高手 [打印本頁]

---

作者: duck_simon    時間: 2023-9-8 13:08     標題: 請教隨機 限定高手

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

說明於附件內..謝謝 !

---

作者: hcm19522    時間: 2023-9-8 15:05

https://hcm19522.blogspot.com/2023/09/11776.html

---

作者: duck_simon    時間: 2023-9-8 15:56

回復 2# hcm19522

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

---

作者: Andy2483    時間: 2023-9-8 16:41

回復 1# duck_simon


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

[attach]36799[/attach]

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

---

作者: hcm19522    時間: 2023-9-8 17:29

回復 3# duck_simon

区域数组公式 :公式下B3-->ENTER-->圈選B3:C3->游標放公式上-->shift+ctrl+enter三鍵一起按   方式二較簡單

---

作者: duck_simon    時間: 2023-9-8 18:14

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

回復 4# Andy2483


     感謝大大的VB 我知道您是高手..但我出現這個..哪裡[attach]36800[/attach][attach]36800[/attach]要更改? "不正確的內部程序"

---

作者: duck_simon    時間: 2023-9-8 18:14

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

回復 5# hcm19522


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)