我知道VBA总是将日期视为美国mm / dd / yyyy格式,但不知道如何解决这个特殊问题。我希望最终将日期作为文本字符串,以点作为分隔符和英国风格(即dd.mm.yyyy)以启用另一个程序的数据输入。我目前有:
`Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Replace What:="/", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
(第一行将数据粘贴到我将用于数据输入的工作表中)
但当然,最终会以mm.dd.yyyy结束。
答案 0 :(得分:0)
考虑:
Sub dural()
Range("A1") = Now
Range("A1").Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Replace What:="/", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.NumberFormat = "dd.mm.yyyy"
End Sub
答案 1 :(得分:0)
如果您必须在工作表中添加日期来自计算,则可以尝试以下代码段:
Dim mydate As Date
mydate = Now()
Range("F2") = Format(mydate, "dd.mm.yyyy")