Как добавить флажки в раскрывающийся список в Excel или Google Таблицах?

вместо выпадающего списка, окно списка лучше всего подходит для добавления флажков для множественного выбора.

позвольте мне объяснить, как это сделать в Excel (большинство команд и методов Excel применимы к Google Sheet также.)

как работает:

1. клик Вкладка Разработчик, Вставка, Список Box (из Active X Control).
2. после нарисуйте список Правой Кнопкой Мыши.
3. затем выберите Properties из меню.
4. найти ListFillRange & вставить исходные данные Диапазон (A155:A164).
5. найти ListStyle box выберите 1-fmList StyleOption.
6. выберите 1–fmMultiSelectMulti от множественный выбор.
7. затем выберите любую указанную ячейку (E155), затем назовите его как ListBoxOutput.
8. Нажмите Кнопку Вставить, Shapes и рисовать уместно (C155) формы выше списка.
9. затем щелкните правой кнопкой мыши форму и выберите Назначить Макрос (Rectangle2_Click) от меню.

вставляем ниже написанный код как модуль.

Sub Rectangle2_Click()

Dim xSelShp As Shape, xSelLst As Variant, I As Integer

Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1

If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.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. нажмите форму, чтобы открыть список выберите пункты и снова нажмите Shape поставить выбранные элементы в ячейке E155.

Примечание настроить ссылки на ячейки для исходного элемента список, Список, положение фигуры и для Выходная ячейка также.