保存带有宏的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. 当你保存此工作簿时,日期将自动反转为正确的格式。

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

相关内容

热门资讯

第9分钟了解!家乡大二辅助!竟... 第9分钟了解!家乡大二辅助!竟然真的有辅助软件(新版有挂)-哔哩哔哩1、不需要AI权限,帮助你快速的...
1分钟了解!蜀山四川智能辅助插... 1分钟了解!蜀山四川智能辅助插件下载!总是一直总是有辅助神器(讲解有挂)-哔哩哔哩1)蜀山四川智能辅...
第7分钟了解!新超凡大厅怎么开... 第7分钟了解!新超凡大厅怎么开挂!确实存在有辅助教程(有挂透明挂)-哔哩哔哩1)新超凡大厅怎么开挂免...
第2分钟了解!掌上程序辅助器下... 第2分钟了解!掌上程序辅助器下载!本来真的是有辅助技巧(有挂解密)-哔哩哔哩1、掌上程序辅助器下载破...
第6分钟了解!赣牌圈靠谱吗!确... 第6分钟了解!赣牌圈靠谱吗!确实真的是有辅助工具(有挂技巧)-哔哩哔哩1、进入到赣牌圈靠谱吗是否有挂...
第五分钟了解!三哥玩辅助器软件... 第五分钟了解!三哥玩辅助器软件!切实存在有辅助攻略(有挂解惑)-哔哩哔哩1、第五分钟了解!三哥玩辅助...
第3分钟了解!爱玩娱乐暗堡辅助... 第3分钟了解!爱玩娱乐暗堡辅助!一直有辅助攻略(有挂解惑)-哔哩哔哩1、每一步都需要思考,不同水平的...
第一分钟了解!朋友局app辅助... 第一分钟了解!朋友局app辅助器下载!真是真的有辅助app(有挂方法)-哔哩哔哩1、下载好朋友局ap...
9分钟了解!微乐小程序辅助器!... 9分钟了解!微乐小程序辅助器!好像真的有辅助软件(确实有挂)-哔哩哔哩1、点击下载安装,微乐小程序辅...
第四分钟了解!游戏辅助制作器!... 第四分钟了解!游戏辅助制作器!竟然一直都是有辅助攻略(有挂方针)-哔哩哔哩1、进入游戏-大厅左侧-新...