Saltar al contenido

Mini Teclado en Excel


hug0magno

Recommended Posts

publicado

Saludos.

Uso mucho la tecla F4 para convertir una referencia a una celda en absoluta.

Me seria muy útil tener ese F4 en la barra de herramientas de Excel.

Ya busque y solo puedo poner las teclas " ( + -$ % = ; : , * )".

Me imagino que con un Botón y una Macro sencilla seria suficiente, pero no se mucho de macros.

Por lo pronto estoy usando el teclado virtual de Windows, pero me ocupa mucho espacio.

Cualquier ayuda les agradezco de antemano.

Gracias.

publicado

Hola,

Pues la verdad me queda la inquietud por conocer algo mas directo que la misma tecla "F4" del teclado, por que pienso/creo/supongo que las acciones realizadas directamente con el teclado son muy rápidas y con el uso adecuado del teclado y mouse se logra una buena productividad.

Claro está que es solo una inquitud, pues guardar con "CTRL+G" me parece mas rápido que usar el icono de guardar, bueno cuando tengo las manos en el teclado, y aún así tengo el icono en la barra de acceso rápido, lo uso cuando por comodidad/pereza/locha estoy usando el excel para revisar/consultar archivos y solo uso el mouse.

Con respecto al uso de "F4", para convertir las referencias, este comando solo tiene efecto cuando la celda esta en edición, y mientras una celda esta en edición los comandos/accesos/botones a las macros quedan fuera de servicio hasta terminar la edición, por lo cual no por lo cual no creo que sea posible/funcional hacer una macro para reemplazar "F4" durante la edición.

Mientras aparece/inventan/crean algo para reemplazar las teclas directas de este u otros programas tendrás que seguir usando las teclas irremplazables y de la forma más directa, el teclado.

Gabriel

[TABLE=width: 125]

[TR]

[TD]Teclas rápidas en excel[/TD]

[/TR]

[TR]

[TD]Alt + Barra[/TD]

[/TR]

[TR]

[TD]Alt + F4[/TD]

[/TR]

[TR]

[TD]Ctrl + N[/TD]

[/TR]

[TR]

[TD]Ctrl + K[/TD]

[/TR]

[TR]

[TD]Ctrl + S[/TD]

[/TR]

[TR]

[TD]Ctrl + 5[/TD]

[/TR]

[TR]

[TD]Ctrl + A[/TD]

[/TR]

[TR]

[TD]Ctrl + U[/TD]

[/TR]

[TR]

[TD]Ctrl + TAB[/TD]

[/TR]

[TR]

[TD]Ctrl + G[/TD]

[/TR]

[TR]

[TD]F12[/TD]

[/TR]

[TR]

[TD]Ctrl + P[/TD]

[/TR]

[TR]

[TD]Ctrl + C[/TD]

[/TR]

[TR]

[TD]Ctrl + V[/TD]

[/TR]

[TR]

[TD]Ctrl + X[/TD]

[/TR]

[TR]

[TD]etc .....[/TD]

[/TR]

[/TABLE]

publicado

- - - - - Mensaje combinado - - - - -

Te agradezco.

Olvide aclarar que me fracturé una mano, así que suelto el Mouse para escribir el F4.

Para escribir le dicto con el reconocimiento de voz.

publicado

Te agradezco.

Casi todo lo puedo hacer con mi Voz, Mouse y el Teclado Virtual.

Para poner el F4 normalmente lo pongo con el Teclado Virtual y este es mi procedimiento:

1.-Pongo mi formula en la celda.

2.-Pongo el cursor en la Referencia de mi formula que me interesa.

3.-En el Teclado Virtual (lo muevo donde menos me estorbe) le doy la tecla Fn y luego F4. O en su defecto, suelto el Mouse y en mi teclado directo F4.

4.-Listo.

Parece rápido verdad?

Si, hasta que lo repites cientos de veces.

Feliz Navidad:tears_of_joy:

publicado
Parece rápido verdad? ... Si, hasta que lo repites cientos de veces.

Totalmente de acuerdo, hay otra alternativa, pues como el teclado en pantalla integrado de windows es un poco limitado, podrias ensayar otro teclado en pantalla mas completo, mira el siguente enlace:

Virtual Keyboards

Descarga la versión que ofrecen, es de prueba por 30 dias, veo que es muy buena, supera por mucho la que trae el sistema y tiene las teclas de funcion 'directas'.

Me parece que esta solución por software podría resolver/ayudar en algo mientras decides por algo mas funcional.

Gabriel

- - - - - Mensaje combinado - - - - -

Adicionalmente, tienes este otro enlace;

Universal Access using Onscreen Keyboards : Spectronics - Inclusive Learning Technologies

encontraras versiones freeware.

De las opcione gratuitas esta Free Click-N-Type On-Screen Virtual Keyboard for accessibility by Lake Software es, aparentemente, la mejor recomendada.

[ATTACH]35781.vB[/ATTACH]

Gabriel

post-23001-145877006709_thumb.jpg

publicado

Hola,

El que mencionas es la versión gratis, del primer enlace que te pase (Hot Virtual Keyboard - Virtual On-Screen Keyboard for Windows-Based Devices), la de pago se ve muy bien, aunque por 30 dias no esta mal ensayarla, y es posible que a los 30 dias después de des-instalar, instalar opere normalmente, habría que verificarlo adelantando el reloj del PC.

La he bajado y la he ensayado, es bastante configurable, programable, skin's idiomas, teclados diferentes, ingles, español, latino, me gusto bastante.

Lo importante es que te resuelva tu necesidad.

Gabriel

[ATTACH]35782.vB[/ATTACH]

post-23001-14587700671_thumb.jpg

publicado

Hola Amig@s,

Luego de probar la última opción recomendada a Hugo, le veo utilidad a los usuarios que tienen, o piensan comprar, un PC de pantalla táctil, por ejemplo un tablet PC, supongo que las tablets PC tendrán su propio teclado 'virtual', mi PC no tiene pantalla táctil, pero este progarma puede tener otros usos y no necesariamente la digitación/escritura, ya que permite crear/programar métodos abreviados para lanzar programas, crear acciones y otras cosas.

Hugo, ya que tu estas usando el Excel/PC con las herramientas de accesibilidad podrias compartir en el foro de Ideas/aportes o en el Foro cafetería, tus experiencias con estas herramientas.

Gabriel

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.