Anónimo
Macro para crear dato alfanumerio aleatorio en excel
Quisiera que me ayudaran a crear una macro que haga un numero alfanumérico aleatorio en excel, por ejemplo: 1A2B3C y al correr la macro nuevamente en la celda inferior me de otro dato alfanumérico.
1 Respuesta
Respuesta de hugolaza
1
Coloca la rutina que te estoy enviando en un módulo de Visual Basic. ¿Cómo?
* Abre el Editor de Visual Basic Alt-F11
* En el Menú de Opciones, haz click en el Menu Insertar y luego selecciona Módulo.
*En el módulo que aparece, copia el siguiente código
Sub AleatorioAlfanumerico()
For a = 1 To 6
b = Int((35 * Rnd) + 1)
If b <= 9 Then
AlfaNumerico = AlfaNumerico & b
Else
AlfaNumerico = AlfaNumerico & Chr(b + 55)
End If
Next a
Range("A65536").End(xlUp).Offset(1, 0) = AlfaNumerico
End Sub
* Cierra el Editor de Visual Basic
Ahora ejecuta la macro así :
* Alt-F8 - selecciona AleatorioAlfanumerico - Ejecutar
* Abre el Editor de Visual Basic Alt-F11
* En el Menú de Opciones, haz click en el Menu Insertar y luego selecciona Módulo.
*En el módulo que aparece, copia el siguiente código
Sub AleatorioAlfanumerico()
For a = 1 To 6
b = Int((35 * Rnd) + 1)
If b <= 9 Then
AlfaNumerico = AlfaNumerico & b
Else
AlfaNumerico = AlfaNumerico & Chr(b + 55)
End If
Next a
Range("A65536").End(xlUp).Offset(1, 0) = AlfaNumerico
End Sub
* Cierra el Editor de Visual Basic
Ahora ejecuta la macro así :
* Alt-F8 - selecciona AleatorioAlfanumerico - Ejecutar