☰

如何修复电子表格语言？

tag-icon • tag-icon microsoft-excel microsoft-office language localization
如何修复电子表格语言？

我正在创建一个电子表格，我想确保所有内容都是英文的，即使与在 Office 中设置了其他语言的用户共享电子表格也是如此。以下是非英文的示例（法语是默认语言）：

在此处输入图片描述

在文档层面上，这可能吗？我知道我可以管理语言我的办公室安装，我想了解我是否可以覆盖其他人安装的此设置（针对该文档）

答案1

这是一个 VBA 解决方法，它将所有日期的格式设置为特定语言。它仅用于格式化日期，但您可以更改它。根据“设置单元格格式”对话框中的选项，我相信它只对日期、时间和特殊格式有效，但从技术上讲，您可以将 LCID 添加到任何格式。您将需要语言 ID 列表设置LCID为您需要的任何值。（请务必使用 LCID Hex，而不是 LCID Dec）

Sub SetLanguageFormat()

    'Declarations
    Dim cell As Range
    Dim f As String
    Const LCID As String = "[$-0409]"
    Dim reg 'As RegExp  'Removed for late binding

    'Setup regular expression
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.Pattern = "\[\$\-+[\w]*[\w]\]"

    'Loop through all cells and change the date formate
    For Each cell In ActiveSheet.UsedRange.Cells
        If IsDate(cell.Value) Then
            f = cell.NumberFormat
            If reg.Execute(f).Count > 0 Then
                'Language is set so replace it
                f = reg.Replace(f, LCID)
            Else
                'Langauge is not set so add it
                f = LCID & f
            End If
            cell.NumberFormat = f
        End If
    Next

End Sub

您也可以通过手动方法右键单击单元格，然后单击“设置单元格格式...”

相关内容