修改Excel VBA代码 实现下拉菜单切换全工作簿货币格式

原代码是单工作表级的Change事件，仅对当前工作表的H1单元格生效，要实现全工作簿货币格式同步切换，需要把事件迁移到工作簿级，同时把格式应用范围从单个单元格扩展到全工作簿的目标数值区域。

核心修改点 #

• 将原有工作表模块内的Worksheet_Change事件，替换为ThisWorkbook模块内的Workbook_SheetChange工作簿级事件
• 移除原代码中仅指定H1单元格的范围限制，改为遍历所有工作表批量设置格式
• 增加单元格类型判断，避免误改文本、表头等非数值内容的格式
• 保留错误处理和事件开关，防止触发事件递归导致代码报错

修改后完整代码 #

注意：以下代码需要粘贴到VBA编辑器的ThisWorkbook模块中，请勿放在普通工作表模块内。使用前请将代码中"Sheet1"替换为你存放F1货币下拉菜单的实际工作表名称。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 校验触发源：仅当下拉菜单所在工作表的F1单元格被修改时执行逻辑
    If Sh.Name <> "Sheet1" Then Exit Sub
    If Intersect(Target, Sh.Range("F1")) Is Nothing Then Exit Sub
    
    On Error GoTo endit
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim currencyFormat As String
    ' 匹配选中货币对应的格式
    Select Case Target.Value
        Case "USD"
            currencyFormat = "$#,##0.00"
        Case "GBP"
            currencyFormat = "£#,##0.00"
        Case "EUR"
            currencyFormat = "€#,##0.00"
        Case Else
            GoTo endit
    End Select
    
    ' 遍历全工作簿所有工作表应用格式
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws.UsedRange
            ' 仅修改常量数值的单元格格式
            .SpecialCells(xlCellTypeConstants, xlNumbers).NumberFormat = currencyFormat
            ' 兼容公式计算得到的数值，忽略无公式数值时的报错
            On Error Resume Next
            .SpecialCells(xlCellTypeFormulas, xlNumbers).NumberFormat = currencyFormat
            On Error GoTo endit
        End With
    Next ws

endit:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

可选自定义调整 #

• 如果需要跳过部分工作表不修改格式，可在遍历工作表的循环内加判断，比如If ws.Name = "参数配置" Then GoTo NextWs即可跳过名为「参数配置」的工作表
• 如果不需要全区域生效，仅需要修改固定列/固定范围，可将ws.UsedRange替换为目标范围，例如ws.Range("C:G")代表修改所有工作表的C列到G列
• 如果不需要区分单元格类型，要强制修改指定范围所有单元格的格式，可直接删除SpecialCells相关判断，直接写对应范围的格式赋值语句即可

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