Создание программы для XL

[Олег]

Пишу программку для себя и моих сослуживцев. Помогите решить локальную задачку: На одном из листов хочу обозначить небольшую область ячеек, на которой двойной щелчок выполнял бы мою функцию. Как это оформить?

[GSerg]

Первый клик сбросит выделение до одной ячейки. Поэтому, к примеру

Код: Выделить всё

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
  select case target.row
  case 5 to 10
    select case target.column
    case 10 to 20
      msgbox "!"
    end select
  end select
End Sub

[Gloom]

Можно ещё метод Intersect заюзать.
Если, например, нужно отслеживать клики по диапазону "A1:C3":

Код: Выделить всё

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("A1:C3")) Is Nothing Then MyFunction
End Sub