Ir para conteúdo
Fórum Script Brasil
  • 0

Fazer Isto Em Excel


Guest - Diego -

Pergunta

Olá, gostaria de saber qual o código que devo usar no VB para:

Quando o usuário digitar um número em uma célula que já contém um valor, esse número seja somado ao valor já existente e o resultado seja mostrano na célula.

Por exemplo, a célula A5 possui o valor 50.

Eu seleciono a célula e digito 30.

Quando dou "enter" aparece o valor total 80 na célula A5.

Grato pela atenção.

Diego.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Você pode fazer isso através do evento Change do objeto Worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
    Static valorAnterior As Integer
    
    If valorAnterior = 0 Then
        valorAnterior = Target.Value
    Else
        novoValor = Target.Value + valorAnterior
        valorAnterior = 0
        Target.Value = novoValor
    End If
End Sub

Certo? ;)

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0
Guest mfrigerio

OLÁ AMIGO

VEJA ESSE CÍDOGO

Private Sub Worksheet_Change(ByVal Target As Range)

Static valorAnterior As Integer

If IsNumeric(Target.Value) Then

If valorAnterior = 0 Then

valorAnterior = Target.Value

ElseIf Target.Value = "" Then

Target.Value = ""

Else

novoValor = Target.Value + valorAnterior

valorAnterior = 0

Target.Value = novoValor

End If

End If

End Sub

mfrigerio

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...