none
Valor de um SpinButton vinculado à um Textbox RRS feed

  • Pergunta

  • Tenho em um UserForm um SpinButton que altera o valor do TextBox. Porém, se eu digitar manualmente um valor em meu Textbox e eventualmente utilizar o SpinButton, este não acrescenta a partir do valor digitado e sim do último valor armazenado. 

    Como faço para vincular esses dois valores para que quando eu digitar um valor e posteriormente utilizar o SpinButton, continue do valor digitado?

    Obrigado desde já!

    segunda-feira, 14 de maio de 2018 03:53

Respostas

  • Insere o código seguinte:

    Private Sub SpinButton1_SpinDown()
        TextBox1.Value = TextBox1.Value - 1
    End Sub
    
    Private Sub SpinButton1_SpinUp()
        TextBox1.Value = TextBox1.Value + 1
    End Sub
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    If TextBox1 = "" Then
    
    Exit Sub
    
    Else
    SpinButton1.Value = TextBox1.Value
    End If
    
    End Sub
    
    Private Sub UserForm_Initialize()
        With SpinButton1
            .Min = 1
            .Max = 300
            
            .Value = 1
            
        End With
    End Sub

    Tenta adaptar de acordo com a tua necessidade.


    Marca como resposta se te for útil.

    M_A_S_L




    • Editado M_A_S_L segunda-feira, 14 de maio de 2018 10:02
    • Marcado como Resposta LucasAM94 segunda-feira, 14 de maio de 2018 20:15
    segunda-feira, 14 de maio de 2018 09:45

Todas as Respostas

  • Insere o código seguinte:

    Private Sub SpinButton1_SpinDown()
        TextBox1.Value = TextBox1.Value - 1
    End Sub
    
    Private Sub SpinButton1_SpinUp()
        TextBox1.Value = TextBox1.Value + 1
    End Sub
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    If TextBox1 = "" Then
    
    Exit Sub
    
    Else
    SpinButton1.Value = TextBox1.Value
    End If
    
    End Sub
    
    Private Sub UserForm_Initialize()
        With SpinButton1
            .Min = 1
            .Max = 300
            
            .Value = 1
            
        End With
    End Sub

    Tenta adaptar de acordo com a tua necessidade.


    Marca como resposta se te for útil.

    M_A_S_L




    • Editado M_A_S_L segunda-feira, 14 de maio de 2018 10:02
    • Marcado como Resposta LucasAM94 segunda-feira, 14 de maio de 2018 20:15
    segunda-feira, 14 de maio de 2018 09:45
  • Muito Obrigado!
    segunda-feira, 14 de maio de 2018 20:15