杨老师课堂_VBA学习教程之VBA中使用函数

Posted 杨校老师

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了杨老师课堂_VBA学习教程之VBA中使用函数相关的知识,希望对你有一定的参考价值。

 效果预览图:

转换为日期格式的效果图:  

 

 

 从身份证中进行提取出生日期:

 

 

示例代码:

  1. 转换为日期格式

    方法1:

Sub zhuanhuaDate()

  Dim i AS Integer

    For i = 2 To Sheet1.Range("a65536").End(xlUp).Row
        Sheet1.Range("b" & i) = DateSerial(Left(Sheet1.Range("a" & i), 4), Mid(Sheet1.Range("a" & i), 5, 2), Right(.Range("a" & i), 2))
    Next


End Sub

    方法2:

Sub zhuanhua()

Dim i  As Integer
\'使用with 语句完成
With Sheet1

    For i = 2 To .Range("a65536").End(xlUp).Row
        .Range("b" & i) = DateSerial(Left(.Range("a" & i), 4), Mid(.Range("a" & i), 5, 2), Right(.Range("a" & i), 2))
    Next
End With

End Sub

  2.提取身份证中的生日

  方法1:

Sub tiqushengri()


 Dim i  As Integer

    For i = 2 To Sheet2.Range("a65536").End(xlUp).Row
        Sheet2.Range("b" & i) = DateSerial(Mid(Sheet2.Range("a" & i), 7, 4), Mid(Sheet2.Range("a" & i), 11, 2), Mid(Sheet2.Range("a" & i), 13, 2))
    Next


End Sub

  方法2:

Sub tiqushengri2()
Dim i  As Integer

With Sheet2

    For i = 2 To .Range("a65536").End(xlUp).Row
        .Range("b" & i) = DateSerial(Mid(.Range("a" & i), 7, 4), Mid(.Range("a" & i), 11, 2), Mid(.Range("a" & i), 13, 2))
    Next
End With
End Sub

 

以上是关于杨老师课堂_VBA学习教程之VBA中使用函数的主要内容,如果未能解决你的问题,请参考以下文章

杨老师课堂_Java核心技术下之控制台模拟文件管理器案例

杨老师课堂之ArrayList集合常用方法解析

杨老师课堂之JavaEE三大框架Hibernate入门第一课

准时下班系列!Excel合集之第3集—VBA怎么做双条件受控动态图表

杨老师课堂之springAOP事务控制源码解析

准时下班系列!Excel合集之第2集—VBA填充百万行公式,怎么写最快