| | Post: 52 | Registrato il: 13/07/2013
| Città: SAN FILIPPO DEL MELA | Età: 30 | Utente Junior | 2010 | | OFFLINE | |
|
  19/11/2016 18:50 | |
allora ho una listbox con dei dati, (essendo che non ho uno studio approfondito di vb non riesco a venire a capo del problema)
-la listbox la chiamiamo listbox1
esiste la proprietà che mi conta le righe della listbox selezionate?
listbox1.?
versione excel 2010 |
|
| | Post: 3.467 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 19/11/2016 19:04 | |
un esempio
Private Sub CommandButton3_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
tuo codice
End If
Next i
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 52 | Registrato il: 13/07/2013
| Città: SAN FILIPPO DEL MELA | Età: 30 | Utente Junior | 2010 | | OFFLINE | |
|
| 19/11/2016 19:13 | |
patel45, 19/11/2016 19.04:
un esempio
Private Sub CommandButton3_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
tuo codice
End If
Next i
End Sub
in poche parole la "i" è il risultato numerico delle righe selezionate?
versione excel 2010 |
| | Post: 53 | Registrato il: 13/07/2013
| Città: SAN FILIPPO DEL MELA | Età: 30 | Utente Junior | 2010 | | OFFLINE | |
|
| 19/11/2016 19:21 | |
a me serve per impostare che se il conteggio delle righe selezione è 0, deve fermare il ciclo
ti allego un es. non funzionante..
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
MsgBox " manca selezione "
Exit Sub
End If versione excel 2010 |
| | Post: 984 | Registrato il: 06/04/2013
| Utente Senior | 2010 | | OFFLINE |
|
| 19/11/2016 19:41 | |
Ciao
se è una listbox in multiselezione:
k = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
k = 1
Exit For
End If
Next i
If k = 0 Then
MsgBox "nessuna selezione"
Else
MsgBox "ci sono item selezionati"
End If
saluti Domenico
Win 10 - Excel 2016 |
| | Post: 54 | Registrato il: 13/07/2013
| Città: SAN FILIPPO DEL MELA | Età: 30 | Utente Junior | 2010 | | OFFLINE | |
|
| 19/11/2016 20:30 | |
dodo47, 19/11/2016 19.41:
Ciao
se è una listbox in multiselezione:
k = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
k = 1
Exit For
End If
Next i
If k = 0 Then
MsgBox "nessuna selezione"
Else
MsgBox "ci sono item selezionati"
End If
saluti
grazie dodo e perfetta, per quello che mi serve..
![[SM=x423017]](http://www.erismag.it/Servizio/ForumExcel/Smiles/S4_grazie.gif)
versione excel 2010 |
|
|
|
|