Question

vba怎样使用当前日期

本人初学vba，录制了一个宏，代码如下：
Sub 宏1()
'
' 宏1 宏
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "day"
.Replacement.Text = "日"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
意思是把doc文档中的字符“day”替换成“日”字，如果要把“day”替换成当前系统时间的日期中日的数字，请问该如何修改代码？

Answer 1

vba使用当前日期的方法是利用excel内置函数实现的。

1、excel中函数date的使用方法：

2、在vba中，需要先定义一个变量，然后把date赋值：

dim cuDate as string 

cuDate = date

这样变量cuDate就获取到了date的值。

3、运行结果：

Sub test()

Dim cuDate As String

cuDate = Date

MsgBox cuDate

End Sub

Answer 2

不改变原始表格数据，打印时自动添加打印日期。

Answer 3

=date()
这样就可以引入当前日期。

Answer 4

.Replacement.Text = "日"
改为：.Replacement.Text = Day(date)

Answer 5

1.调用当天日期

Sub 当天日期()

Dim a As Date ‘给出当天日期

a = Format(Date, "yyyy-mm-dd")

End Sub

2.调用昨天的日期

目的：删除前天店铺库存、在途数量和订单数

sub 删除店铺库存（）

If CDate(Application.Max(Range("j:j"))) < Format(Date - 1, "yyyy-mm-dd") Then range("要删除的范围”).delect‘如果前天店铺库存还在，删除

end sub

3.日期

Sub 日期()

Dim 昨天 As Date, 今天 As Date, 最大值 As Date

昨天 = Format(Date - 1, "yyyy-mm-dd")

今天 = Format(Date, "yyyy-mm-dd")

时间 = CDate(Now())

最大值 = CDate(Application.Max(Range("j:j")))

End Sub