¿Cómo hago aparecer un texto aleatorio cada vez que haga clic en el botón?
Buen día. Esta es una tabla de colores previamente capturada:
A B C D . . .
1 ROJO
2 VERDE
3 AMARILLO
4 AZUL
4 BLANCO
5 NEGRO
6
7 Haga clic en el botón para asignarle un color --------> ¦¦¦¦¦
8 Su color asignado es: (aquí debe aparecer el color asignado aleatoriamente)
Mi computadora tiene instalado excel 2007.
Gracias anticipadas.
1 respuesta
Prueba a llamar a este código desde tu botón:
Sub elegirColorAleatorio()
Dim n As Integer
' Inicializamos los números aleatorios
Randomize Timer
' Generamos un número aleatorio entre 1 y 6
n = Int(Rnd * 6) + 1
' Cogemos el valor que tiene la columna "A" en esa línea y
' lo escribimos en A8 con el texto indicado delante
Cells(1, 8) = "El color asignado es: " & Cells(n, 1)
End Sub
Aunque no tengo mucho conocimiento me salio en pocos minutos.
Le agradezco su ayuda, mi pregunta fue contestada perfectamente.
Que esté bien.
