Haz tu Pregunta
0

Funcion, si una celda es de un color... entonces me calculas...

preguntado 2017-02-14 12:44:20 +0200

this post is marked as community wiki

This post is a wiki. Anyone with karma >75 is welcome to improve it.

Necesito saber que me falta poner para que cuando en una celda ponga:

                          =CELDAS("Hoja1";"A1";"E6")

Cuando modifique el color de la celda A1, me aparezca el valor true (1) si los colores de ambas celdas son iguales; Si los colores de ambas celdas son distintos (el color de A1 distinto de E6), me aparezca el valor de false (0); Esto me lo hace el siguiente codigo y hasta hay bien; el problema es que necesito que se compruebe y ejectute constantemente. He probado con bucles pero se queda como colgado, a lo mejor existe alguna funcion definida que permite que se compruebe esto todo el rato; asi cada vez que cambie de color la celda me dira si son del mismo color o no. NOTA: no soy ningun experto de hecho no tengo ni idea, el codigo de abajo lo he ido cogiendo y probando cosas que he ido encontrando por internet. Pero me falta ese trozo de codigo que me comprueba continuamente el cambio de color de las celdas.

El codigo es el siguiente:

Global dato As Integer
Function CELDAS( numero1, numero2, numero3  ) As Boolean
    Dim oCelda As Object
    Dim oCelda2 As Object
    dato = 2
    oCelda = ThisComponent.getSheets.getByName( numero1 ).getCellRangeByName( numero3 )
    oCelda2 = ThisComponent.getSheets.getByName( numero1 ).getCellRangeByName( numero2 )
         if oCelda.CellBackColor = oCelda2.CellBackColor then
              'MsgBox "Las celdas son del mismo color"
              CELDAS = 1
         else
              'MsgBox "Las celdas no son del mismo color"
              CELDAS = 0
         End If
End Function 
edit re-etiquetar marcar como ofensivo cerrar fusionar delete

Comments

Puedes echar un vistazo en el foro de Aoo en el que hay mucha documentación sobre macros y expertos en las mismas que te pueden ayudar. https://forum.openoffice.org/es/forum/

Imagen Gravatar de m.a.riosv m.a.riosv ( 2017-02-19 18:32:47 +0200 )edit

2 Respuestas

Ordenar por » viejos nuevas más votado
0

respondido 2017-02-15 02:21:39 +0200

Imagen Gravatar de m.a.riosv

Creo que en este hilo del foro en inglés de OpenOffice puedes encontrar como hacerlo.

Calc, Basic Introspective cell functions

edit marcar como ofensivo delete enlace mas
0

respondido 2017-02-19 13:00:43 +0200

this post is marked as community wiki

This post is a wiki. Anyone with karma >75 is welcome to improve it.

le he hechado un vistazo a ese enlace, pero no saco nada en claro. lo unico que me falta y que no quiero es que tenga que dar a las teclas shift+Ctrl+F9; el codigo funciona porque lo he probado, lo unico es que cada vez que cambio de color tengo que pulsar a esa combinacion de teclas para que actualice y vuelva a ejecturar la funcion para que vuelva a comprobar si se ha cambiado de color en las celdas E6 y A1; aunque la celda no tenga nada y este vacia, unicamente comprobar si ha cambiado de color, nada mas. lo que yo busco es una funcion o una linea de codigo que falta añadir para que me haga ese shift+Ctrl+F9, es decir para que me actualice(ejecute) la funcion y realice la comprobacion: comprobacion bien cuando realice la accion de pinchar en la celda que quiero y le da ha cambiar de color. o bien comprobacion constantemente. La verdad es que algun tipo de funcion como esta deberia estar implementada en calc, ya que los usuarios novatos o sin conocimientos pudieran utilizarla de forma sencilla como cualquier otra funcion predefinida en calc, (como sumatorio,...)

edit marcar como ofensivo delete enlace mas
Ingresa/Regístrate para Contestar

Herramientas de Preguntas

1 seguidor

Estadisticas

Preguntado: 2017-02-14 12:44:20 +0200

Visto: 446 veces

Ultima actualización: Feb 19 '17