標題: [發問] Excel VBA 亂碼產生器 [打印本頁]

---

作者: cjd080    時間: 2015-3-3 23:56     標題: Excel VBA 亂碼產生器

Sub t_rnd()
    Randomize   '初始化亂數產生器
    n = 0
    While n < 4
        x = Int(Rnd * 10)
        
        For s = 0 To 3
            If data(s) = x Then
                y = 1
                Exit For
            Else
                y = 0
            End If
        Next
        
        If y = 0 Then
            data(n) = x
            n = n + 1
            
        End If
    Wend
    ran = data(0) & data(1) & data(2) & data(3)
    l = 5
   
End Sub

這是不材小弟所寫的亂碼產生公式
Randomize 是產生亂碼的指令 但是他只是有順序的產生數字
每次從新啟動該指令他都產生相同順序的數字
我想請問有沒有辦法產生真的亂碼 每次啟用絕不會重複的亂碼

---

作者: GBKEE    時間: 2015-3-4 08:44

回復 1# cjd080

1. 每次從新啟動該指令他都產生相同順序的數字

複製代碼

如圖 沒有這情形.


[attach]20367[/attach]

---

作者: cjd080    時間: 2015-3-14 23:55

GBKEE 版主感謝您的回覆
最近比較忙 經過您的提醒
小弟也再次做測試
數據果然如您所回覆
之前是小的沒看清楚 感謝您

---

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