Как добавить флажки в раскрывающемся списке в Excel или Google Sheets?

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

Возможно ли, чтобы раскрывающийся список ячеек имел флажки рядом с раскрывающимися элементами?

Источник

1 ответ

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

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

Как это устроено:

  1. Нажмите вкладку " Разработчик", "Вставка", "Список" (из Active X Control).
  2. После того, как вы нарисуете список, щелкните его правой кнопкой мыши.
  3. Затем выберите Свойства из меню.
  4. Найдите ListFillRange и вставьте диапазон данных источника (A155:A164).
  5. Найдите поле ListStyle, выберите 1-fmList StyleOption.
  6. Затем выберите 1–fmMultiSelectMulti в MultiSelect.
  7. Затем выберите любую указанную ячейку (E155), затем назовите ее как ListBoxOutput.
  8. Затем нажмите " Вставить, фигуры" и нарисуйте соответствующую (C155) фигуру над списком.
  9. Затем щелкните правой кнопкой мыши Shape и выберите Assign Macro (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
  1. Нажмите кнопку "Форма", чтобы открыть список, выберите элементы и снова нажмите кнопку "Форма", чтобы поместить выбранные элементы в ячейку. E155,

Обратите внимание, настройте ссылки на ячейки для списка элементов источника, списка, позиции Shape и для ячейки вывода.

Источник
Другие вопросы по тегам