Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: listbox alle items selecteren  (gelezen 7503 keer)

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
listbox alle items selecteren
« Gepost op: 10 oktober 2015, 14:12:19 »
hallo,
kan ik in een mulitiselect listbox alle items tegelijk selecteren.
indien er bv 15 mogelijke items zijn om die dan allen tegelijk aan te duiden en dan eventueel 1 of 2 te deselecteren. (knop of bij laden sheet...) .
in bijlage een voorbeeld.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: listbox alle items selecteren
« Reactie #1 Gepost op: 10 oktober 2015, 16:53:58 »
Hallo adri,

er bestaat een functie om alles aan te vinken in een listbox, maar ik weet niet hoe je zo een functie triggerd...  :-[

Waarschijnlijk een knop maken op je werkblad (of een macro-knop op je werkbalk snelle toegang) en daar een macro aan toewijzen (gaat automatisch bij een knop) en in die macro zal je waarschijnlijk de Functie moeten triggeren via Call of zo iets)

Dit is de functie:

Public Function SelectAll(lst As ListBox) As Boolean
On Error GoTo Err_Handler
    'Purpose:   Select all items in the multi-select list box.
    'Return:    True if successful
    'Author:    Allen Browne. https://allenbrowne.com  June, 2006.
    Dim lngRow As Long

    If lst.MultiSelect Then
        For lngRow = 0 To lst.ListCount - 1
            lst.Selected(lngRow) = True
        Next
        SelectAll = True
    End If

Exit_Handler:
    Exit Function

Err_Handler:
    Call LogError(Err.Number, Err.Description, "SelectAll()")
    Resume Exit_Handler
End Function

Er is ook een functie om alle vinkjes weg te halen:

Function ClearList(lst As ListBox) As Boolean
On Error GoTo Err_ClearList
    'Purpose:   Unselect all items in the listbox.
    'Return:    True if successful
    'Author:    Allen Browne. https://allenbrowne.com  June, 2006.
    Dim varItem As Variant

    If lst.MultiSelect = 0 Then
        lst = Null
    Else
        For Each varItem In lst.ItemsSelected
            lst.Selected(varItem) = False
        Next
    End If

    ClearList = True

Exit_ClearList:
    Exit Function

Err_ClearList:
    Call LogError(Err.Number, Err.Description, "ClearList()")
    Resume Exit_ClearList
End Function

Mogelijk heb je hier iets aan.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: listbox alle items selecteren
« Reactie #2 Gepost op: 11 oktober 2015, 10:04:39 »
bedankt softaid voor de inbreng.
dat zou het inderdaad moeten zijn.
heb het al uitgeprobeerd, maar het lukt me niet om dat te koppelen aan een knop.

iemand nog suggesties.

ps op mijn sheet staan meerdere listboxen en ik zou dit willen koppelen aan bv listbox6.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: listbox alle items selecteren
« Reactie #3 Gepost op: 11 oktober 2015, 11:53:26 »
Hallo Adri,

Als je een specifieke listbox rechtstreeks wil sturen via een knop moet je er niet absoluut een functie van maken. In bijgevoegd bestandje, gebaseerd op je eigen bijlage, heb ik het héél simpel gehouden, maar daar kan je vast op verder werken. Succes !
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: listbox alle items selecteren
« Reactie #4 Gepost op: 11 oktober 2015, 12:08:17 »
fantastisch pitufo, dat is wat ik zocht.
bedankt.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: listbox alle items selecteren
« Reactie #5 Gepost op: 12 oktober 2015, 13:10:39 »
Pitufo, Bij je procedure "switchen" kan je het if-statement zelfs laten vervallen...
Dus ipv         If .Selected(i) = False Then .Selected(i) = True Else .Selected(i) = False
...volstaat dit...        .Selected(i) = .Selected(i) = False

Is dit noodzakelijk? Nee, dat niet. Maar als kennisoverdracht vond ik 'm wel grappig.  ;)
______________________________

Groet, Leo

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: listbox alle items selecteren
« Reactie #6 Gepost op: 12 oktober 2015, 18:32:59 »
nu we toch bezig zijn ;-)

.Selected(i) = Not (.Selected(i))
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: listbox alle items selecteren
« Reactie #7 Gepost op: 13 oktober 2015, 09:35:15 »
allen bedankt voor het verfijnen van de code.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: listbox alle items selecteren
« Reactie #8 Gepost op: 13 oktober 2015, 12:33:53 »
Hallo allemaal,

Ik ben meestal nogal geneigd code of formules te schrijven die voor een zo breed mogelijk publiek "leesbaar" zijn, vandaar mijn initiële switch-oplossing.

Maar als 't een beetje cryptischer mag zijn wil ik gerust ook nog een duit in het zakje doen :
.Selected(i) = 1 - -.Selected(i)

Of dit allemaal verfijning van de code is... ik denk, Adri, dat we ons vooral goed aan het amuseren zijn  :D
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: listbox alle items selecteren
« Reactie #9 Gepost op: 14 oktober 2015, 10:04:03 »
met mijn beperkte kennis is het voor mij in elk geval cryptisch genoeg pitufo.
en ik vind het leuk dat mensen zich amuseren.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: listbox alle items selecteren
« Reactie #10 Gepost op: 14 oktober 2015, 10:09:46 »
misschien willen jullie zo vriendelijk zijn om ook je licht eens laten schijnen op mijn vraag om een macro workbook te delen.
daar krijg ik niet zoveel respons op.
alle ideeën zijn welkom.
alvast bedankt.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

 


www.combell.com