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

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

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