Всем доброе время суток !

На форуме SQL.RU была тема по событию ListBox1_MouseDown. Не могу её найти.
А вопрос такой: Какой код необходимо вписать в процедуру обработки события ListBox1_MouseDown (см. ниже) для того, что бы кликом левой кнопкой мыши по опции ListBox на форме можно было эту опцию записать на лист Excel ? И, в частности, два раза подряд.


Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

код?

Worksheets("Лист1").Cells(1, 1).Value = UserForm1.ListBox1
End Sub

Devider! Спасибо за подсказку.

Необходимо же всего лиш для VBA.
Один из вариантов повторной записи на лист Excel, выбранной ранее опции ListBox может быть такой:

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ListBox1.ListIndex = -1
End Sub

Private Sub ListBox1_Click()
Код
End Sub

Т. е. используются две процедуры. Работает в принципе не плохо, но возможно есть код из одной процедуры ?! Предложенный код на С++ реализует эту задачу в одной процедуре. Не плохо бы его перевести в VBA !

Лучше потому, что есть такой код для ListBox1_MouseUp

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("a" & Rows.Count).End(xlUp)(2, 1) = Me.ListBox1
End Sub,

а аналогичного кода для ListBox1_MouseDown нет ?

Согласен. Выполнять действие по Mouse_Up надёжнее. Спасибо !
Если сам не делаеш такой промашки с указателем мыши, то лучше её предусмотреть у других юзеров !
Не ясна более правильная обработка двух событий. Координаты ячеек по Mouse_Down и Mouse_Up совпадают. Действие выполняется по Mouse_Up, например, так:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("a" & Rows.Count).End(xlUp)(2, 1) = Me.ListBox1
End Sub.

Как (где) добавить обработку Mouse_Down ? И не будет ли эта обработка влиять на возможность отвода указателя мыши ?