標題: 如何隨機選號? [打印本頁]

---

作者: q1a2z5    時間: 2014-6-3 22:54     標題: 如何隨機選號?

如何在儲存格範圍內隨機選1至4個號碼，而選到的號碼以某種方式來表示．
謝謝！
如附件

---

作者: GBKEE    時間: 2014-6-4 07:03

本帖最後由 GBKEE 於 2014-6-4 13:24 編輯

回復 1# q1a2z5
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer, x As Integer, S As String
   
4.     Set Rng = Range("C4:H8")            '範圍儲存格
   
5.     With Rng
   
6.         .Interior.ColorIndex = xlNone   '清除儲存格的圖示顏色
   
7.         .Font.ColorIndex = xlAutomatic  '字體的顏色為自動
   
8.     End With
   
9.     Do
   
10.        Randomize  ' 對亂數產生器做初始化的動作。
    
11.         x = Int((Rng.Count - 1 + 1) * Rnd + 1) '1 到 範圍儲存格數間的隨機數
    
12.         If InStr(S, Format(x, "00")) = 0 Then '隨機數不重複
    
13.             S = S & Format(x, "00")
    
14.             With Rng(x)                       '隨機數儲存格
    
15.                 .Interior.Color = vbCyan
    
16.                 .Font.Color = vbRed
    
17.             End With
    
18.         End If
    
19.     Loop Until Len(S) = 8 '隨機數達4次
    
20. End Sub

複製代碼

---

作者: q1a2z5    時間: 2014-6-4 10:46

謝謝大大的解答，
第一次選取數字：86 29 35 90
第二次選取數字：38 15 47 50
第三次選取數字：11 04 90 43
將檔案關閉再開啟檔案再執行一次和上列三行所選取的數字是一樣的？
可有辦法解決？
謝謝！

---

作者: stillfish00    時間: 2014-6-4 13:24

回復 3# q1a2z5

可在最前面加上Randomize Time看看。

---

作者: GBKEE    時間: 2014-6-4 13:25

回復 3# q1a2z5

2# 已更新 加上

1. Randomize  ' 對亂數產生器做初始化的動作

複製代碼

---

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