楊老師課堂_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