Completar una Macro para Excel 2010
¿Qué se le puede agregar a éste pseudocódigo, para que también haga esa acción, con la "Barra de fórmulaas"?...
Private Sub Workbook_Open()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
End Sub
Y además, ¿se puede agregar dentro de ésta misma macro, otro pseudocodigo, qué haga que, (más allá de la configuración general de Excel) al oprimir "Enter," en vez de que l cursor se desplace hacia abajo, lo haga hacia la derecha?...
Muchísimas gracias,
Saludos.
1 respuesta
Para la primer pregunta.
Private Sub Workbook_Open()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
Application.DisplayFormulaBar = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
Application.DisplayFormulaBar = True
End Sub
Para la segunda pregunta:
Tienes que poner 2 macros una en worksheet y la segunda en un módulo.
Instrucciones para worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{ENTER}", "derecha"
End SubInstrucciones para Módulo
Sub derecha() ActiveCell.Offset(0, 1).Select End Sub
Saludos.Dam
Si es lo que necesitas.
