Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba textbox soma label formato

Excel planilha vba textbox soma label formato

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

Última atualização em Ter, 23 de Agosto de 2011 09:39  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje540
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32595
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9837
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432666
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA