- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2014-6-4 13:24 編輯
回復 1# q1a2z5
試試看- Option Explicit
- Sub Ex()
- Dim Rng As Range, i As Integer, x As Integer, S As String
- Set Rng = Range("C4:H8") '範圍儲存格
- With Rng
- .Interior.ColorIndex = xlNone '清除儲存格的圖示顏色
- .Font.ColorIndex = xlAutomatic '字體的顏色為自動
- End With
- Do
- Randomize ' 對亂數產生器做初始化的動作。
- x = Int((Rng.Count - 1 + 1) * Rnd + 1) '1 到 範圍儲存格數間的隨機數
- If InStr(S, Format(x, "00")) = 0 Then '隨機數不重複
- S = S & Format(x, "00")
- With Rng(x) '隨機數儲存格
- .Interior.Color = vbCyan
- .Font.Color = vbRed
- End With
- End If
- Loop Until Len(S) = 8 '隨機數達4次
- End Sub
|
|
發表於 2014-6-4 07:03
| 