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

Mauricio Baeza <[email protected]> Wed, 01 Jun 2011 19:37:17 -0500
Newsgroups gmane.comp.openoffice.general.spanish
Organization Universo Libre México, A.C.
Message-ID <[email protected]>
--=-7NLwHUfghFBTg2aBnPFF
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

El mi=C3=A9, 01-06-2011 a las 17:25 +0100, Alejandro Rivas Mor=C3=A1n escri=
bi=C3=B3:

> Saludos.
>=20
>  Quiero usar una peque=C3=B1a macro para insertar funciones, pero tales
> funciones son sobre rangos, Asi que uso las siguientes lineas
> (trabajan bien) :
>=20
> '---------------------------------
> L_columna =3D conHojactual.getColumns.getByIndex(columnar).getName
> 'columna del analisis=20
>=20
> oRango1 =3D L_columna & "6:" & L_columna & trim(str(numfilafinal+1))  '
> defino elrango en la forma A1:B2
>=20=20
>  oHoja.GetCellByposition(3,numfilafinal+3).SetFormula("=3DCountif(" &
> oRango1 & ";"+chr(34)+"=3DF"+chr(34)+") ")    '  inserto la funcion.
> '------------------------=20=20
>=20
> Ahora bien,  estoy definiendo los rangos en la forma  A1:B2  pero
> quiero usar la forma  (0,0,1,1) -(ejemplo)- para el rango:
>=20
> =C2=BF C=C3=B3mo seria entonces la variable oRango1 para la forma
> getCellRangeByPosition(0,0,1,1) -(ejemplo) ?
>=20
> Gracias anticipadas
>=20
>=20=20=20=20=20=20=20=20=20=20
>=20


Hola Compa=C3=B1ero...

Haber si entend=C3=AD, en vez de tener una referencia por nombre, quieres u=
na
referencia por posici=C3=B3n, =C2=BFes correcto?, esto es muy sencillo, per=
o te
pregunto, =C2=BFpretendes usar esta referencia como par=C3=A1metros de una
formula?, por que en las formulas hay que usar referencias por nombre...


Saludos



--=20
__________________________________
Mauricio Baeza Serv=C3=ADn
Universo Libre M=C3=A9xico, A.C.
Fundador y Director General

Todo lo que no podemos dar nos posee... Andre Gide
--=20
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--=-7NLwHUfghFBTg2aBnPFF
Content-Type: text/html; charset="utf-8"
Content-Transfer-Encoding: 7bit

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
  <META NAME="GENERATOR" CONTENT="GtkHTML/4.0.1">
</HEAD>
<BODY>
El mi&#233;, 01-06-2011 a las 17:25 +0100, Alejandro Rivas Mor&#225;n escribi&#243;:<BR>
<BLOCKQUOTE TYPE=CITE>
    <TABLE CELLSPACING="0" CELLPADDING="0">
<TR>
<TD VALIGN="top">
Saludos.<BR>
<BR>
&nbsp;Quiero usar una peque&#241;a macro para insertar funciones, pero tales funciones son sobre rangos, Asi que uso las siguientes lineas (trabajan bien) :<BR>
<BR>
'---------------------------------<BR>
L_columna = conHojactual.getColumns.getByIndex(columnar).getName&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'columna del analisis <BR>
<BR>
oRango1 = L_columna &amp; &quot;6:&quot; &amp; L_columna &amp; trim(str(numfilafinal+1))&nbsp; ' defino elrango en la forma A1:B2<BR>
&nbsp;<BR>
&nbsp;oHoja.GetCellByposition(3,numfilafinal+3).SetFormula(&quot;=Countif(&quot; &amp; oRango1 &amp; &quot;;&quot;+chr(34)+&quot;=F&quot;+chr(34)+&quot;) &quot;)&nbsp;&nbsp;&nbsp; '&nbsp; inserto la funcion.<BR>
'------------------------&nbsp; <BR>
<BR>
Ahora bien,&nbsp; estoy definiendo 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>
&#191; C&#243;mo seria entonces la variable oRango1 para la forma&nbsp; getCellRangeByPosition(0,0,1,1) -(ejemplo) ?<BR>
<BR>
Gracias anticipadas<BR>
<BR>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; <BR>
<BR>
</TD>
</TR>
</TABLE>
</BLOCKQUOTE>
<BR>
Hola Compa&#241;ero...<BR>
<BR>
Haber si entend&#237;, en vez de tener una referencia por nombre, quieres una referencia por posici&#243;n, &#191;es correcto?, esto es muy sencillo, pero te pregunto, &#191;pretendes usar esta referencia como par&#225;metros de una formula?, por que en las formulas hay que usar referencias por nombre...<BR>
<BR>
<BR>
Saludos<BR>
<BR>
<BR>
<BR>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
-- <BR>
__________________________________<BR>
Mauricio Baeza Serv&#237;n<BR>
Universo Libre M&#233;xico, A.C.<BR>
Fundador y Director General<BR>
<BR>
<B>Todo lo que no podemos dar nos posee... Andre Gide</B>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

--=-7NLwHUfghFBTg2aBnPFF--