Questione : Cambiamenti combinati della proprietà del listfillrange basati sulla selezione dell'utente

Vorrei avere una casella combinata che i cambiamenti esso è proprietà della gamma del listfill basata sulla selezione l'utente makes.
basically quando è scattato una finestra di messaggio o qualcosa chiede se questa è impiegati o attrezzature.  Se per gli impiegati allora il combinato mostri la lista per gli impiegati. Per apparecchiatura, allora il combinato porterà in su la lista per equipment.

how è questo la cosa migliore fatto.  Ringraziamenti in anticipo. class= del

Risposta : Cambiamenti combinati della proprietà del listfillrange basati sulla selezione dell'utente

Per quanto so che la lista dei combobox deve essere *before* caricato il combobox è scattato.
Così sembra che possiate dovere trovare un altro senso attivare la scelta.
Forse potreste provarli quando la forma è inizializzata, o generare un gruppo di opzione, o fare il combobox matrice,…
(Ancora, questo illustra soltanto perché questa è funzionalità non standard.)

In qualunque caso,… il codice ha potuto essere qualcosa di simile:

'Generare la variabile
Oscurare lo strWhatList come stringa
   
    'Caricare la variabile con che cosa testo l'utente digita nel inputbox
    strWhatList = InputBox (“che lista?„ & vbCrLf & “(entrare: them per gli impiegati, o “EQ„, per Equiptment) ")
   
    'Se gli scatti “annullamento„ dell'utente,
    'uscire il sommergibile senza le liste caricate nel combobox
    Se strWhatList = "" allora
        'Visualizzare un messaggio, quindi aprire la forma
        '(senza una lista nel combobox)
        MsgBox “nessuna lista selezionata per caricare il combobox. „, vbInformation
        'Uscita
        Uscire il sommergibile
    strWhatList di ElseIf = “EM„ o strWhatList = “em„ allora
        'Caricare la gamma adatta della lista
        Me.cboWhatList.RowSource = “=Sheet1! A2: A8„
        'Regolare l'etichetta del combobox
        Me.lblWhatList.Caption = “impiegati„
    strWhatList di ElseIf = “EQ„ o strWhatList = “eq„ allora
        Me.cboWhatList.RowSource = “=Sheet1! B2: B6„
        Me.lblWhatList.Caption = “Equiptment„
    Altrimenti
        Il valore non valido di MsgBox “, nessuna lista ha caricato nel combobox. „, vbInformation
        Uscire il sommergibile
    Concluder se

Sono sicuro che voi potrete adattare questo a lavoro nella vostra base di dati.


Ho attaccato un campione

; -)

JeffCoachman