| Descricao: |
 Escola Saberexcel VBA Estudos® - O site de quem precisa Aprender tudo sobre Macros Microsoft Excel VBA
Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona 'Soma' um determinado valor digitado à um valor já existente(Antigo) em determinada célula na folha de planilha, com auxilio de um objeto Entrada de Dados (InputBox). isto é, ao digitar um novo valor no Objeto Entrada de Dados 'InputBox', esse valor será automaticamente adicionado, somando ao valor antigo da célula.
Porém fiz um retorno dos dados para a folha de planilha para prática com VBA(Visual Basic Application),
Espero que o exemplo possam lhe ser útil.
Fique com Deus,
Expedito Marcondes.
' - - - - - - - - - - - - - - -
'Essa macro foi retirada da
Coleção 15.000 Macros Microsoft Excel VBA Fórmulas e Funções 'Saberexcel
'- - - - - - - - - - - - - - - - - -
Sub sbx_somar_valores_inptubox_a1()
Dim vNovo As Currency
Dim vAntigo As Currency
Dim vAdicionarValor As Currency
Dim Mensagem, Titulo, Padrao
Mensagem = "Digite o novo valor!"
Titulo = "InputBox somar valores - "
x = "Escola Saberexcel VBA Estudos®"
Y = "Treinamento com Macros, Fórmulas e Funções"
Padrao = "0"
Z = "'- - -' Aprenda MS Excel VBA - SaberExcel ' - - -'"
On Error GoTo errosbx
'observe que usei atribuição variavel CCur() 'moeda' para aceitar somar a parte decimal ao digitar na inputbox
vAdicionarValor = CCur(InputBox(Mensagem & vbCrLf & x & vbCrLf & Y & vbCrLf & Z, Titulo & x, Padrao, 1))
vAntigo = Range("d4").Value
vNovo = vAntigo + vAdicionarValor
Range("d4").Value = vNovo
Saber1.Range("L65000").End(xlUp).Offset(1, 0).Value = vAdicionarValor
Saber1.Range("L65000").End(xlUp).Offset(0, 2).Value = vNovo
Saber1.Range("L65000").End(xlUp).Offset(0, 4).Value = Now()
Saber1.Range("L65000").End(xlUp).Offset(0, 6).Value = Application.UserName
Exit Sub
errosbx: Exit Sub ':MsgBox ("cancelado")
End Sub
Sub sbx_limpar_dados_teste()
Dim resposta As String
resposta = MsgBox("deseja deletar os dados já inseridos", vbYesNo + vbCritical, "Escola Saberexcel VBA Estudos®")
If resposta = 6 Then
[dados].ClearContents
End If
[I1].Select
End Sub
'Format(TotalArea, "0.00")
Sub sbx_teste_sbx_y()
Dim i As Integer, x As Variant
x = Application.InputBox("Entre com número", Type:=1)
If TypeName(x) = "Boolean" Then Exit Sub
i = CInt(x)
MsgBox i
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|