Выбор из ListBox работает через раз

[Kerajel]

Добрый вечер

Предполагается, что кликнув на любую ячейку столбца D появится список, из которого можно сделать выбор, и выбранное значение вставится в ячейку столбца D. После этого ListBox21.Visible = False. При этом если выделено 2 и более ячеек, листбокс не появляется.

Проблема в том, что данная операция срабатывает не всегда - почему-то иногда после клика на значение из списка выделение ячейки пропадает, а ListBox остается видимым, при этом сделать выбор не получается.

Подскажите, пожалуйста, в чём может быть проблема?

[Aleksandr H.]

Так пробовал?

Private Sub ListBox21_Click()
Dim i As Long, v, s As String
v = ListBox21.List
For i = LBound(v, 1) To UBound(v, 1)
    If ListBox21.Selected(i) Then s = s & v(i, 0) & "; "
Next
s = Left(s, Len(s) - 2)
ActiveCell = s
ListBox21.ListIndex = -1
ListBox21.Visible = False
End SubPrivate Sub ListBox21_Click()
Dim i As Long, v, s As String
v = ListBox21.List
For i = LBound(v, 1) To UBound(v, 1)
    If ListBox21.Selected(i) Then s = s & v(i, 0) & "; "
Next
s = Left(s, Len(s) - 2)
ActiveCell = s
ListBox21.ListIndex = -1
ListBox21.Visible = False
End Sub

в чем глубокий смысл структуры:

For i = LBound(v, 1) To UBound(v, 1)
    If ListBox21.Selected(i) Then s = s & v(i, 0) & "; "
Next
s = Left(s, Len(s) - 2)

?

[Kerajel]

Вставил Ваш код, проблема осталась

за что отвечает код

For i = LBound(v, 1) To UBound(v, 1)
    If ListBox21.Selected(i) Then s = s & v(i, 0) & "; "
Next
s = Left(s, Len(s) - 2)

не могу сказать, макрос в своём файле я склеил из двух других похожих сабов, но сказать зачем он нужен, знаний уже не хватает

[Aleksandr H.]

процедуру change отключили(закомментили)?

[Kerajel]

Сообщение от Aleksandr H.

процедуру change отключили(закомментили)?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim lCellsCount As Long
lCellsCount = Selection.Count
If Target.Column = 4 And lCellsCount = 1 Then
ActiveCell = ClearContents
With ListBox21
.Visible = True
.Left = Target(1, 1).Left
.Top = Target(1, 1).Top
End With
Else
ListBox21.Visible = False
End If
If IsEmpty(ActiveCell) = False Then
ListBox21.Visible = False
End If
End Sub

Private Sub ListBox21_Click()
Dim i As Long, v, s As String
v = ListBox21.List
For i = LBound(v, 1) To UBound(v, 1)
    If ListBox21.Selected(i) Then s = s & v(i, 0) & "; "
Next
s = Left(s, Len(s) - 2)
ActiveCell = s
ListBox21.ListIndex = -1
ListBox21.Visible = False
End Sub

В настоящий момент код такой, какую процедуру нужно убрать?

[Aleksandr H.]

имхо, так и должно быть. Больше вариантов не имею