На этом протале нашел два макроса. Один делает "крыжики" по щелчку мыши, а другой блокирует строку по значению выбранному из выпадающего списка.
А как их объеденить не знаю и знать не могу, VBA никогда не изучал. Помогите пожалуйста.
Вот ссылка на первый м "крыжиками":
И код этого макроса:
Вот второй:
И его код:
А как их объеденить не знаю и знать не могу, VBA никогда не изучал. Помогите пожалуйста.
Вот ссылка на первый м "крыжиками":
И код этого макроса:
| Код |
|---|
'Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100" ;) ) Is Nothing Then
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If
End Sub
'Снимаем флажок, если был двойной щелчок по ячейке
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A100" ;) ) Is Nothing Then
Cancel = True 'чтобы не уйти в режим редактирования
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If
End Sub |
Вот второй:
И его код:
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:K1000" ;) ) Is Nothing Then
If Cells(Target.Row, 12).Value = "Закрыт" Then Cells(Target.Row, 12).Activate
End If
End Sub |
