[已解决]请教关于随机抽取数据问题

Crystalm · 发表于 2011-12-26 00:05

本帖最后由 Crystalm 于 2011-12-26 00:33 编辑

我有两个TextBox（TextBox1和TextBox2）， TextBox1中有多行数据，如何用VBA随机的抽取N（比如N=3)行不相同的数据到TextBox2中？

最佳答案

liuguansky

2011-12-26 09:16

Private Sub 提取_Click()
Dim Arr, d As New Dictionary, i&, K&, j&, dk As New Dictionary
Arr = Split(TextBox1.Text, Chr(10))
For i = 0 To UBound(Arr)
d(Arr(i)) = ""
Next
If d.Count > 0 Then
K = Application.InputBox("请输入随机获取的记录数", "确认", Application.RoundUp(UBound(Arr) * 0.5 + 0.5, 0), , , , , 1)
If K > 0 And K < UBound(Arr) + 2 Then
Do
j = Int(Rnd() * d.Count)
dk.Add d.Keys(j), ""
d.Remove d.Keys(j)
Loop Until dk.Count = K
TextBox2.Text = Join(dk.Keys, Chr(10))
Else: MsgBox "请确认K的值，范围在1－" & UBound(Arr)
End If
End If
Set d = Nothing
Set dk = Nothing
End Sub

复制代码

随机抽取数据.rar (23.83 KB, 下载次数: 93)

liuguansky · 发表于 2011-12-26 09:16

Private Sub 提取_Click()
Dim Arr, d As New Dictionary, i&, K&, j&, dk As New Dictionary
Arr = Split(TextBox1.Text, Chr(10))
For i = 0 To UBound(Arr)
d(Arr(i)) = ""
Next
If d.Count > 0 Then
K = Application.InputBox("请输入随机获取的记录数", "确认", Application.RoundUp(UBound(Arr) * 0.5 + 0.5, 0), , , , , 1)
If K > 0 And K < UBound(Arr) + 2 Then
Do
j = Int(Rnd() * d.Count)
dk.Add d.Keys(j), ""
d.Remove d.Keys(j)
Loop Until dk.Count = K
TextBox2.Text = Join(dk.Keys, Chr(10))
Else: MsgBox "请确认K的值，范围在1－" & UBound(Arr)
End If
End If
Set d = Nothing
Set dk = Nothing
End Sub

复制代码

随机抽取数据.rar (23.83 KB, 下载次数: 93)

Crystalm · 发表于 2011-12-26 12:22

liuguansky 发表于 2011-12-26 09:16

版主，我想请问下d.keys(j) 代表的是什么意思？是指字典d的第j+1个关键字吗？他是从0开始计数的吗？

Crystalm · 发表于 2011-12-26 13:00

Crystalm 发表于 2011-12-26 12:22
版主，我想请问下d.keys(j) 代表的是什么意思？是指字典d的第j+1个关键字吗？他是从0开始计数的吗？

谢谢版主！学习了。

tang05610104 · 发表于 2014-1-11 21:03

好工具，值得学习

qq8945051 · 发表于 2014-1-12 08:42

学些学习

		自动登录	找回密码
密码			注册