如何在Excel VBA中将MsgBox的Yes/No按钮改为西班牙语Si/No？

默认的MsgBox函数按钮文本由Office安装语言决定，无法直接通过参数修改。要在不修改Office全局语言、不使用用户窗体的前提下，让按钮显示西班牙语（Sí/No），可以通过调用Windows API的MessageBoxIndirect函数实现，且仅影响当前.xlsm文件。

步骤1：在标准模块中声明API和常量 #

打开VBA编辑器（Alt+F11），插入一个标准模块（右键项目→插入→模块），粘贴以下代码：

#If VBA7 Then
    Private Type MSGBOXPARAMS
        cbSize As LongPtr
        hwndOwner As LongPtr
        hInstance As LongPtr
        lpszText As String
        lpszCaption As String
        dwStyle As Long
        lpszIcon As String
        dwContextHelpId As Long
        lpfnMsgBoxCallback As LongPtr
        dwLanguageId As Long
    End Type
    Private Declare PtrSafe Function MessageBoxIndirect Lib "user32.dll" Alias "MessageBoxIndirectW" (lpMsgBoxParams As MSGBOXPARAMS) As Long
#Else
    Private Type MSGBOXPARAMS
        cbSize As Long
        hwndOwner As Long
        hInstance As Long
        lpszText As String
        lpszCaption As String
        dwStyle As Long
        lpszIcon As String
        dwContextHelpId As Long
        lpfnMsgBoxCallback As Long
        dwLanguageId As Long
    End Type
    Private Declare Function MessageBoxIndirect Lib "user32.dll" Alias "MessageBoxIndirectW" (lpMsgBoxParams As MSGBOXPARAMS) As Long
#End If

Private Const MB_YESNO = &H4&
Private Const IDYES = 6
Private Const IDNO = 7
Private Const MAKELANGID = &H10000
Private Const LANG_SPANISH = &HC&
Private Const SUBLANG_SPANISH_NEUTRAL = &H0& ' 通用西班牙语；若需西班牙本土语，改为&H1&；墨西哥语改为&H8&

步骤2：创建自定义西班牙语MsgBox函数 #

在同一个模块中添加以下函数：

Function SpanishMsgBox(prompt As String, Optional title As String = "Confirmación") As Integer
    Dim msgParams As MSGBOXPARAMS
    
    With msgParams
        #If VBA7 Then
            .cbSize = LenB(msgParams)
        #Else
            .cbSize = Len(msgParams)
        #End If
        .hwndOwner = Application.hwnd
        .lpszText = prompt
        .lpszCaption = title
        .dwStyle = MB_YESNO
        ' 指定西班牙语语言ID，强制按钮显示对应文本
        .dwLanguageId = MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_NEUTRAL)
    End With
    
    SpanishMsgBox = MessageBoxIndirect(msgParams)
End Function

步骤3：调用自定义MsgBox #

在你的宏中使用SpanishMsgBox替代原生MsgBox，示例：

Sub TestSpanishPrompt()
    Dim userResponse As Integer
    userResponse = SpanishMsgBox("¿Estás seguro de eliminar este registro?", "Confirmación de Eliminación")
    
    Select Case userResponse
        Case IDYES
            ' 执行Sí对应的操作
            MsgBox "Registro eliminado correctamente", vbInformation, "Éxito"
        Case IDNO
            ' 执行No对应的操作
            MsgBox "Operación cancelada", vbInformation, "Cancelado"
    End Select
End Sub

关键说明 #

• 仅影响当前文件：所有代码都封装在当前.xlsm的VBA模块中，不会修改Office全局设置或影响其他Excel文件。
• 系统兼容性：该方法依赖Windows API，仅适用于Windows系统的Excel；Mac版Excel不支持此API。
• 西班牙语变体：修改SUBLANG_SPANISH_*常量可切换不同地区的西班牙语按钮文本（如西班牙本土、墨西哥等）。

内容的提问来源于stack exchange，提问作者Jorge Rangel