返回列表 上一主題 發帖

請教隨機 限定高手

請教隨機 限定高手

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

說明於附件內..謝謝 !

隨機數.rar (7.84 KB)

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

TOP

回復 2# hcm19522

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

TOP

回復 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

回復 3# duck_simon

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

TOP

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

回復 4# Andy2483


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

TOP

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

回復 5# hcm19522


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

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題