VBA判断系统系统语言
Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long
Function language() As Boolean
language = (GetSystemDefaultCID = &H409) '&H409为英文，&H404繁体中文，&H804简体中文
End Function
Sub test()
If language Then
MsgBox "English"
Else
MsgBox "中文"
End If
End Sub