Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-01-09
Em vez de utilizarmos Botões de Comando, podemos usar o SpinButton:


O resultado no Formulário é:



O Código:

Private Sub SpinButton1_SpinUp()
    nRow = nRow + 1    'Incrementa 1 linha

'mostra os dados
    TextBox1.Text = Cells(nRow, "A")
    TextBox2.Text = Cells(nRow, "B")
    TextBox3.Text = Cells(nRow, "C")
End Sub

Private Sub SpinButton1_SpinDown()
  If nRow = 2 Then    ' se a linha for a 2 (1ª linha de dados)
    Exit Sub            'já não decrementa
    Else
        nRow = nRow - 1    'Decrementa 1 linha
    End If

    'mostra os dados
    TextBox1.Text = Cells(nRow, "A")
    TextBox2.Text = Cells(nRow, "B")
    TextBox3.Text = Cells(nRow, "C")

End Sub