Dati e textbox

Hai un problema con Excel?

Nuova discussione

Dati e textbox
di Enzo (utente non iscritto) data: 09/03/2011
Ciao a tutti avrei un quesito ossia
ho all'interno di una userform una textbox
ora vorrei avere un comando all'interno di un pulsante che una volta avviato mi faccia vedere all'interno della textbox (ma potrebbe esssere anche una label o altro) scorrerere progressivamente dei dati che sono posti nella colonna a (sono molti)
so collegare la colonna ad una listbox ma vengono visualizzati tutti,a me solo per un fatto estetico mi servirebbe vederli scorrere progressivamente
qualcuno ha un idea?
di Baz (utente non iscritto) data: 10/03/2011
Ciao,
prova fare un esempio specifico o allegarne uno, magari diventa più chiaro quanto chiedi.
di Enzo (utente non iscritto) data: 10/03/2011
Ti ho allegato un file di esempio con una piccola spiegazione

di Baz (utente non iscritto) data: 10/03/2011
Prova così (sempre se ho capito )

Private Sub CommandButton1_Click()
Dim FineR As Long
Dim r As Long

With Sheets("Foglio1")
    FineR = .Cells(Rows.Count, 1).End(xlUp).Row
    For r = 1 To 22
        TextBox1 = Cells(r, 1).Value & "   " & r
        DoEvents
        Application.Wait (Now + TimeValue("0:00:1"))
    Next r
End With
MsgBox "Fine"

End Sub

di Enzo (utente non iscritto) data: 10/03/2011
Posso dirti che e' perfetta
unico inconveniente non e' possibile dargli un intervallo di scorrimento piu' veloce
e poi se e' possibileche comando dovrei inserire all'interno di un altro pulsante per voler interrompere

di Baz (utente non iscritto) data: 10/03/2011
Ciao,
per la velocità credo siamo al minimo (1 secondo)

per lo stop, inserisci un secondo pulsante e modifica il codice come segue

Dim myStop As Boolean


Private Sub CommandButton1_Click()
Dim FineR As Long
Dim r As Long

With Sheets("Foglio1")
    r = 1
    Do Until Cells(r, 1) = "" Or myStop = True
        TextBox1 = Cells(r, 1).Value & "   " & r
        DoEvents
        Application.Wait (Now + TimeValue("0:00:1"))
        r = r + 1
    Loop
End With

MsgBox "Fine"
myStop = False


End Sub

Private Sub CommandButton2_Click()
myStop = True
End Sub

di Enzo (utente non iscritto) data: 10/03/2011
Grazie
provero'
di Baz (utente non iscritto) data: 11/03/2011
Fai sapere.

ciao

Vuoi Approfondire?