[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> 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 'columna del analisis <br><br>o=
Rango1 =3D L_columna & "6:" & L_columna & trim(str(numfilafinal=
+1)) ' defino elrango en la forma A1:B2<br> <br> oHoja.GetC=
ellByposition(3,numfilafinal+3).SetFormula("=3DCountif(" & oRango1 &=
; ";"+chr(34)+"=3DF"+chr(34)+") ") ' inserto la fun=
cion.<br>'------------------------ <br><br>Ahora bien, estoy de=
finiendo los rangos en la forma A1:B2 pero quiero usar la forma=
(0,0,1,1) -(ejemplo)- para el rango:<br><br>=BF C=F3mo seria entonce=
s la variable
oRango1 para la forma getCellRangeByPosition(0,0,1,1) -(ejemplo) ?<b=
r><br>Gracias anticipadas<br><br>  =
; <br></td></tr></table>=
--0-1635502019-1306945512=:70085--