Crear Array con Strings y que devuelva uno de los valores en random

[erbuson]

Hola, hay muchas maneras de hacerlo, la mas simple para que lo entiendas facilmente sería por ejemplo esta:

Código vb:

Public Sub DameHora()
 
  Dim A(0 To 6) As String
  Dim R As Long
  A(0) = Range("A1").Value
  A(1) = Range("A2").Value
  A(2) = Range("A3").Value
  A(3) = Range("A4").Value
  A(4) = Range("A5").Value
  A(5) = Range("A6").Value
  A(6) = Range("A7").Value
  Randomize  'Inicializa el generador de semillas aleatorias
  R = Int(Rnd(1) * 7)
 
  Range("K2").Value = A(R)    'R será el índice de la matriz
 
End Sub
 

Para hacerlo de una manera mas elegante, sería en un bucle For Next

Código vb:

Public Sub DameHora()
 
  Dim A(0 To 6) As String
  Dim R As Long, I as Integer
  For I = 0 To 6
    A(I) = Range("A" & Cstr$(I+1)).Value
  Next
  Randomize  'Inicializa el generador de semillas aleatorias
  R = Int(Rnd(1) * 7)
 
  Range("K2").Value = A(R)    'R será el índice de la matriz
 
End Sub
 

Como puedes ver, el bucle va de 0 a 6 que son los indices de A pero I toma los valores de 1 a 7 (I+1) porque son uno mas en la hoja.

Saludos