[RESUELTO] Macro para aumentar en 1 el valor de una celda

Discute sobre la aplicación de hojas de cálculo

[RESUELTO] Macro para aumentar en 1 el valor de una celda

Notapor ssuarez.75 » Jue Ago 20, 2020 6:18 pm

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.
Ú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
ssuarez.75
 
Mensajes: 2
Registrado: Jue Ago 20, 2020 6:02 pm

Re: Macro para aumentar en 1 el valor de una celda

Notapor PepeOooSevilla » Jue Ago 20, 2020 8:02 pm

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:

Código: Seleccionar todo   Expandir vistaContraer vista
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

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.
Adjuntos
FORO_CALC_Sumar_1_A1.ods
LibO Calc 6.4.6
(12.53 KiB) 13 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.
Avatar de Usuario
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

Notapor ssuarez.75 » Jue Ago 20, 2020 9:20 pm

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.
LibreOffice 6.4 en Windows 10
ssuarez.75
 
Mensajes: 2
Registrado: Jue Ago 20, 2020 6:02 pm

Re: Macro para aumentar en 1 el valor de una celda

Notapor PepeOooSevilla » Vie Ago 21, 2020 9:09 am

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.
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.
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados