2. 点击“确定”或按Enter键,在单元格中就会显示当前的时间。
3. 如果要把此时间格式改成文本形式,也就没有任何“/”、“:”或空格,一般可以通过设置单元格格式来完成。
4. 除了设置单元格格式,也可以用TEXT函数来实现,例如在单元格的右侧单元格输入TEXT函数,第一个参数引用B2单元格也就是当前的时间。
5. TEXT函数的第二个参数是文本的格式。
6. 点击确定后,即可得到文本形式的时间。
7. 将两个函数结合到一起放在一个单元格中。
8. 在Excel VBA中如何通过代码来实现这两个函数的结合:
打开Visual Basic,添加模块和过程,称之为“test”。
9. 在过程中添加代码,将执行的结果返回到B4单元格中。
10. 在VBA中通过WorksheetFunction来找到对应的函数。
11. 在WorksheetFunction后面继续输入TEXT函数,其第一个参数为NOW函数,第二个参数为文本格式。
Sub test()Sheet2.Range("B4")=Application.WorksheetFunction.Text(Now(),"yyyymmddhhmmss")End Sub
12. 执行以上代码后,即可在B4单元格显示文本格式的当前时间。
13. 在VBA中这里的函数可以用另一种方式来写,就是format。
Sub test()Sheet2.Range("B5") = Format(Now(), "yyyymmddhhmmss")End Sub
喜欢的朋友请多多关注,感谢支持!已下架