vba - Excel 日期格式

Question

我正在对一个已经完成的Excel程序做一些工作，但我在这方面非常生疏，或者可能从来没有在这部分做过什么，我在VBA方面很新，所以请不要评判我这是一个简单的错误或链接在描述中的错误。

因此，如果我放置确认选项，我会遇到问题，例如:在一个单元格中按您拥有的产品中的“1”，如果您已经拥有该产品，则在另一个单元格中写“S”，它会给您一个另一个单元格中的今天日期。

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

我要放置链接，因为就像我说的，我生疏了，我找不到这个日期的代码来自哪里。

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

Answer 1

如果我理解你的问题，问题就出在这一行:

rng1.Offset(0, 2).Clear

该行清除所有内容，包括基础格式。要保留格式，只需更改为

rng1.Offset(0, 2).ClearContents