ドロップダウンリストのチェックボックス

Question 1

はい、フォームリストボックスを追加して、複数の選択を許可できます。こちらをご確認くださいMS サポート用。

Answer

はい、フォームリストボックスを追加して、複数の選択を許可できます。こちらをご確認くださいMS サポート用。

Question 2

さて、リストボックスには次のコードを使用しました:

Dim lngItem As Long
Const strSep = ", " 'delimiter

Private Sub UserForm_Initialize()
With ListBox1
    .RowSource = "=Sheet1!A2:A12"
    For lngItem = 0 To ListBox1.ListCount - 1
        .Selected(lngItem) = InStr(1, strSep & ActiveCell.Value & strSep, strSep & .List(lngItem, 0) & strSep)
    Next lngItem
End With
End Sub

Private Sub CommandButton1_Click()
Dim strItems As String
With ListBox1
    For lngItem = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(lngItem) Then
            strItems = strItems & strSep & ListBox1.List(lngItem, 0)
        End If
    Next lngItem
End With
With ActiveCell
    .NumberFormat = "@"
    .Value = Replace(strItems, strSep, "", 1, 1)
End With
Unload Me
End Sub

列選択の場合は次のようになります:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Or Target.Row = 1 Then Exit Sub
UserForm1.Show
Cancel = True
End Sub

非常にうまく機能していますが、1つ変更したい点があります。

現時点では、リストボックスはセルをダブルクリックすると表示されますが、ワンクリックだけで表示できるようにする可能性はありますか? また、リストボックスが常に選択したセルの下に表示されるように変更することはできますか?

Answer