MyTetra Share
Делитесь знаниями!
Событие при выделении ячейки
16.03.2019
23:43
Текстовые метки: VBA, Events, Target, Cells, События листа
Раздел: !Закладки - VBA - Excel - Cells

'Событие при выделении ячейки

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Target.Count <> 1 Then Exit Sub

If Not Intersect(Target, Range("Value_CUET")) Is Nothing Then

Stop

End If

End Sub


'===============================================================

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Target.Column ' в зависимости от номера столбца активной ячеки

Case 3, 9, 10, 11, 12: ' для столбцов с №...

ВключитьРусскуюРаскладку

Case 4, 5, 6, 7, 14, 15, 16, 17: ' для столбцов с №...

ВключитьАнглийскуюРаскладку

Case 13: ' при активации ячейки в столбце №...

ВключитьПереходячеек

Case Else: ' ничего не делаем (оставляем текущую раскладку)

End Select

End Sub


Sub ВключитьРусскуюРаскладку()

' Переключить на русский язык

x = ActivateKeyboardLayout&(kb_lay_ru, 0)

End Sub


Sub ВключитьАнглийскуюРаскладку()

' Переключить на английский язык

x = ActivateKeyboardLayout&(kb_lay_en, 0)

End Sub


Sub ВключитьПереходячеек()

' Перейти на строку вниз в столбец ввода PJI И

ActiveCell.Offset(1, -4).Range("A1").Select

End Sub

''===============================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования