Formato condicional + de 3 opciones

[urioste]

Buenas mi pregunta es si se pueden poner en unas celdas más de 3 condiciones.
Ejemplo: En un cuadrante puedes distinguir "M" (mañana) "T" (tarde) "N" (noche), hasta aquí ningún problema, pero como continuar si necesito "L" (libre), "V" (vacaciones), en otra hoja de cálculo conocida en su versión 2007 si te deja y Calc la abre y funciona pero lo que sería interesante es utilizar de cero Calc y olvidarse de la otra.

Sin más y agradecido de antemano un saludo

Ürioste

[Jhonny Antezana]

Estimado.
El OOo. Calc solo permite establecer hasta tres condiciones.

[FJCC-ES]

Con una macro se puede establecer mas que tres condiciones. Esta macro establece cinco. No se el numero máximo.

Código: Seleccionar todo

Dim Conditions(2) as New com.sun.star.beans.PropertyValue

Doc = ThisComponent
hoja = Doc.Sheets(0)
celda = hoja.getcellByPosition(0,0)  'Celda A1
Form = celda.ConditionalFormat
Conditions(0).Name = "Operator"
REM http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/ConditionOperator.html
Conditions(0).Value = com.sun.star.sheet.ConditionOperator.EQUAL
Conditions(1).Name = "Formula1"
Conditions(1).Value = "6"
Conditions(2).Name = "StyleName"
Conditions(2).Value = "Rojo"
Form.addNew(Conditions) 

Conditions(0).Name = "Operator"
Conditions(0).Value = com.sun.star.sheet.ConditionOperator.EQUAL
Conditions(1).Name = "Formula1"
Conditions(1).Value = "5"
Conditions(2).Name = "StyleName"
Conditions(2).Value = "azul"
Form.addNew(Conditions)

Conditions(0).Name = "Operator"
Conditions(0).Value = com.sun.star.sheet.ConditionOperator.EQUAL
Conditions(1).Name = "Formula1"
Conditions(1).Value = "4"
Conditions(2).Name = "StyleName"
Conditions(2).Value = "verde"
Form.addNew(Conditions)

Conditions(0).Name = "Operator"
Conditions(0).Value = com.sun.star.sheet.ConditionOperator.EQUAL
Conditions(1).Name = "Formula1"
Conditions(1).Value = "3"
Conditions(2).Name = "StyleName"
Conditions(2).Value = "amarillo"
Form.addNew(Conditions)

Conditions(0).Name = "Operator"
Conditions(0).Value = com.sun.star.sheet.ConditionOperator.EQUAL
Conditions(1).Name = "Formula1"
Conditions(1).Value = "2"
Conditions(2).Name = "StyleName"
Conditions(2).Value = "Result"
Form.addNew(Conditions)

celda.ConditionalFormat = Form

[Jhonny Antezana]

FJCC-ES.
No consideré la opción de crear una macro, como entenderas la gran mayoría de nosotros trabajamos con Excel por lo tanto programamos en VBA. Copio la macro ejecuta con total normalidad (sin error); pero no veo el efecto en el libro de trabajo, agradeceré guiarme como hacerlo. Gracias.

[FJCC-ES]

Adjunté un archivo con la macro y un botón que la llama.

Formato → Estilo y Formato enseña la lista de estilos. La macro no funciona si los estilos “rojo”, “azul”, “verde”, “amarillo”, y “Resultado” no existen.

Pulse el botón y cambie el numero en celda A1.

2 = Resultado
3 = amarillo
4 = verde
5 = azul
6 = rojo

Se pueden quitar los formatos condicionales con:
Formato → Formato Condicional

Quitando los tres en la lista quita también los dos que no aparecen.
Es importante guardar el archivo en el formato .ods. El formato .xls no acepta macros escritos in OOoBasic.

[urioste]

Gracias voy a probar la macro a ver que tal funciona ya os comentaré.

[latinbooker]

Pues buscando más en el Foro me encontré con esta dirección http://www.ooowiki.de/KomplexeBedingteFormatierungen la cual publicó marceloo, ciertamente esta en Alemán, pero mucho ayuda el traductor de Google, aquí dejo la traducción que hace google de Alemán a Español, bendiciones
http://translate.google.co.cr/translate ... atierungen

"Mi Señor y Dios dará sabiduría en abundancia a quien se la pida, soy testigo de ello."

[mriosv]

Una forma de conseguirlo es utilizar la función ESTILO() dentro del formato condicional., creando una formula que elija los diferentes estilos