드롭다운 목록의 확인란

Question 1

예, 양식 목록 상자를 추가하고 다중 선택을 허용할 수 있습니다.여기에서 확인하세요MS 지원을 위해

Answer

예, 양식 목록 상자를 추가하고 다중 선택을 허용할 수 있습니다.여기에서 확인하세요MS 지원을 위해

Question 2

좋습니다. 저는 Listbox에 다음 코드를 사용했습니다.

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

훌륭하게 작동하지만 한 가지를 바꾸고 싶습니다.

현재 셀을 두 번 클릭하면 목록 상자가 표시되는데, 한 번의 클릭으로 만들 수 있나요? 또한 목록 상자가 항상 선택한 셀 아래에 표시되도록 변경할 수 있습니까?

Answer