** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Escribir sobre un textbox determinado
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoEscribir sobre un textbox determinado

 Responder Responder
Autor
Mensaje
mariokike Ver desplegable
Habitual
Habitual
Avatar

Unido: 14/Enero/2011
Localización: Honduras
Estado: Sin conexión
Puntos: 197
Enlace directo a este mensaje Tema: Escribir sobre un textbox determinado
    Enviado: 15/Febrero/2018 a las 16:56
hola
necesito su ayuda en este problema que tengo con un archivo de excel que quiero usar en una tablet,
en vba de Excel 2013 cree un formulario con varios textbox y en el mismo formulario varios botones tipo calculadora con valores de  0 hasta 9 mas el "punto" con la idea de no usar el teclado de la tablet para taipiar(escribir) los valores.
pero no se como hacer para  ingresar el valor sobre el textbox que este seleccionado!!!
esta instrucción me da error

Private Sub cmd1_Click()
    If Text1.SetFocus Then
    Text1.Text = Text1.Text & "1"
    End If
End Sub

ayuda porfa
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5574
Enlace directo a este mensaje Enviado: 15/Febrero/2018 a las 22:47
En lugar de hacerlo en el mismo formulario, la 'calculadora' que sea un subformulario, cuando tengas el valor deseado la ocultas y capturas el valor desde el cuadro de texto del formulario principal que aún conservará el foco.
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
mariokike Ver desplegable
Habitual
Habitual
Avatar

Unido: 14/Enero/2011
Localización: Honduras
Estado: Sin conexión
Puntos: 197
Enlace directo a este mensaje Enviado: 16/Febrero/2018 a las 20:23
estoy probando este código pero me da error:

Private Sub Ctl1_Click()
 If Text1.SetFocus() Then 'si esta selecionado
    Text1 = Text1 & 1
End If
End Sub
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5574
Enlace directo a este mensaje Enviado: 16/Febrero/2018 a las 23:45
Eso no se parece en nada a lo que te dije.

Mira este ejemplo: http://www.achinet.mvp-access.es/Excel/Ayudas/Teclado.rar.
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
mariokike Ver desplegable
Habitual
Habitual
Avatar

Unido: 14/Enero/2011
Localización: Honduras
Estado: Sin conexión
Puntos: 197
Enlace directo a este mensaje Enviado: 17/Febrero/2018 a las 01:52
el ejemplo de teclado opera únicamente con 1 cuadro de texto
yo tengo 4 textbox; el comando click de los botones 0,1...9 debe operar sobre el textbox que tenga el enfoque
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5574
Enlace directo a este mensaje Enviado: 17/Febrero/2018 a las 17:27
¡No!, de hecho mi ejemplo tiene 3 cuadros de texto. Pero da igual que sean 4 o 40, cuando haces clic en uno de los cuadros de texto, no te permite escribir en él, sino que se abre el teclado, al pulsar los botones del teclado se escribe el valor en su cuadro de texto (aquí si hay solo un cuadro de texto) y cuando pulsas el botón Aceptar; se oculta el teclado, regresa al formulario principal y escribe el valor en el cuadro de texto que habías seleccionado.

¿No será que tu ejecutaste el formulario del teclado directamente? 

No tienes que ejecutar el teclado. Ejecuta el otro formulario del ejemplo, el principal.

Tampoco puede ser que lleves el formulario del teclado a tu aplicación y que te funcione sin más como si estuviera en mi ejemplo, ambos formularios trabajan en equipo y deben estar relacionados como lo están en mi ejemplo.


Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
mariokike Ver desplegable
Habitual
Habitual
Avatar

Unido: 14/Enero/2011
Localización: Honduras
Estado: Sin conexión
Puntos: 197
Enlace directo a este mensaje Enviado: 17/Febrero/2018 a las 18:19
creo que no di con el ejemplo correcto, lo que encontre fue un acces llamado "tecladoNumerico", a sucedido que el enlace no funciona bien lo acorte asi "http://mvp-access.es/".

he realizado un cambio, creando un form numerico uno para cada textbox, estos se abren al hacer click sobre cada uno de ellos en el form principal.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5574
Enlace directo a este mensaje Enviado: 18/Febrero/2018 a las 17:38
Pues no lo entiendo, ¿Como utilizaste la dirección que te ofrecí (paso a paso)?

(En el explorador) tenias que abrir una pestaña nueva, copias la dirección ...
... y pulsas INTRO. Se descarga un fichero comprimido llamado Teclado.rar, lo descomprimes (o lo abres) y (una vez ejecutado) aceptas la edición y las macros, y pulsas el botón «Probar ejemplo».

Cuando se abra el formulario, que tiene 3 cuadros de texto, haz clic en uno de los cuadros de texto, se muestra el teclado (2º formulario). Pulsa los botones numéricos para completar el numero que necesites y pulsa Aceptar.





Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
mariokike Ver desplegable
Habitual
Habitual
Avatar

Unido: 14/Enero/2011
Localización: Honduras
Estado: Sin conexión
Puntos: 197
Enlace directo a este mensaje Enviado: 28/Febrero/2018 a las 20:32
El ejemplo me a funcionado perfectamente!!
solo tarde un poco de re-adecuarlo para mi uso

gracias mil
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5574
Enlace directo a este mensaje Enviado: 28/Febrero/2018 a las 21:26
Gracias a ti por comentar el resultado. Cierro el hilo.

Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable