杨老师课堂_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