Hola:

¿Cómo podría programar lo siguiente en OOo?


Sub uso_rangos001()

   Dim v As Range

   n = 10

   nf = 100 ' ActiveCell.Row
   nc = 100 ' ActiveCell.Column

   ' Con la siguiente asignación, se consigue utilizar el rango v(f,c)
   ' como si fuera cells(f,c) desde el origen indicado
   ' Es como si se prudujera una traslación de ejes, transformando
   ' la fila nf en 1 y la columna nc en 1

   Set v = Cells(nf, nc)


   ' llenar matriz unidad

   For f = 1 To n Step 1

       For c = 1 To n Step 1

           If f = c Then
               v(f, c) = 1
           Else
               v(f, c) = 0
           End If
       Next c
   Next f


End Sub



2007/1/8, Alejandro René Fernández Blanco <[EMAIL PROTECTED]>:

Hola Comunidad

En el sitio de SOLAR me topé con esto
http://www.solar.org.ar/spip.php?breve407 :



-----------------------------------------------------------------------------------------------------------------------------------
Misiones: Adopción del uso del estándar OpenDocument en la
Administración Pública Provincial
enviado el Viernes 29 de diciembre de 2006

El 21 de Diciembre de 2006, se sancionó la Resolución DGCC Nº 175/06
mediante la cual se establece que cualquier documento electrónico
creado y emitido por organismos que componen el Gobierno de la
Provincia de Misiones, destinado a almacenar y distribuir información
entre aquéllos y los funcionarios que integran el Estado Provincial,
deberá estar codificado en el formato abierto Open Document, de
acuerdo con las especificaciones establecidas en las normas ISO/IEC
26300.

Al mismo tiempo, se rechaza el uso de todos los demás formatos
propietarios, entre ellos los que se generen como nativos por la suite
ofimática MS-Office (doc, xls, ppt), los binarios (WP de Word-Perfect,
etc.) y el formato RTF.

Texto completo de la resolución:

http://www.ccpm.misiones.gov.ar/index.php?option=com_content&task=view&id=34&Itemid=38

Adjunto copia de la Resolución Provincial (=estatal/departamental)

--
Alejandro Rene "El Corrector Empedernido" Fernandez Blanco

Fecha Definitiva para el Tercer Festival Latinoamericano de
Instalación de SOftware Libre (FLISOL 2007): Abril de 2007

Software Freedom Day: tercer Sabado de cada Septiembre.

Encuentro Estratégico de Software Libre - CRISOL Argentina: ¿Segundo
sábado de cada septiembre?


Apodos (por el look =) ):
"El Stallman Platense" (autor Paolo "Mojo" Stancato),
Jesucristo,
El "Che" Guevara,
........ Bin ........... (arabe mundialmente famoso desde el 11-S-2001)
Charles Manson

Buscando a Adrian "el Chueco" Suar para hacer las 5 películas:
Localizado en Polka Producciones.

Miembro de PLUG (Argentina).
www.plug.org.ar
Petitorio contra el Programa de Malversacion miPC
http://www.petitiononline.com/noamipc1/

Colaborador Segundo Encuentro Estratégico de Software Libre - CRISOL
Argentina 2006 http://www.crisolargentina.org.ar

Coordinador General del I FLISOL La Plata
http://www.installfest.net/Argentina


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Responder a