OpenOffice.Org Calc Basic - Caminhando sobre as células

drausio

Aprofundando mais no OpenOffice Calc, vamos agora criar, via código, uma macro que permite caminhar sobre as células, inserindo ou lendo valores.

[ Hits: 47.750 ]

Por: Drausio Henrique Chiarotti em 13/07/2006 | Blog: http://lattes.cnpq.br/0543258204520217

1 0

Denuncie Favoritos Indicar Impressora

Procedimento CaminharSobreCelulas

Primeiramente vamos criar um procedimento chamado CaminharSobreCelulas.

Este procedimento vai possuir três parâmetros.

intColuna : recebe o número da coluna;
intLinha : recebe o número da linha;
Valor : recebe o valor que será adicionado na célula.

Veja o procedimento a seguir:

Sub CaminharSobreCelulas(intColuna, intLinha as Integer, Valor)

   Dim oMovPasta as Object
   Dim oCelula as Object
   Dim oPasta as Object
   Dim oDocumento as Object

   oDocumento = ThisComponent
   oPasta   = oDocumento.Sheets
   oMovPasta = oPasta(0)
   oCelula = oMovPasta.GetCellByPosition(intColuna, intLinha)
   oCelula.Value = Valor

End Sub

Sobre o procedimento:

oDocumento : recebe o documento em que a macro está sendo executada;
oPasta : recebe as pastas do documento;
oMovPasta : recebe a pasta na qual vamos nos locomover (oPasta(0) é primeira pasta);
oCelula : recebe a posição na célula que o valor será inserido;
oCelula.Value : insere o valor na célula indicada (nos parâmetros).

Página anterior Próxima página

Páginas do artigo

   1. Informações gerais
   2. Criando um módulo
   3. Procedimento CaminharSobreCelulas
   4. Procedimento Escrever
   5. Executando seu procedimento
   6. Conclusão

Outros artigos deste autor

O que são Generators no Firebird

OpenOffice.Org Calc Basic - Conhecendo o editor

OpenOffice.Org Calc Basic - Funções intermediárias

Configurar Speedy Home na distribuição SuSE 10

Leitura recomendada

Formatação de células na planilha do OpenOffice

Estudo de funções de estatística básica no OpenOffice Calc

Prevenindo problemas com impressoras via Samba no Windows

Configurando a operadora Vono no Asterisk

Vertigini Great Templates - Instalando pacote de modelos para OpenOffice/LibreOffice

Comentários

[1] Comentário enviado por CABELO em 13/07/2006 - 09:50h

Parabéns, tenho orgulho de ser o seu amigo...

Abraços.

Cabelo...

(SOMOS LIVRES, USAMOS GNU/LINUX)

0 0

[2] Comentário enviado por sidilinux em 13/07/2006 - 17:04h

Em primeiro lugar, Parabéns brother , tah muito bom esse artigo!!!
porém tenho uma dúvida e acho que vc pode me ajudar.....

quero saber como faço para executar uma "macro" por linha de comando???

se vc puder ajudar agradeço muito
vlw

1 0