Присвоение столбцу языка

[Юра154]

Например, мы вводим данные об и-мейлах разных людей, мы не хотим все время, доходя до данной ячейке переключать клавиатуру, а хотели-бы сразу, перейдя в ячейку печатать на английском языке, как это сделать?

[Казанский]

http://programmersforum.ru/showthread.php?t=263110

[Юра154]

Я в vba 0, можете, пожалуйста, подробно объяснить?

[ЕржанСултанов]

Сообщение от Юра154

Например, мы вводим данные об и-мейлах разных людей, мы не хотим все время, доходя до данной ячейке переключать клавиатуру, а хотели-бы сразу, перейдя в ячейку печатать на английском языке, как это сделать?

Повнимательней, Вам уже дали ссылку на сам код

Private Declare Function ActivateKeyboardLayout _
                          Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column    ' в зависимости от номера столбца активной ячеки
        Case 1 To 3, 6    ' для столбцов (от 1 до3, 6 столбец) 
            ВключитьРусскуюРаскладку
        Case 4, 5:    ' для столбцов 4,5, где ваша ячейка
            ВключитьАнглийскуюРаскладку
        Case Else:    ' ничего не делаем (оставляем текущую раскладку)
    End Select
End Sub
 
Sub ВключитьРусскуюРаскладку()
    ' Переключить на русский язык
    x = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
 
Sub ВключитьАнглийскуюРаскладку()
    ' Переключить на английский язык
    x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub

Сообщение от Юра154

Я в vba 0, можете, пожалуйста, подробно объяснить?

Для наглядности выложите пример файла, с указанием столбца ячеек, где должна меняться раскладка, за вас может быть и сделают вставив этот код

[Юра154]

Спасибо, вопрос решен.