Excel 怎么用VBA代码表示日期“今天”

1、打开桌面上的Excel表格，在新建一个工作样表。

2、接着使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块。

3、输入以下代码：Option ExplicitSub ddt()Dim rq As DateDim lx As StringDim n As IntegerDim Msglx = "m"rq = InputBox("请输入一个日期")n = InputBox("输入增加月的数目：")Msg = "新日期:" &DateAdd(lx, n, rq)MsgBox MsgEnd Sub。

4、这里先对变量做声明，其中rq变量为日期类型，lx为字符串，n为整数型。msg并没有设置具体类型，vba会将其默认为可变类型variant。

5、输入日期并没有做错误纠正，最好输入2020/2/17这样的格式日期。增加的月数是赋值给了n这个变量。

6、最后用msgbox来输出最后的结果，就完成了。

Private Sub UserForm_Activate()

TextBox1Text = Format(Now, "yyyy年m月d日 hh:mm:ss AMPM")

End Sub

在窗体代码中输入上面代码就可以了，注意我这里的TextBox1Text你要改成你时间对应的文本框名称。

假设另一个指定文件为bxls，与代码所在工作簿处于同一文件夹中。。

时间和textbox内容要分别写入到其Sheet1的A、B两列

则该按钮的代码为

Private Sub CommandButton1_Click()

Dim wb As Workbook, aR As Long, bR As Long

Set wb = WorkbooksOpen(ThisWorkbookPath & "\bxls", , False)

With wbWorksheets(1)

    aR = IIf(ApplicationCountA(Range("A:A")) = 0, 1, Cells(RowsCount, 1)End(3)Row + 1)

    bR = IIf(ApplicationCountA(Range("B:B")) = 0, 1, Cells(RowsCount, 1)End(3)Row + 1)

    Cells(aR, 1) = Format(Now, "yyyy-mm-dd hh:mm:ss")

    Cells(bR, 2) = TextBox1Text

End With

wbClose True

TextBox1 = ""

End Sub

以上就是关于Excel 怎么用VBA代码表示日期“今天”全部的内容，包括:Excel 怎么用VBA代码表示日期“今天”、求vba大神！怎么在窗体的文本框中用now函数显示系统时间、vba获取系统时间并自动写到另一个指定的excel文件里等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！