Excel planilha vba textbox soma label formato

Saberexcel - o site de quem precisa Aprender Macros MS excel VBA.

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos como TextBox, Labels e Frames, com intuíto didático, retorna a soma formatada em um Label(rótulo) com formatos para Moeda de todos os valores digitados na Textbox que retornam também para determinada coluna da folha de planilha, com isso fiz uma fórmula para auxiliar quem precisa usar alguma fórmula, que converte Euros em Reais, foi muito simples, usei um parâmetro de conversão em uma determinada célula e fiz uma formatação usando a função Texto(), como poderá ver na formula abaixo. Para melhor entendimento baixe o exemplo de planilha no link no final da folha de Planilha.
SABEREXCEL - Prática com Macros, Cursos vba, Modulos como Fazer, Funções de Planilha(VBA - observe que usei uma WorksheetFunction para retornar uma soma), não deixe de ler sobre as 340 PLANILHAS EXEMPLOS WORKSHEETFUNCTIONS VBA. Excel planilhas WorksheetFunctions Funções de Planilhas

Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
[D65000].End(xlUp).Offset(1, 0).Value = TextBox1.Value
Label1.Caption = Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €")
Frame1.Caption = "Valor Total: [ " & Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €") & " ]"
TextBox1.Value = ""
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Dim SBX As String, Start As Integer
SBX = TextBox1.Value
Start = TextBox1.SelStart

If SBX <> "" Then
If Right(SBX, 1) <> "€" Then
     SBX = RTrim(SBX) & " €"
     TextBox1.Text = SBX
     TextBox1.SelStart = Start
   End If
End If
End Sub

Private Sub UserForm_Initialize()
Label1.Caption = Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €")
TextBox1.SetFocus
End Sub

usei essa fórmula para retornar um valor(Moeda) convertido de Euros para Reais, talvez possa ser útil para alguém.
="SOMA..: [ R$ "&TEXTO(SUBTOTAL(9;D2:D23);"#.000,00 €")&" ] = "&TEXTO(SUBTOTAL(9;D2:D23)*L1;"#.000,00")&" Reais"

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Baixe o exemplo de planilha contendo os procedimentos e fórmula acima.
Excel planilha vba textbox soma label formato (21.03 KB)

Publicidade
Compre com segurança, garantia e ótimos preços

Tags: