При переключении языка в excel

Данный макрос автоматизирует процесс переключения раскладки клавиатуры (смену языков ввода) при работе с таблицами в Excel.

К примеру, вы заносите данные в таблицу, где в некоторые столбцы требуется вводить русские слова (фамилия, имя, и т.п.), а в другие столбцы — английские (марка и модель авто, и т.д.)

Чтобы каждый раз не переключать раскладку вручную — можно воспользоваться WinAPI функцией ActivateKeyboardLayout

Вставьте этот код в модуль листа:

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    ' для столбцов Имя, Фамилия, Номер машины, Цвет
            ВключитьРусскуюРаскладку
        Case 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

• 37531 просмотр

• Remove From My Forums

Все ответы

• Привет,

  А что происходит при LShift+Alt? RShift+LAlt работает?

  Проверьте Ваши настройки и убедитесь, что там стоит Shift+Alt для переключения языков:

  

  1. Press Win+I to open Windows Settings.
  2. Switch to the Time & language tab on the left side.
  3. Click the Typing menu.
  4. Click on the Advanced keyboard settings option.
  5. Click on the Input language hot keys.
  6. Click the Change Key Sequence button.
  7. Choose a different key sequence.
  8. Click the OK button to save the change.

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

• Там все как надо:
  

  На активном окне ворда, экселя или путлука ни одна комбинация, кроме Win+пробел не работает. Но стоит мне переместить фокус на другое окно, как лальт+шифт начинает работать

• Посмотрите данное решение:

  

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

  • Изменено

    17 июня 2022 г. 13:14

• В Win11 все по-другому. Есть список языков:

  

  И для каждого языка можно добавить свою раскладку:

  

  И вне офиса стандартная смена ввода работает как и раньше, изменения я заметил только в офисных приложениях. Я покопался в настройках Excel, но не нашел ничего, что хоть как-то могло влиять на смену ввода.

• RShift+LAlt работает?

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

• Нет, в офисных приложениях работает только одна комбинация клавиш — Win+пробел

• Посмотрите например в Word’е: File -> Customize Ribbon -> Customize и в левом углу выбираете All Commands и в правом Language — у Вас там что-то стоит? Попробуйте выставить shift+alt.

  Если не получится, то попробуйте нажать Reset All..(у меня кнопка не функционирует из-за политик)

  

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

• 

  У меня там ничего не определено и я не могу ничего изменить. Кнопка Reset All так же не доступна. Интересно, что в это окне переключение языков через LShift+Alt
  работает, как и в окне Параметры Word.

• такой вопрос, если сперва нажать Alt, а затем LShift, что то меняется?

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

• Все очень странно… пару раз получилось переключиться одновременным нажатием или зажатием… Изменил смену языка на CTRL+LShift и смена языка включилась, но только при одновременном нажатии, и
  иногда не срабатывает… А можно ли отключить в ворде клавишу CTRL, чтобы не включался режим переключения вкладок ленты с помощью клавиатуры? Я думаю, что проблема была в этом

• Eсли сперва нажать Alt, а затем LShift, что то меняется?

  Смотрите информацию внизу:

  Using Alt to Switch Language Keyboards

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

• Нет, не меняется. Без разницы, как нажимать — Шифт+ЛАльт или ЛАльт+Шифт или одновременно

• Eсли сперва нажать Alt, а затем LShift, что то меняется?

  Смотрите информацию внизу:

  Using Alt to Switch Language Keyboards

  ---

  Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий. Не забывайте помечать сообщения как ответы и полезные,
  если они Вам помогли.

  К сожалению, описанный в статье метод мне не помог