杨老师课堂_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中使用函数的主要内容,如果未能解决你的问题,请参考以下文章
杨老师课堂之JavaEE三大框架Hibernate入门第一课