宏录制中切换国家导致录制终止，如何制作切换表格国家的宏？

核心原因 #

Excel宏录制功能无法捕捉系统级的区域（国家/地区）切换操作，这类操作会直接中断录制流程，因此必须手动编写VBA代码来实现需求。

实现步骤 #

1. 打开VBA编辑器 #

按下 Alt + F11 快速打开VBA编辑器，也可通过菜单栏「开发工具」→「Visual Basic」进入。

2. 插入空白模块 #

在左侧「工程资源管理器」中右键点击目标工作簿名称，选择「插入」→「模块」，创建一个新的代码模块。

3. 编写切换区域的VBA代码 #

根据目标国家/地区，替换代码中的区域ID即可，模板如下：

Sub SwitchSpreadsheetLocale()
    ' 替换为目标区域的ID：
    ' 中文（简体，中国）：2052
    ' 美国英语：1033
    ' 西班牙语（西班牙）：3082
    Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 2052
    Application.LanguageSettings.LanguageID(msoLanguageIDHelp) = 2052
    Application.LanguageSettings.LanguageID(msoLanguageIDExeMode) = 2052
    
    ' 可选：刷新工作簿确保设置生效
    ThisWorkbook.RefreshAll
End Sub

常用区域ID参考：

• 英国英语：2057
• 法语（法国）：1036
• 德语（德国）：1031

4. 运行并测试宏 #

返回Excel界面，按下 Alt + F8 调出宏对话框，选择创建好的SwitchSpreadsheetLocale宏，点击「执行」即可完成区域切换。

5. 保存宏 #

若需永久保留该宏，需将工作簿保存为「Excel启用宏的工作簿（*.xlsm）」格式，否则宏会随文件关闭丢失。

额外提示 #

• 如需快速切换多个区域，可复制多份Sub过程，修改不同区域ID并命名（比如SwitchToEnglishUS、SwitchToChineseCN）。
• 部分区域设置需重启Excel才能完全生效，若切换后界面未更新，关闭并重新打开Excel即可。

内容的提问来源于stack exchange，提问作者rodrigo rossi longo