Jump to content
Fórum Script Brasil
  • 0

Fazer Isto Em Excel


Guest - Diego -
 Share

Question

Guest - Diego -

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 to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...