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

drausio

Aprofundando um pouco mais no Basic, editor de macros contido dentro do programa Calc, que faz parte do pacote OpenOffice. Este artigo ensina a utilizar as macros em um nível intermediário.

[ Hits: 64.796 ]

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

0 0

Denuncie Favoritos Indicar Impressora

Utilizando funções de String

No exemplo a seguir:

1º. Vamos criar uma função que chama um procedimento.
2º. Vamos utilizar algumas funções de string para entender o funcionamento.

Siga os passos da página 2 e vá até o editor do Basic.

Crie o função Palavra e o procedimento Recortando, conforme a seguir:

Function Palavra() As String
   Recortando(InputBox("Digite uma palavra grande"))
   Palavra = "Ok"
End Function

'Este é um procedimento privado, ele só pode ser usado aqui no Módulo
'O procedimento não retorna nada
Private Sub Recortando(strNome As String)
   Dim strMsg As String

   strMsg = "3 Letras da esquerda: " + Left(strNome, 3)
   strMsg = strMsg + Chr(13) + "3 Letras da direita: " + Right(strNome, 3)
   strMsg = strMsg + Chr(13) + "3 Letras do meio: " + Mid(strNome, 4, 3) 'Começa na 4 letra e pega + 3

   msgbox strMsg 'Exibe a mensagem
End Sub

Seu código deve estar conforme figura abaixo:

Agora vá até sua planilha e execute a macro: " =Palavra(" pressione enter.

Observe que você chama a função Palavra. A função "Palavra" chama o Procedimento (Sub) "Recortando", e passa como parâmetro a palavra digitada por você. O procedimento "Recortando" utiliza algumas funções do Basic para extrair partes da String.

Página anterior Próxima página

Páginas do artigo

   1. Informações gerais
   2. Criando um módulo
   3. Funções de caixa de mensagem
   4. Funções utilizando laços (If e While)
   5. Funções numéricas e de strings
   6. Utilizando funções de String
   7. Concluindo

Outros artigos deste autor

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

OpenOffice.Org Calc Basic - Conhecendo o editor

O que são Generators no Firebird

Configurar Speedy Home na distribuição SuSE 10

Leitura recomendada

Validação de dados no OpenOffice.org Calc

Configuração do OpenOffice para o português do Brasil (pt-BR) a partir de uma instalação do BrOffice

Instalando a impressora Canon i250 no Linux

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

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

Comentários

[1] Comentário enviado por graco em 29/06/2006 - 11:22h

Muito bom! Gostei do artigo. um artigo que abre possibilidades. Já imagino criar meus proprios assistentes.....

0 0

[2] Comentário enviado por mochileiro em 29/06/2006 - 11:32h

Quero ver o povo daqui reclamar agora. Vão ter q estudar mesmo! material veio na hora certa!

0 0

[3] Comentário enviado por rgmmelo em 29/06/2006 - 13:55h

legal o seu artigo....a uns meses tive que instalar o office da MS pois tinha que fazer um trabalho da faculdade em VB pois nao conseguia um comando para imprimir nas celulas que certos valores do meu programa, já que o Cells(x,y)= nao funcionou em casa....
eh sempre bom ver estes tipos de artigos, eu mesmo tava pensando em escrever um.......

0 0

[4] Comentário enviado por Maycon Pires em 01/07/2006 - 11:40h

SHOW!!! Muito completo o artigo explica de uma forma bem linear, magine os proximos como virão show continue postando os artigos que são nota 10! vlw

0 0

[5] Comentário enviado por allanhc em 04/07/2006 - 00:13h

Excelente o artigo.
Sempre quis aprender a usar as macros mas nunca tive paciencia.

Só corrigir um errinho bobo.
Na função Lacos()

intNumFinal = Val(InputBox("Digite o número inicial"))

deveria ser:

intNumFinal = Val(InputBox("Digite o número final"))

Parabens

0 0

[6] Comentário enviado por seyfer em 19/01/2007 - 13:33h

Maloko, fiquei loko neste artigo...
To ficando viciado... manda mais buhahahahaha
Bom artigo este, parabéns
Falows.

0 0