Ola, tenho este comando abaixo dentro de uma textBox, q mais abaixo outro que 'e carregado ao inicializar o formulario, funciona redondo. O que quero entao é em outra textbox, carregar os dados de outra celula porem mostrando em porcentagem ex: 5,7% , poderiam me descrever ?
Private Sub TextBox284_Change()
TextBox284 = Format(TextBox284, "R$ #,##0.00")
End Sub
Private Sub UserForm_Initialize()
TextBox284.Value = Sheets("Loja").Range("L2")
Outra duvida, tenho 3 textbox : TextBox 1, TextBox 2 e TextBox 3, Quero entrar com um valor na TExtBox 1 e aparecer na Text Box 2 automaticamente o valor referente a diminuicao de (TextBox 3 - TextBox 1), sem que pra isso precione tecla alguma. Porem formatadas as textBox 1 e 2 .
Andre
Boa tarde!
Veja se ajuda:
https://cse.google.com.br/cse?cx=partne ... gsc.page=1
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa tarde!
Veja se ajuda:
https://cse.google.com.br/cse?cx=partne ... gsc.page=1
Att
Usei isso e deu certo aqui
Private Sub TextBox297_Change()
TextBox297 = Format(Range("L15"), "0.00%")
End Sub
Quanto a outra pergunta, pesquisando achei isso abaixo, mas nao esta aparecendo o R$.
Option Explicit Dim n1 As Single Dim n2 As Single Private Sub TextBox1_Change() ' TextBox1 = Format(TextBox1, "R$ #,##0.00") If TextBox1 = "" Then TextBox1 = 0 Else: End If n1 = CSng(TextBox1.Text) TextBox1 = CSng(n1) End Sub Private Sub TextBox2_Change() ' TextBox2 = Format(TextBox2, "R$ #,##0.00") If TextBox2 = "" Then TextBox2 = 0 Else: End If n2 = CSng(TextBox2.Text) TextBox2 = CSng(n2) Soma End Sub Private Sub Soma() Dim n3 As Single ' Label1 = Format(Label1, "R$ #,##0.00") If TextBox2 = "" Then Me.Label1.Caption = "" Else: End If n3 = Format(n1 - n2) Me.Label1.Caption = "Total" & " = " & n3 End Sub
Boa tarde!!
esse código funciona, mas quanto a sua adaptação, faça seus testes.
Private Sub TextBox1_Change()
'formato moeda no TextBox
'Fonte: http://excelevba.com.br/formato-moeda-no-textbox-enquanto-digita/
valor = TextBox1.Value
If IsNumeric(valor) Then
If InStr(1, valor, "-") >= 1 Then valor = Replace(valor, "-", "") 'retira sinal negativo
If InStr(1, valor, ",") >= 1 Then valor = CDbl(Replace(valor, ",", "")) 'retirar a virgula
If InStr(1, valor, ".") >= 1 Then valor = Replace(valor, ".", "") 'para trabalhar melhor retiramos ponto
Select Case Len(valor) 'verifica casas para inserção de ponto
Case 1
numPonto = "00" & valor
Case 2
numPonto = "0" & valor
Case 6 To 8
numPonto = Left(valor, Len(valor) - 5) & "." & Right(valor, 5)
Case 9 To 11
numPonto = inseriPonto(8, valor)
Case 12 To 14
numPonto = inseriPonto(11, valor)
Case Else
numPonto = valor
End Select
numVirgula = Left(numPonto, Len(numPonto) - 2) & "," & Right(numPonto, 2)
TextBox1.Value = numVirgula
Else
If valor = "" Then Exit Sub
MsgBox "Número invalido", vbCritical, "Caracter Inválido"
Exit Sub
End If
End Sub
Function inseriPonto(inicio, valor)
i = Left(valor, Len(valor) - inicio)
M1 = Left(Right(valor, inicio), 3)
M2 = Left(Right(valor, 8), 3)
F = Right(valor, 5)
If (M2 = M1) And (Len(valor) < 12) Then
inseriPonto = i & "." & M1 & "." & F
Else
inseriPonto = i & "." & M1 & "." & M2 & "." & F
End If
End Function
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Desculpe mas nao consegui fazer, segue um exemplo. Seria possivel uma ajuda ?
Andre
Ola resolvi aqui
Private Sub TextBox291_Change() If TextBox291 = "" Then TextBox291 = 0 Else: End If n2 = CSng(TextBox291.Text) TextBox291 = CSng(n2) Soma End Sub Private Sub Soma() Dim n3 As Single If TextBox291 = 0 Then TextBox298 = "" Else n3 = Format(n1 - n2) Me.TextBox298 = "R$ " & -n3 ' "Total" & " = " & n3 End If End Sub