Hola a todos!
Soy nuevo en este foro y en la creación de macros.
Quiero asignar una macro a un botón que aumente en 1 el valor de una celda determinada cada vez que se pulse.
Ya sé crear botones y asignarle macros, pero no tengo ni idea de como hacer esa macro.
¿Podríais ayudarme?.
Gracias y saludos,
Sergio.
[RESUELTO] Macro para aumentar en 1 el valor de una celda
-
- Mensajes: 2
- Registrado: Jue Ago 20, 2020 6:02 pm
[RESUELTO] Macro para aumentar en 1 el valor de una celda
Última edición por ssuarez.75 el Vie Ago 21, 2020 5:29 pm, editado 1 vez en total.
LibreOffice 6.4 en Windows 10
- PepeOooSevilla
- Mensajes: 1480
- Registrado: Sab Abr 04, 2009 6:10 pm
- Ubicación: Sevilla (España)
Re: Macro para aumentar en 1 el valor de una celda
Hola.
Te damos la bienvenida al Foro y, por favor, no dejes de leer la Guía de supervivencia.
En el archivo adjunto tienes dos ejemplos, uno con macro y otro sin ella haciendo uso de un control de formulario (botón de selección) que incrementa/decrementa el valor de la celda A1 en una unidad (la macro solo incrementa la celda A1). Este es el código empleado para la macro:
Las macros no son fáciles pero si te interesa la programación para OpenOffice/LibreOffice tienes que leer y estudiar el libro Aprendiendo OOo Basic de nuestro compañero mauricio. También lo puedes consultar aquí: Guía de introducción al uso de Apache OpenOffice > Temas Avanzados > Macros > StarBasic
Además en las páginas Manuales de Apache OpenOffice en español: Basic y, Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es, encontrarás muy buena información.
Saludos cordiales.
Te damos la bienvenida al Foro y, por favor, no dejes de leer la Guía de supervivencia.
En el archivo adjunto tienes dos ejemplos, uno con macro y otro sin ella haciendo uso de un control de formulario (botón de selección) que incrementa/decrementa el valor de la celda A1 en una unidad (la macro solo incrementa la celda A1). Este es el código empleado para la macro:
Código: Seleccionar todo
REM ***** BASIC *****
Option Explicit
Sub Sumar1CeldaA1()
'Aumenta en una unidad el valor de la celda A1
Dim HojaActiva As Object
HojaActiva = ThisComponent.CurrentController.ActiveSheet
HojaActiva.getCellRangeByName("A1").setValue(HojaActiva.getCellRangeByName("A1").getValue() + 1)
End Sub
Además en las páginas Manuales de Apache OpenOffice en español: Basic y, Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es, encontrarás muy buena información.
Saludos cordiales.
- Adjuntos
-
- FORO_CALC_Sumar_1_A1.ods
- LibO Calc 6.4.6
- (12.53 KiB) Descargado 238 veces
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
-
- Mensajes: 2
- Registrado: Jue Ago 20, 2020 6:02 pm
Re: Macro para aumentar en 1 el valor de una celda
Muchísimas gracias!
Espectacular la respuesta.
He intentado aprender en una tarde para hacer ésto, pero vi que va a hacer falta más tiempo...
Gracias por comentar los tutoriales porque con las macros veo que se abre un mundo de posibilidades.
Saludos,
Sergio.
Espectacular la respuesta.
He intentado aprender en una tarde para hacer ésto, pero vi que va a hacer falta más tiempo...
Gracias por comentar los tutoriales porque con las macros veo que se abre un mundo de posibilidades.
Saludos,
Sergio.
LibreOffice 6.4 en Windows 10
- PepeOooSevilla
- Mensajes: 1480
- Registrado: Sab Abr 04, 2009 6:10 pm
- Ubicación: Sevilla (España)
Re: Macro para aumentar en 1 el valor de una celda
Hola.
Por favor, cuando consideres que un tema que has iniciado se ha resuelto, debes indicarlo (¿Cómo marcar como RESUELTO un tema?), para conseguir, de esta forma, un foro más ordenado.
Saludos cordiales.
Por favor, cuando consideres que un tema que has iniciado se ha resuelto, debes indicarlo (¿Cómo marcar como RESUELTO un tema?), para conseguir, de esta forma, un foro más ordenado.
Saludos cordiales.
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.