- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28

|
6#
發表於 2013-2-28 13:41
| 只看該作者
本帖最後由 kimbal 於 2013-2-28 13:42 編輯
如要在指定儲存格如要在D2,D5,D10進行隨機寫入A行的數值應該點寫?
wwh126 發表於 2013-2-28 08:09 
方法有很多, 這是其1- Sub test()
- Dim dic
- Dim itemCount, randItem, randItemCounter, strKey
- Dim dataOffset
-
- Set dic = CreateObject("Scripting.Dictionary")
- dic.Add "D2", "D2"
- dic.Add "D5", "D5"
- dic.Add "D10", "D10"
-
- dataOffset = 0
-
- For itemCount = dic.Count To 1 Step -1
- randItem = Int(itemCount * Rnd) + 1
- randItemCounter = 0
- For Each strKey In dic.Keys
- randItemCounter = randItemCounter + 1
- If randItemCounter = randItem Then
- Range(dic.Item(strKey)).Value = Range("A1").Offset(dataOffset, 0).Value
- dataOffset = dataOffset + 1
- Call dic.Remove(strKey)
- Exit For
- End If
- Next
- Next
- End Sub
複製代碼 |
|