Worksheet_BeforeDoubleClick - Microsoft Office Excel

Acro · 16.12.2008, 14:15

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Не могу понять как с ним работать. Может кто то дасть наглядный пример.

SAS888 · 16.12.2008, 14:44

Код, записанный ниже, будет выполняться каждый раз, при двойном нажатии кнопки "мыши". Здесь Target - ячейка, в которой произошло это событие. Доступны все свойства. Например, Target.Row, Target.Address, Target.Value и т.д.
Следующий код выведет сообщение, если сделать "двойной щелчок" мышкой в первом столбце.

Код:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then MsgBox "Двойной щелчок в столбце A"
End Sub

Acro · 16.12.2008, 14:56

Спасибо за оперативность.
У меня тут проблема с руками

: могу несколько часов потратить на поиск грамотного примера, но стоит только спросить самому как пример тут же находится.

Навешивание чекбоксов по даблклику на ячейку:
http://social.msdn.microsoft.com/for...-9c9a8e64c073/

У меня по даблклику добавляется строка с визуализацией данных через

Код:

.Value = "=REPT(CHAR(103),R[1]C)"

, а как грамотнее удалить эту появившуюся строку?

16.12.2008, 14:15	#1
Acro Пользователь Регистрация: 21.10.2008 Сообщений: 39	Worksheet_BeforeDoubleClick Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Не могу понять как с ним работать. Может кто то дасть наглядный пример.

16.12.2008, 14:44	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Код, записанный ниже, будет выполняться каждый раз, при двойном нажатии кнопки "мыши". Здесь Target - ячейка, в которой произошло это событие. Доступны все свойства. Например, Target.Row, Target.Address, Target.Value и т.д. Следующий код выведет сообщение, если сделать "двойной щелчок" мышкой в первом столбце. Код: `Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then MsgBox "Двойной щелчок в столбце A" End Sub` Чем шире угол зрения, тем он тупее. Последний раз редактировалось SAS888; 16.12.2008 в 14:47.

16.12.2008, 14:56	#3
Acro Пользователь Регистрация: 21.10.2008 Сообщений: 39	Спасибо за оперативность. У меня тут проблема с руками : могу несколько часов потратить на поиск грамотного примера, но стоит только спросить самому как пример тут же находится. Навешивание чекбоксов по даблклику на ячейку: http://social.msdn.microsoft.com/for...-9c9a8e64c073/ У меня по даблклику добавляется строка с визуализацией данных через Код: `.Value = "=REPT(CHAR(103),R[1]C)"` , а как грамотнее удалить эту появившуюся строку? Последний раз редактировалось Acro; 16.12.2008 в 15:03.