Note: The other languages of the website are Google-translated. Back to English

Como permitir apenas números negativos no Excel?

No Excel, como permitir apenas a entrada de números negativos? Este artigo apresentará alguns truques úteis e rápidos para você resolver essa tarefa.

Permitir apenas números negativos no Excel com validação de dados

Permitir apenas números negativos no Excel com código VBA


seta azul bolha direita Permitir apenas números negativos no Excel com validação de dados

Normalmente, o Validação de dados função pode ajudá-lo, por favor, faça o seguinte:

1. Selecione as células ou colunas nas quais deseja permitir a entrada apenas de números negativos e clique em Dados > Validação de dados > Validação de dados, veja a captura de tela:

doc permite apenas 1 negativo

2. No Validação de dados caixa de diálogo, sob o Configurações guia, faça as seguintes opções:

(1.) No Permitir seção, escolha Decimal na lista suspensa;

(2.) No Dados seção, por favor escolha menos que ou igual a opção;

(3.) Por fim, digite o número 0 no Máxima caixa de texto.

doc permite apenas 2 negativo

3. Então clique OK, e agora, apenas números negativos e 0 podem ser inseridos, se um número positivo inserido, ele exibirá uma mensagem de aviso, consulte a captura de tela:

doc permite apenas 3 negativo


seta azul bolha direita Permitir apenas números negativos no Excel com código VBA

Aqui está um código VBA que também pode ajudá-lo, com o seguinte código, quando você inserir um número positivo, ele será convertido em negativo automaticamente, faça o seguinte:

1. Clique com o botão direito na guia da planilha que você deseja permitir apenas números negativos e escolha Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o código a seguir no espaço em branco Módulo:

Código VBA: permitir apenas números negativos na planilha:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

doc permite apenas 4 negativo

Nota: No código acima, A1: A1000 são as células nas quais você deseja inserir apenas números negativos.

2. Em seguida, salve e feche este código, volte a planilha, e agora, quando você inserir alguns números positivos nas células que especificou no código, os números positivos serão convertidos em negativos automaticamente.


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi! Ótimo artigo. Uma pergunta: se, em vez de um grupo coerente de células, eu quiser aplicar isso em diferentes partes da planilha (por exemplo, A1:A2 E A6:A8), existe uma maneira de fazer isso com a solução VBA? Ou seja: como faço para substituir o "A1:A1000" por vários conjuntos de células?
Este comentário foi feito pelo moderador no site
Olá, GB,
Para aplicar este código a vários intervalos, use o seguinte código:

Observação: ao usar esse código, primeiro, você deve clicar com o botão direito do mouse na guia da planilha e, em seguida, clicar em Exibir código no menu de contexto e copiar o código a seguir no módulo.

Private Sub Worksheet_Change (ByVal Target As Range)
'Atualizar por Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separa os intervalos por vírgulas
Dim xRg como intervalo
Dim xSRg como intervalo
No erro GoTo err_exit:
Application.EnableEvents = False
Definir xSRg = Intervalo(sRg)
Se não se cruzar (alvo, xSRg) não é nada, então
Para cada xRg no alvo
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
Se acabar
Próximo xRg
Se acabar
err_exit:
Application.EnableEvents = True
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Super, obrigado! Muito útil.
Este comentário foi feito pelo moderador no site
Como altero a formatação automática com este código de Moeda para Contabilidade?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL