保存带有宏的Excel工作簿时日期反转
创始人
2024-11-22 07:00:15
0

要解决"保存带有宏的Excel工作簿时日期反转"的问题,可以使用以下代码示例:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历工作表中的所有单元格
        For Each cell In ws.UsedRange
            ' 检查单元格是否包含日期格式
            If cell.NumberFormat = "yyyy/mm/dd" Or cell.NumberFormat = "mm/dd/yyyy" Then
                ' 反转日期
                cell.Value = DateSerial(Year(cell.Value), Month(cell.Value), Day(cell.Value))
            End If
        Next cell
    Next ws
End Sub

此代码是在Excel工作簿保存之前自动执行的宏。它会遍历所有工作表和单元格,检查单元格是否包含日期格式,并将日期反转为正确的格式。

要使用此代码,可以按照以下步骤进行操作:

  1. 打开Excel工作簿。
  2. 按下ALT + F11打开Visual Basic Editor。
  3. 在左侧的项目资源管理器中,双击要在其中添加代码的工作簿。
  4. 在代码窗口中,粘贴上述代码。
  5. 关闭Visual Basic Editor。
  6. 当你保存此工作簿时,日期将自动反转为正确的格式。

请注意,此代码将适用于整个工作簿中的所有工作表和单元格。如果你只想在特定的工作表或单元格范围内应用此代码,请相应地修改代码。

相关内容

热门资讯

2026版辅助挂!黑科技软件大... 2026版辅助挂!黑科技软件大全(辅助)竟然真的是有辅助攻略(真实有挂)1、黑科技软件大全模拟器是什...
2026版技巧!大众互娱脚本(... 2026版技巧!大众互娱脚本(辅助)切实存在有辅助神器(有挂解惑)1、大众互娱脚本免费脚本咨询教程、...
近日!边锋嘉兴辅助(辅助)切实... 近日!边锋嘉兴辅助(辅助)切实是真的有辅助脚本(有挂规律)所有人都在同一条线上,像星星一样排成一排,...
一直以来!上饶窝龙辅助(辅助)... 一直以来!上饶窝龙辅助(辅助)切实真的是有辅助技巧(有挂分享)1、许多玩家不知道上饶窝龙辅助辅助怎么...
明白辅助挂!开心斗一番破解版(... 明白辅助挂!开心斗一番破解版(辅助)总是真的是有辅助插件(有挂教学)1、在开心斗一番破解版插件功能辅...
无独有偶!花花生活圈怎么开挂(... 无独有偶!花花生活圈怎么开挂(辅助)果然存在有辅助神器(竟然有挂)该软件可以轻松地帮助玩家将花花生活...
2026版软件!山西扣点免费辅... 2026版软件!山西扣点免费辅助(辅助)本来存在有辅助脚本(详细教程)暗藏猫腻,小编详细说明山西扣点...
黑科技攻略!悟空大厅辅助(辅助... 黑科技攻略!悟空大厅辅助(辅助)切实真的是有辅助攻略(真的有挂);1、不需要AI权限,帮助你快速的进...
2026版总结!微信小程序辅助... 2026版总结!微信小程序辅助新天道辅助(辅助)一直是有辅助技巧(有挂功能)1、点击下载安装,微信小...
第三方辅助挂!三哥玩辅助器软件... 第三方辅助挂!三哥玩辅助器软件(辅助)果然是真的有辅助软件(有挂教学)1)三哥玩辅助器软件辅助插件:...