EXCEL如何用VBA获取日期并且保持不变

EXCEL如何用VBA获取日期并且保持不变,第1张

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代码把单元格数字提取出来变成日期、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9759228.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-01
下一篇 2023-05-01

发表评论

登录后才能评论

评论列表(0条)

保存