vba获取系统时间并自动写到一个指定的excel文件里

vba获取系统时间并自动写到一个指定的excel文件里,第1张

很简单,如果你是直接在EXCEL的UserForm里面做的,那么就一句代码:
Private Sub CommandButton1_Click()
Cells(1, "A") = Format(Now(), "yyyy-mm-dd,hh:mm:ss") '在A1写入年-月-日,时:分:秒
Range("A2") = Format(Now(), "yyyy-mm-dd") '在A2写入年-月-日
Cells(3,1) = format(Now(),"hh:mm:ss") '在A3写入时:分:秒
End Sub

VBA中窗体出现时触发事件,使用UserForm_Initialize(),类似VB中的Form_load()

VBA中的文本框是Textbox,而VB中的是text

日期都可以用Date函数来获得,默认是YYYY/M/D格式,如果一定要显示固定格式,可以format函数,例如Formt(Date,"yyyy-m-d")

故下面代码可实现题目中的要求——(假设日期框是textbox1)

Private Sub UserForm_Initialize()
TextBox1Text = Formt(Date,"yyyy-m-d")

End Sub


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

原文地址: http://outofmemory.cn/yw/13354846.html

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

发表评论

登录后才能评论

评论列表(0条)

保存