|
14.08.2010, 17:26
#36791937
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Sevastopol
Сообщения: 473
Рейтинг:
0
/ 0
|
|
|
|
Вариант решения 1:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
' Form sheet module code
Const CallingFormCells = "A1,B2,C3:C5" ' Выделение этих ячеек активирует форму
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = Not Intersect(Range(CallingFormCells), Target) Is Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(CallingFormCells), Target) Is Nothing Then UserForm1.Show
End Sub
Вариант решения 2:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
' Form sheet module code
Const CallingFormCells = "A1,B2,C3:C5" ' Выделение этих ячеек активирует форму
Dim IsBusy As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range(CallingFormCells), Target) Is Nothing Then Exit Sub
IsBusy = True
UserForm1.Show
IsBusy = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = IsBusy
End Sub
|
|
|
