Acessando o editor Basic

A versão utilizada neste artigo é a 2.0.1, em português do Brasil.

Link para download:

http://www.openoffice.org.br/download

Para acessar o editor Basic, abra o programa Calc (OpenOffice) e acesse o menu: Tools / Macros / Organize Macros / OpenOffice.org Basic (ilustrado na figura abaixo).

Acessando o módulo

Após clicar em "OpenOffice.org Basic..." será exibida uma caixa (conforme figura) com o seguinte título: OpenOffice.org Basic Macros.

Nesta caixa você pode visualizar a estrutura do documento aberto (no meu caso DrausioHChiarotti.ods). Clique em My Macros / Standard / Module1.

Observe que do lado direito na caixa "Existing macros in: Module1" estão exibidas as macros pertencentes ao módulo1. Clique sobre a palavra Main e em seguida no botão Edit. Será aberto o modulo1 para ser editado no Basic.

Criando uma simples função

Agora vamos criar uma simples função na qual nós digitamos um número e a função nos retorna o dia da semana:

Function DiaDaSemana(Numero)

  Select Case Numero
   Case 1
      DiaDaSemana = "Segunda Feira"
   Case 2
      DiaDaSemana = "Terça Feira"
   Case 3
      DiaDaSemana = "Quarta Feira"
   Case 4
      DiaDaSemana = "Quinta Feira"
   Case 5
      DiaDaSemana = "Sexta Feira"
   Case 6
      DiaDaSemana = "Sábado"
   Case 7
      DiaDaSemana = "Domingo"
   Case Else
      DiaDaSemana = "Dia Inválido"
   End Select

End Function

Function: quer dizer que é uma função;
DiaDaSemana: é o nome que demos para a função;
Numero: é a variável que vai receber o numero do dia da semana;
Select Case: Utilizamos o Select Case para saber qual o dia que o usuário escolheu e de acordo com o dia a função retorna uma String (texto) com o nome do dia. Caso o usuário digite um dia errado (menor que 1 ou maior que 7), a função retorna a String "Dia Inválido".

Sua função deve ficar como na figura a seguir:

Executando a função

Agora vamos testar a função.

Salve a função e feche o editor Basic. Na planilha do Calc digite 1 na célula A4 e na célula B4 digite a nossa função =DIADASEMANA(A4) e pressione Enter (observe a figura a seguir).

Note que estamos executando uma função chamada DiaDaSemana(A4), a qual estamos indicando como parâmetro a célula A4 a qual contém o numero 1.

Apareceu o nome do dia da semana...?

Parabéns, você acabou de criar sua primeira função no OpenOffice.org Calc.