Alerta de erro

Define a mensagem de erro exibida quando dados inválidos forem inseridos em uma célula.

Você também pode iniciar uma macro com uma mensagem de erro. Um exemplo de macro é oferecido no fim desta página.

Para acessar este comando...

Escolha a guia Dados - Validação - Alerta de erro.


Mostrar mensagem de erro quando forem inseridos valores inválidos.

Exibe a mensagem de erro digitada na área Conteúdo quando dados inválidos são inseridos em uma célula. Se ativada, a mensagem será exibida para evitar uma entrada inválida.

Em ambos os casos, se você selecionar "Parar", a entrada inválida será excluída e o valor anterior será reinserido na célula. O mesmo se aplicará se você fechar as caixas de diálogo "Aviso" e "Informações" clicando no botão Cancelar. Se você fechar as caixas de diálogo com o botão OK, a entrada inválida não será excluída.

Conteúdo

Ação

Selecione a ação que você deseja que ocorra quando dados inválidos forem inseridos na célula. A ação "Parar" rejeita a entrada inválida e exibe uma caixa de diálogo que você deve fechar clicando em OK. As ações "Aviso" e "Informação" exibem uma caixa de diálogo que você pode fechar clicando emOK ou Cancelar. A entrada inválida somente será rejeitada quando você clicar em Cancelar.

Procurar

Abre a caixa de diálogo Macro na qual você pode selecionar a macro que será executada quando dados inválidos forem inseridos em uma célula. A macro será executada depois que a mensagem de erro for exibida.

Título

Insira o título da macro ou a mensagem de erro a ser exibida quando dados inválidos forem inseridos em uma célula.

Mensagem de erro

Insira a mensagem a ser exibida quando dados inválidos forem inseridos em uma célula.

Macro de exemplo:

Abaixo está um exemplo de função que pode ser chamado quando ocorre um erro. Observe que a macro assume dois parâmetros que são transmitidos por LibreOffice quando a função é chamada:

A função deve retornar um valor booleano. Se retornar True, o valor inserido é mantido. Se a função retornar False, o valor inserido será apagado e o valor anterior será restaurado.


    Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
        Dim msg as String
        Dim iAnswer as Integer
        Dim MB_FLAGS as Integer
        msg = "Valor inválido: " & "'" & CellValue & "'"
        msg = msg & " na célula: " & "'" & CellAddress & "'"
        msg = msg & Chr(10) & "Aceitar mesmo assim?"
        MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
        iAnswer = MsgBox (msg , MB_FLAGS, "Mensagem de erro")
        ExampleValidity = (iAnswer = IDYES)
    End Function
  

♥ Doe para nosso projeto! ♥