Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

vba excel contare righe selezionate nella listbox

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

vba excel contare righe selezionate nella listbox

Postdi macio66 » 21/01/17 16:10

Buongiorno
Ho questo codice dove, selezionando più righe nella listbox, vengono scritte nel foglio (Base199).
Volevo sapere se è possibile, man mano che seleziono le righe, avere il conto di quante righe sono selezionate nella Testbox3 (invece ora mi da solo il numero/posizione dell'ultima riga selezionata).
Grazie

Private Sub ListBox199_Change()
Dim I As Integer
Dim my_S As String
Application.ScreenUpdating = False
With ListBox199
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
my_S = Switch(Len(my_S) = 0, .List(I), Len(my_S) <> 0, my_S & " " & .List(I))
End If
Next I
End With
Worksheets("Base199").Range("AO1").Value = my_S
Application.ScreenUpdating = True
'
For conta = 0 To ListBox199.ListCount - 1
If ListBox199.Selected(conta) = True Then
TextBox3.Value = conta
End If
Next conta
'
End Sub
macio66
Utente Senior
 
Post: 134
Iscritto il: 13/06/13 14:59

Sponsor
 

Re: vba excel contare righe selezionate nella listbox

Postdi alfrimpa » 21/01/17 18:11

Ciao macio

Senza il file è difficile dire ma prova con

Codice: Seleziona tutto
TextBox3.Value = TextBox3.Value + 1
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: vba excel contare righe selezionate nella listbox

Postdi Anthony47 » 22/01/17 00:11

Se col metodo suggerito da Alfredo ti andasse in errore quando il txtbox e' vuoto allora prova a modificare il codice come segue:
Codice: Seleziona tutto
Private Sub ListBox199_Change()
Dim I As Integer
Dim my_S As String, myCnt as Long
Application.ScreenUpdating = False
With ListBox199
    For I = 0 To .ListCount - 1
        If .Selected(I) = True Then
            my_S = Switch(Len(my_S) = 0, .List(I), Len(my_S) <> 0, my_S & " " & .List(I))
            myCnt = myCnt + 1
        End If
    Next I
End With
Worksheets("Base199").Range("AO1").Value = my_S
Application.ScreenUpdating = True
TextBox3.Value = myCnt
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17656
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba excel contare righe selezionate nella listbox

Postdi macio66 » 22/01/17 10:36

Ciao
La seconda soluzione è perfetta.
Grazie per il vostro aiuto e buona giornata.
macio66
Utente Senior
 
Post: 134
Iscritto il: 13/06/13 14:59


Torna a Applicazioni Office Windows


Topic correlati a "vba excel contare righe selezionate nella listbox":


Chi c’è in linea

Visitano il forum: Nessuno e 53 ospiti