求助如何用VBA实现PPT文本框不重复姓名(随机抽奖)

大清

随机抽取TextBox1.Text不重复姓名到PPT各文本框(即名单在TextBox1.Text中，如何用VBA实现到其他各TextBox.Text后姓名不重复)，请老师指点。

422904z

只能保证一次之间不重复

大清

422904z 发表于 2014-11-13 10:11
只能保证一次之间不重复

谢谢，很好，已解决！此贴必火火火......

sdwf0211

422904z 发表于 2014-11-13 10:11
只能保证一次之间不重复

简直就是大神啊

天念水

厉害厉害~~~~~~~~

abigailluck

422904z 发表于 2014-11-13 10:11
只能保证一次之间不重复

好像不适合64位系统呢

chxw68

1. Dim brr As Variant
   
2. Private Sub cmd_ok_Click()
   
3.   Dim r%, i%
   
4.   If Not IsArray(brr) Then
   
5.     brr = Split(Me.txt_0.Text, "；")
   
6.   End If
   
7.   If Me.cmd_ok.Caption = "开始" Then
   
8.     Me.cmd_ok.Caption = "停"
   
9.     Do While Me.cmd_ok.Caption = "停"
   
10.       For i = 0 To 14
    
11.         m = Int(Rnd() * (UBound(brr) - i)) + i + 1
    
12.         temp = brr(i)
    
13.         brr(i) = brr(m)
    
14.         brr(m) = temp
    
15.       Next
    
16.       For i = 0 To 14
    
17.         Me.Shapes("txt_" & i + 1).OLEFormat.Object.Text = brr(i)
    
18.       Next
    
19.       DoEvents
    
20.     Loop
    
21.   Else
    
22.     Me.cmd_ok.Caption = "开始"
    
23.     End
    
24.   End If
    
25. End Sub
    

复制代码

chxw68

才开始学习PPT VBA。

CPLASF

不错不错不错不错

术木东

不错不错不错不错