Excel VBA 校验日期 范围2000-2099年 格式MM/DD/YYYY
来源:互联网 发布:我想做淘宝兼职 编辑:程序博客网 时间:2024/06/05 07:29
Function CI(c) 'Cells.Address.Information If IsNumeric(c) Then On Error GoTo NumErr CI = Replace(Cells(, c).Address(0, 0), 1, "") Else On Error GoTo TxtErr CI = Range(c & 1).Column End If Exit FunctionNumErr: CI = "Not 1-" & Cells(Cells.Count).Column & " !": Exit FunctionTxtErr: CI = Cells(Cells.Count).Address(1, 0) CI = "Not A-" & Left(CI, InStr(CI, "$") - 1) & " !": Exit FunctionEnd FunctionPublic Sub ChDate()Dim i As Integer, re As Object, ColumnLetter As StringColumnLetter = "I"Set re = CreateObject("VBscript.regexp")re.Pattern = "((((0[13578]|1[02])\/(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)\/(0[1-9]|[12][0-9]|30))|(02\/(0[1-9]|[1][0-9]|2[0-8])))\/(20[0-9]{2}))|(02\/29\/(20(0[48]|[2468][048]|[13579][26])|2000))"For i = 2 To Cells(Rows.Count, CI(ColumnLetter)).End(3).Row Step 1 Range(ColumnLetter & i).Value = Trim(Range(ColumnLetter & i).Value) If TypeName(Range(ColumnLetter & i).Value) = "Date" Then Range(ColumnLetter & i) = Format(Date, "mm/dd/yyyy") ElseIf IsNumeric(Range(ColumnLetter & i).Value) Then Range(ColumnLetter & i).Value = CDate(Range(ColumnLetter & i).Value) Range(ColumnLetter & i) = Format(Date, "mm/dd/yyyy") End IfNext iFor i = 2 To Cells(Rows.Count, CI(ColumnLetter)).End(3).Row Step 1If Not re.Test(WorksheetFunction.Text(Range(ColumnLetter & i).Value, "mm/dd/yyyy")) And Range(ColumnLetter & i).Value <> "" Then Range(ColumnLetter & i).Interior.Color = RGB(255, 255, 0)End IfNext iEnd Sub
0 0
- Excel VBA 校验日期 范围2000-2099年 格式MM/DD/YYYY
- 校验日期格式为yyyy-MM-dd
- 校验日期格式yyyy-MM-dd及两日期比较
- 修改 excel 文件中的日期格式为 yyyy-mm-dd
- 判断"yyyy年mm月dd日"的日期格式
- 将日期格式化为yyyy/MM/dd
- js获取yyyy-mm-dd格式日期
- ios日期格式yyyy-MM-dd
- Js 日期格式化为yyyy-MM-dd
- 日期格式yyyy/MM/dd格式转为yyyy-MM-dd格式
- Java日期格式转换-yyyy-MM-dd HH:mm:ss转换为yyyy-MM-dd
- yyyy-MM-dd日期格式转化成ddMMMyy日期格式
- 日期格式yyyy-MM-dd HH:mm:ss的解释
- excel实现不规范的日期转换成yyyy-mm-dd的格式
- Excel限定输入日期格式是yyyy-mm-dd(亲自实践)
- 日期格式yyyy-mm-dd ,yyyy/mm/dd 这样就不用在控制面板设置了
- Win7时间日期格式YYYY/MM/DD改为YYYY-MM-DD
- iOS - 日期格式YYYY-MM-dd和yyyy-MM-dd的区别
- 程序员必备(大学生版)
- java 导入本地的JAR包到maven
- 大型情感类电视连续剧--Android高德之旅(2)地图类型
- 闭包权威指南翻译 -前言
- Xcode8 配置 Deployment Target 支持7.0及更低版本
- Excel VBA 校验日期 范围2000-2099年 格式MM/DD/YYYY
- Android Tips-填坑手册
- 键盘上符号的英文
- lintcode,带环链表
- 论文笔记Understanding and Diagnosing Visual Tracking Systems
- Unity Physics2D.OverlapPoint 重叠点
- Java NIO理解与使用
- Hadoop(一)——安装以及整体了解
- Python十日谈:第一日-标准类型