Buenas tardes,
Soy nuevo en Codigo de macros de OpenOffice. He llegado a insertar formulas sencillas en una celda mediante la sentencia setformula pero no he se como insertar una formula que contenga la sentencia si,
Mi idea es insertar mediante codigo en la celda A3 la formual =SI(H8<>"";TEXTO(H8;"aaaa-mm-dd");"") pero no me coge la formula, ¿alguien me puede echar un cable?
Gracias
Insertar una formula a una celda con sentencia Si
Insertar una formula a una celda con sentencia Si
LibreOffice 5.3.3.2
Windows 10
Windows 10
Re: Insertar una formula a una celda con sentencia Si
Hola...
Prueba con:
Saludos
Prueba con:
Código: Seleccionar todo
cell.Formula = "=IF(H8<>"""";TEXT(H8;""aaaa-mm-dd"");"""")"
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
- gustavodiaz00
- Mensajes: 64
- Registrado: Mié Abr 26, 2017 1:29 am
- Ubicación: Argentina, San Nicolás de los Arroyos
Re: Insertar una formula a una celda con sentencia Si
Hola Proba con algo asi. Yo lo uso en una macro que me restaura las formulas de la planilla y funciona.
ThisComponent.Sheets(0).getCellByPosition(46,68).FormulaLocal = "=SI(IGUAL(E16;AT69); N16;BB79)+SI(IGUAL(E18;AT69); N18;BB79)+SI(IGUAL(E20;AT69); N20;BB79)+SI(IGUAL(E22;AT69); N22;BB79)+SI(IGUAL(E24;AT69); N24;BB79)+SI(IGUAL(E26;AT69); N26;BB79)+SI(IGUAL(E28;AT69); N28;BB79)+SI(IGUAL(E30;AT69); N30;BB79)+SI(IGUAL(E32;AT69); N32;BB79)+SI(IGUAL(E34;AT69); N34;BB79)+SI(IGUAL(E36;AT69); N36;BB79)+SI(IGUAL(E38;AT69); N38;BB79)+SI(IGUAL(E40;AT69); N40;BB79)+SI(IGUAL(E42;AT69); N42;BB79)+SI(IGUAL(E44;AT69); N44;BB79)+SI(IGUAL(E46;AT69); N46;BB79)+SI(IGUAL(E48;AT69); N48;BB79)+SI(IGUAL(E50;AT69); N50;BB79)+SI(IGUAL(E52;AT69); N52;BB79)+SI(IGUAL(E54;AT69); N54;BB79)+SI(IGUAL(E56;AT69); N56;BB79)+SI(IGUAL(E58;AT69); N58;BB79)+SI(IGUAL(E60;AT69); N60;BB79)"
Espero que te sirva.
ThisComponent.Sheets(0).getCellByPosition(46,68).FormulaLocal = "=SI(IGUAL(E16;AT69); N16;BB79)+SI(IGUAL(E18;AT69); N18;BB79)+SI(IGUAL(E20;AT69); N20;BB79)+SI(IGUAL(E22;AT69); N22;BB79)+SI(IGUAL(E24;AT69); N24;BB79)+SI(IGUAL(E26;AT69); N26;BB79)+SI(IGUAL(E28;AT69); N28;BB79)+SI(IGUAL(E30;AT69); N30;BB79)+SI(IGUAL(E32;AT69); N32;BB79)+SI(IGUAL(E34;AT69); N34;BB79)+SI(IGUAL(E36;AT69); N36;BB79)+SI(IGUAL(E38;AT69); N38;BB79)+SI(IGUAL(E40;AT69); N40;BB79)+SI(IGUAL(E42;AT69); N42;BB79)+SI(IGUAL(E44;AT69); N44;BB79)+SI(IGUAL(E46;AT69); N46;BB79)+SI(IGUAL(E48;AT69); N48;BB79)+SI(IGUAL(E50;AT69); N50;BB79)+SI(IGUAL(E52;AT69); N52;BB79)+SI(IGUAL(E54;AT69); N54;BB79)+SI(IGUAL(E56;AT69); N56;BB79)+SI(IGUAL(E58;AT69); N58;BB79)+SI(IGUAL(E60;AT69); N60;BB79)"
Espero que te sirva.
LibreOffice 6.1 en KDE Neon