Private Sub Worksheet_Change(ByVal Target As Range)
If TargetColumn = 1 Then
If Target = "" Then TargetOffset(0, 1) = "" Else TargetOffset(0, 1) = Now
End If
End Sub
Public Function ToDate(str As String)
Dim st
st = Trim(str)
dat = Format(Left(st, 4) + "/" + Mid(st, 3, 2) + "/" + Mid(st, 5, 2) + " " + Right(st, Len(st) - InStr(st, " ")), "yyyy/MM/dd hh:mm;ss")
End Function
以上就是关于EXCEL如何用VBA获取日期并且保持不变全部的内容,包括:EXCEL如何用VBA获取日期并且保持不变、怎么用vba代码把单元格数字提取出来变成日期、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)