[es-discuss_es] Algo de macros con rangos pa. funciones

Alejandro Rivas MorĂ¡n <[email protected]> Wed, 1 Jun 2011 17:25:12 +0100 (BST)
Newsgroups gmane.comp.openoffice.general.spanish
Message-ID <[email protected]>
--0-1635502019-1306945512=:70085
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Saludos.

=A0Quiero usar una peque=F1a macro para insertar funciones, pero tales func=
iones son sobre rangos, Asi que uso las siguientes lineas (trabajan bien) :

'---------------------------------
L_columna =3D conHojactual.getColumns.getByIndex(columnar).getName=A0=A0=A0=
=A0=A0 'columna del analisis=20

oRango1 =3D L_columna & "6:" & L_columna & trim(str(numfilafinal+1))=A0 ' d=
efino elrango en la forma A1:B2
=A0
=A0oHoja.GetCellByposition(3,numfilafinal+3).SetFormula("=3DCountif(" & oRa=
ngo1 & ";"+chr(34)+"=3DF"+chr(34)+") ")=A0=A0=A0 '=A0 inserto la funcion.
'------------------------=A0=20

Ahora bien,=A0 estoy definiendo los rangos en la forma=A0 A1:B2=A0 pero qui=
ero usar la forma=A0 (0,0,1,1) -(ejemplo)- para el rango:

=BF C=F3mo seria entonces la variable oRango1 para la forma=A0 getCellRange=
ByPosition(0,0,1,1) -(ejemplo) ?

Gracias anticipadas

=A0=A0=A0 =A0=A0=A0=A0=20
--=20
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--0-1635502019-1306945512=:70085
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

<table cellspacing=3D"0" cellpadding=3D"0" border=3D"0" ><tr><td valign=3D"=
top" style=3D"font: inherit;">Saludos.<br><br>&nbsp;Quiero usar una peque=
=F1a macro para insertar funciones, pero tales funciones son sobre rangos, =
Asi que uso las siguientes lineas (trabajan bien) :<br><br>'---------------=
------------------<br>L_columna =3D conHojactual.getColumns.getByIndex(colu=
mnar).getName&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'columna del analisis <br><br>o=
Rango1 =3D L_columna &amp; "6:" &amp; L_columna &amp; trim(str(numfilafinal=
+1))&nbsp; ' defino elrango en la forma A1:B2<br>&nbsp;<br>&nbsp;oHoja.GetC=
ellByposition(3,numfilafinal+3).SetFormula("=3DCountif(" &amp; oRango1 &amp=
; ";"+chr(34)+"=3DF"+chr(34)+") ")&nbsp;&nbsp;&nbsp; '&nbsp; inserto la fun=
cion.<br>'------------------------&nbsp; <br><br>Ahora bien,&nbsp; estoy de=
finiendo los rangos en la forma&nbsp; A1:B2&nbsp; pero quiero usar la forma=
&nbsp; (0,0,1,1) -(ejemplo)- para el rango:<br><br>=BF C=F3mo seria entonce=
s la variable
 oRango1 para la forma&nbsp; getCellRangeByPosition(0,0,1,1) -(ejemplo) ?<b=
r><br>Gracias anticipadas<br><br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp=
; <br></td></tr></table>=

--0-1635502019-1306945512=:70085--