Escibir letra a letra en una celda

[nito1972]

Hola a todos;
He estado tratando de averiguar si por medio de una macro se puede anotar un texto, número o ambos en una hoja pero con la particularidad de que los números o letras se vayan...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

anotar un texto, número o ambos en una hoja pero con la particularidad de que los números o letras se vayan escribiendo uno a uno

puedes...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola @nito1972,
En adjunto escribe un carácter por segundo. Un saludo, Fernando

 

[nito1972]

puedes usar llamadas a procedimientos recursivos que vayan depositando caracteres en una celda, segun texto indiques en el codigo o le digas de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Hola @nito1972,
En adjunto escribe un carácter por segundo. Un saludo, Fernando

Hola Fernando, muchas gracias a ti también...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Hola Fernando, muchas gracias a ti también por responder, está muy bien su propuesta.
Ya he hecho diversas pruebas y va bien.
Sólo una cosa a...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola @nito1972,
Aquí tienes un código en el que puedes indicar el intervalo que quieras entre caracteres con precisión de milésimas de segundo:
[ATTACH...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Suponiendo que trabajes en 64 bits...

Para sistemas de 64 Bit
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
Para sistemas de 32 bits
Public Declare Sub Sleep Lib...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Aprovechando lo aportado por Fernando:

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
'--
Sub Máquina_escribir()
Range("A2") = ""
For i = 1 To Len(Range("A1"))...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Aprovechando lo aportado por Fernando:

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
'--
Sub Máquina_escribir()...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Suponiendo que trabajes en 64 bits...

Para sistemas de 64 Bit
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
Para...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Si lo quieres en una función:

Function MáquinaEscribir(Texto As String, Donde As Range, Retardo As Integer)
Donde = ""
For i = 1 To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Hola @nito1972,
Un gusto haber podido ayudar. Para dar el tema por cerrado, si quieres, puedes marcar como solución una de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Me parece bien, un placer haber podido aportar un poco de ayuda. Un saludo, Fernando

 

[nito1972]

Me parece bien, un placer haber podido aportar un poco de ayuda. Un saludo, Fernando

Igualmente, se lo agradezco.
Buen día.

 

[Leopoldo Blancas]

Doy el tema por resuelto.

Y si le das un sonido como "Beep" a cada "teclazo" se asemeja más a la máquina de escribir...!!!

 

[Macro Antonio]

Aunque ya se ha tratado varias veces, no está demás recordar que existen los parámetros opcionales en las funciones.

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Y si le das un sonido como "Beep" a cada "teclazo" se asemeja más a la máquina de escribir...!!!

Hola Leopoldo, buena idea...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nito1972]

Aunque ya se ha tratado varias veces, no está demás recordar que existen los parámetros opcionales en las funciones.

Public Declare PtrSafe...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Y si le das un sonido como "Beep" a cada "teclazo" se asemeja más a la máquina de escribir...!!!

¡Buena idea, Leopoldo! Eso es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí