Como adiciono caixas de seleção dentro de um menu suspenso no Excel ou no Planilhas Google?

Question

Eu gostaria de ter a validação de dados que é possível com um menu suspenso, mas gostaria de ter mais de uma seleção.

É possível que uma lista suspensa de células tenha caixas de seleção ao lado dos elementos suspensos?

    

Answer 1

Em vez da caixa suspensa, a caixa de listagem é mais adequada para adicionar caixas de seleção para seleção múltipla.

Deixe-me explicar como fazer isso no Excel (a maioria dos comandos e métodos do Excel também são aplicáveis à Planilha Google.)

Comofunciona:

1. CliqueemguiaDesenvolvedor,Inserir,caixadelistagem(doActiveXControl).
2. Depoisdedesenharacaixadelistagem,cliquecomobotãodireitodomousenela.
3. Emseguida,selecionePropriedadesnomenu.
4. EncontreListFillRange&inserirdadosdeorigemIntervalo(A155:A164).
5. EncontrecaixaListStyle,selecione1-fmListStyleOption.
6. Emseguida,selecione1–fmMultiSelectMultinoMultiSelect.
7. Emseguida,selecionequalquercélulaespecificada(E155)e,emseguida,nomeie-ocomoListBoxOutput.
8. CliqueemInserir,Formasedesenheumformaapropriada(C155)acimadacaixadelistagem.
9. Emseguida,cliquecomobotãodireitodomousenaforma&selecioneAtribuirmacro(retângulo2_Clique)apartirdomenu.

InsiraocódigoabaixoescritocomoMódulo.

SubRectangle2_Click()DimxSelShpAsShape,xSelLstAsVariant,IAsIntegerSetxSelShp=ActiveSheet.Shapes(Application.Caller)SetxLstBox=ActiveSheet.ListBox1IfxLstBox.Visible=FalseThenxLstBox.Visible=TruexSelShp.TextFrame2.TextRange.Characters.Text="Click After Pickup Options"
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Click To Select Options"

    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & "," & xSelLst
        End If
    Next I

    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If

End Sub

10. Clique na Forma para abrir a caixa de listagem , selecione  itens e novamente clique no Shape para colocar  itens selecionados na célula E155 .

Observação, ajuste as referências de célula para o item de origem   list, List box, Shape's position & para   Célula de saída também.