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日期格式錯誤

回答

相關問題