Pergunta : Mudanças combinados da propriedade do listfillrange baseadas na seleção do usuário

Eu gostaria de ter uma caixa combinado que as mudanças ele fossem propriedade da escala do listfill baseada na seleção o usuário makes.
basically quando está estalado uma caixa de mensagem ou algo pergunta se este é empregados ou equipamento.  Se para empregados então o combinado mostrará a lista para empregados. Para o equipamento, então o combinado trará acima a lista para equipment.

how é este o melhor feito.  Agradecimentos adiantado. class= do

Resposta : Mudanças combinados da propriedade do listfillrange baseadas na seleção do usuário

Tanto quanto eu sei que a lista dos combobox deve ser *before* carregado o combobox é estalado.
Assim parece que você pode ter que encontrar uma outra maneira de ativar a escolha.
Talvez você poderia tentá-lo quando o formulário é inicializado, ou criar um grupo da opção, ou fazer o combobox mestre,…
(Outra vez, isto ilustra somente porque esta é funcionalidade não padronizada.)

Em todos os casos,… o código podia ser qualquer outra coisa semelhante:

'Criar a variável
Escurecer o strWhatList como a corda
   
    'Carregar a variável com o que texto o usuário incorpora ao inputbox
    strWhatList = InputBox (“que lista?” & vbCrLf & “(entrar: them para empregados, ou “EQ”, para Equiptment) ")
   
    'Se os cliques “cancelamento” do usuário,
    'retirar o submarino sem as lista carregadas no combobox
    Se strWhatList = "" então
        'Indicar uma mensagem, a seguir abrir o formulário
        '(sem uma lista no combobox)
        MsgBox “nenhuma lista selecionada para carregar o combobox. ”, vbInformation
        'Saída
        Retirar o submarino
    strWhatList de ElseIf = “EM” ou strWhatList = “em” então
        'Carregar a escala apropriada da lista
        Me.cboWhatList.RowSource = “=Sheet1! A2: A8”
        'Ajustar a etiqueta do combobox
        Me.lblWhatList.Caption = “empregados”
    strWhatList de ElseIf = “EQ” ou strWhatList = “eq” então
        Me.cboWhatList.RowSource = “=Sheet1! B2: B6”
        Me.lblWhatList.Caption = “Equiptment”
    Mais
        O valor inválido de MsgBox “, nenhuma lista carregou no combobox. ”, vbInformation
        Retirar o submarino
    Terminar se

Eu sou certo que você você poderá adaptar isto ao trabalho em sua base de dados.


Eu uni uma amostra

; -)

JeffCoachman