從list當中隨機取資料

okeyla

有個VBA取資料的想法，
若在VBA程式內宣告一個內容有100個名字的list，
執行程式時根據使用者選取的範圍內的儲存格數目，以亂數取出list當中內容，並貼上那範圍內的所有儲存格。
這需求有沒有好的範例呢？

qline302

Sub RandName()  '随机值

Dim i, pick, arrX() As String, strPick As String

ReDim arrX(100)
'模拟100个名字
For i = 1 To 100
    arrX(i) = i
Next

'模拟取6个随机值
pick = 6

'执行随机数
i = 1
Do While i <= pick
    strPick = Int((Rnd() * 100) + 1) & "," & strPick
    i = i + 1
Loop

'输出结果
MsgBox strPick

End Sub

okeyla

若真正丟入中文名字, VBA編輯器當中看到是正確的中文, 但程式最後貼上儲存格卻是亂碼.
請問有沒有解決辦法呢?

liulang0808

okeyla 发表于 2024-1-16 06:56
若真正丟入中文名字, VBA編輯器當中看到是正確的中文, 但程式最後貼上儲存格卻是亂碼.
請問有沒有解決辦法 ...

什么版本的excel？
是否兼容啊？