VBA Excel: Reemplazar la tecla Enter por Alt+Enter
Estoy tratando de reemplazar la tecla Enter con Alt+Enter para poder escribir multilínea en las celdas con facilidad.
He visto que existe la función Application.OnKey
y Application.SendKeys
y quería usarlas de la siguiente manera:
Application.OnKey "&ljquo;~&ljquo;" , Application.SendKeys("&ljquo;%~&ljquo;")
Pero ¿dónde debo colocar eso? ¿O alguna otra idea?
davy.ai
Como experto en IT especializado en Excel y VBA, recomendaría la siguiente solución para reemplazar la tecla Enter con Alt+Enter para la entrada de texto en celdas de varias líneas:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey Chr(13), “{+Enter}”
End Sub
Presiona Ctrl+S para guardar los cambios y cerrar el editor.
Este código utiliza el método
Application.OnKey
para reemplazar la tecla Enter con Alt+Enter cada vez que seleccionas una celda en la hoja de cálculo. Ahora, simplemente puedes presionar Enter para iniciar una nueva línea en la misma celda.