如何通过Excel宏更改Windows语言以修复表单快捷键失效问题

问题背景 #

我创建了名为FF的表单，通过以下代码显示：

Sub SH()
    FF.Show = True
End Sub

表单内的按钮通过Accelerator属性设置了快捷键：

CommandButton1.Accelerator = "H"
CommandButton2.Accelerator = "A"
' 其他按钮的快捷键设置...

仅当Windows系统语言为英文时快捷键正常工作；切换到非英文系统语言后，即使按下Alt+左Shift切换输入法，快捷键仍无法生效。需要在执行FF.Show = True前添加代码，将系统语言临时切换为英文。

可行代码解决方案 #

要实现系统键盘布局切换，需调用Windows API函数，以下是完整VBA实现：

1. 声明API函数（需放在模块最顶部）

Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
    lpList As Long) As Long
Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, _
    ByVal flags As Long) As Long
Const KLF_ACTIVATE = &H1
Const ENGLISH_LANG_ID = &H409 ' 美式英文键盘布局ID

64位Office需在API声明前添加PtrSafe关键字：Declare PtrSafe Function ...

2. 编写查找并切换到英文布局的函数

Function SwitchToEnglishLayout() As Boolean
    Dim layoutCount As Long
    Dim layoutList() As Long
    Dim i As Long
    
    ' 获取系统已安装的键盘布局数量
    layoutCount = GetKeyboardLayoutList(0, 0)
    If layoutCount = 0 Then
        SwitchToEnglishLayout = False
        Exit Function
    End If
    
    ' 分配数组存储布局ID
    ReDim layoutList(0 To layoutCount - 1)
    GetKeyboardLayoutList layoutCount, layoutList(0)
    
    ' 遍历查找英文布局并激活
    For i = 0 To layoutCount - 1
        If (layoutList(i) And &HFFFF) = ENGLISH_LANG_ID Then
            ActivateKeyboardLayout layoutList(i), KLF_ACTIVATE
            SwitchToEnglishLayout = True
            Exit Function
        End If
    Next i
    
    ' 未找到英文布局时返回False
    SwitchToEnglishLayout = False
End Function

3. 修改SH()过程，添加切换逻辑

Sub SH()
    ' 先切换到英文布局
    If SwitchToEnglishLayout() Then
        FF.Show = True
    Else
        MsgBox "系统未安装英文键盘布局，无法启用快捷键功能。"
    End If
End Sub

可选：表单关闭后恢复原布局

若需在表单关闭后恢复用户初始键盘布局，可在FF表单的代码模块中添加：

Private originalLayout As Long

Private Sub UserForm_Initialize()
    ' 记录初始布局
    originalLayout = ActivateKeyboardLayout(0, 0)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 恢复初始布局
    ActivateKeyboardLayout originalLayout, KLF_ACTIVATE
End Sub

注意事项 #

• 若需适配其他英文变体（如英式英文），可将ENGLISH_LANG_ID改为&H809。
• 该操作仅切换当前线程的键盘布局，不会修改系统默认语言设置。

内容的提问来源于stack exchange，提问作者Jo Jomax