Power Point - bingo con numeros aleatorios sin repeticion en power point

   
Vista:

bingo con numeros aleatorios sin repeticion en power point

Publicado por doris (2 intervenciones) el 11/11/2011 20:44:35
estimados:
estoy tratando de hacer un bingo en power point pero no logro hacer que en vez de sacar los numeros a traves de un MsgBox me salgan en un cuadro de texto dentro del mismo power point, ya que necesito ir modificando el power point mientras salen los numeros. espero me entiendan y me puedan ayudar, estoy muy complicada con esto. gracias
aqui va el codigo que estoy utilizando:



Sub Pick_Name()
'Must be a dynamic array ie no range
Dim MyNames() As String
Dim strName As String
Dim Ichosen As Integer
'load list into Array based on split by /
'note will start as MyNums(0) and finish with MyNums(number-1)
MyNames = Split("1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/27/28/29/30", "/")
Do
Randomize
'This will work with any length of name sequence
Ichosen = Int(Rnd * (UBound(MyNames) + 1))
strName = (MyNames(Ichosen))
MsgBox strName
'move top num,ber into chosen slot
MyNames(Ichosen) = MyNames(UBound(MyNames))
If UBound(MyNames) > 0 Then
'delete top number
ReDim Preserve MyNames(0 To UBound(MyNames) - 1)
Else
MsgBox "Bingo"
Exit Sub
End If
Loop Until MsgBox("Siguiente", vbYesNo) = vbNo
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder