Excel日期格式错误

-2

我在一个已经完成的excel程序上做了一些工作，但在这方面我很生疏，或者从未做过这方面的工作，我在VBA中很新，如果这是一个简单的错误或错误的链接是在描述中判断我。Excel日期格式错误

所以，我有问题，如果我把确认选项，例如：在一个单元格中按“1”在你有产品，在另一个单元格写“S”，如果你已经有产品，它会让你今天在另一个单元格中的日期。

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

我打算把链接，因为，就像我说我生锈，我无法找到这个日期的代码来自哪里。

http://www.docdroid.net/12dh4/master-atual-20155.xls.html - >这是一个Excel的

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

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

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

来源

2015-06-03 Luis

您希望我们修复您不愿意查找的代码吗？ – Greg

右键单击选项卡，然后选择“查看代码”，然后将其发布到此处（编辑您的原始消息，请勿将其放入评论中） –

当你在列五，您可以在工作表中找到自己的代码变更的代码将被触发：
worksheet code
它将清除如果日期列V不包含任何值。
顺便说一下，日期并没有变小，但它以不同的格式显示了今天的日期。您可以通过右键单击单元格并选择格式单元格...选项来查看日期格式。

来源

2015-06-04 01:19:50

Excel日期格式错误

回答

相关问题