OpenOffice.Org Calc Basic - Funções intermediárias
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.
Parte 6: 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:
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
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.