Excel日期格式错误

Question

我在已经完成的excel计划上做了一些工作，但是我在这个领域非常生疏，或者可能从来没有做过这方面的事情，我在VBA中很新，所以请如果链接在描述中是一个简单的错误或错误，请不要判断我。

所以我有问题，如果我把确认选项，例如：在一个单元格中按＆＃34; 1＆＃34;在您拥有的产品中，在另一个单元格中写下＆＃34; S＆＃34;如果您已经拥有该产品，它会在今天的另一个单元格中显示您今天的日期。

问题是，当我删除我插入的信息并重新输入时，日期变形本身变小，单元格上的位置也会发生变化。

我要把这些链接放在一边，因为就像我说我生锈了一样，我无法找到这个日期代码的来源。

http://www.docdroid.net/12dh4/master-atual-20155.xls.html - ＆gt;这是Excel

http://www.docdroid.net/12dhj/errorphotos.pdf.html - ＆gt;照片显示错误

这是其中一张纸的代码，其他的几乎是相同的，如果你们看到这些照片，那将有助于理解错误本身。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Set rng1 = Intersect(Range("v3:v500"), Target)
If rng1 Is Nothing Then Exit Sub

Application.EnableEvents = False

 On Error Resume Next


    If rng1.Value <> "" Then
        rng1.Offset(0, 2).Value = Now()
    Else
        rng1.Offset(0, 2).Clear
    End If

Application.EnableEvents = True

End Sub

Answer 1

当您在第V列进行更改时，将触发代码。您可以在工作表中找到代码：

如果列V不包含任何值，它将清除日期。
顺便说一下，日期不会变小，但它会以不同的格式显示今天的日期。您可以通过右键单击单元格来检查日期格式，然后选择格式单元格...选项以查看它。