杨老师课堂_VBA学习教程之VBA中使用函数-阿里云开发者社区

开发者社区> 云计算> 正文
登录阅读全文

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

简介: 效果预览图: 转换为日期格式的效果图:        从身份证中进行提取出生日期:     示例代码:   1. 转换为日期格式     方法1: Sub zhuanhuaDate()   Dim i AS Integer For i = 2 To Sheet1.

 效果预览图:

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

 

 

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

 

 

示例代码:

  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

 

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

其他文章