Всем добрый день.
Внезапно столкнулся с такой проблемой:
есть UserForm, которая вызывается двойным щелчком по ячейке
Заранее спасибо.
Во вложении макрос, желтым цветом пометил колонки, которые срабатывают на запуск UserForm.
Внезапно столкнулся с такой проблемой:
есть UserForm, которая вызывается двойным щелчком по ячейке
| Код |
|---|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("i1:i10000"), Target) Is Nothing Then
UserForm1.Show
Cancel = True
End If
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("j2:j10000"), Target) Is Nothing Then
UserForm1.Show
Cancel = True
End If
End Sub
|
в UserForm находиться ListBox со списком, значения из которого по щелчку вставляются в активную ячейку:
| Код |
|---|
Private Sub ListBox1_Click() ActiveCell.FormulaR1C1 = ListBox1.Text Unload Me End Sub |
Стартовая позиция UserForm при открытии - центр экрана (1-CenterOwner)
Проблема заключается в следующем, если активная ячейка находится в районе центра экрана, то при двойном щелчке открывается UserForm и сразу выбирается значение из ListBox, которое находится под указателем мыши, при этом нет возможности выбрать другое значение. Если экран сдвинуть в сторону, то все работает как надо.
Как сделать так, чтобы по двойному щелчку открывалась только UserForm, но не срабатывал выбор в ListBox?Заранее спасибо.
Во вложении макрос, желтым цветом пометил колонки, которые срабатывают на запуск UserForm.
