在VBA中实现把字符串设置为时间格式
(2011-09-28 17:24:16)
标签:
杂谈 |
分类: EXCEL学习 |
Sub converdate()
Dim wkb As Workbook
Dim wkt As Worksheet
Dim str
Set wkb = ThisWorkbook
For Each wkt In wkb.Worksheets
wkt.Activate
str = wkt.Range("A2").Value
Range("A2") = CDate(str)
Range("a2", Range("a65536").End(xlUp)) = CDate(str)
Next wkt
End Sub