如何在VBA中为Excel宏编写此代码

Question

如何将Excel编码为VBA？ 从Target.Offset(0, -4).Value =右侧开始Target.Offset(0, -4).Value =我不知道如何在VBA中说这个:( (Text(TODAY(), "MM") & Text(TODAY(), "DD") & Text(TODAY(), "yyyy")) & "-" . iVal (Text(TODAY(), "MM") & Text(TODAY(), "DD") & Text(TODAY(), "yyyy")) & "-" . iVal

这是基于日期的记录的自动入罪。 这是整个代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
    Application.EnableEvents = False
    Target.Offset(0, 2).Value = Date
    Target.Offset(0, 4).Value = "Open"


Dim iVal As Integer
iVal = Application.WorksheetFunction.CountIf(Range("H1:H5000"), Date)
    Target.Offset(0, -4).Value = (Text(TODAY(), "MM") & Text(TODAY(), "DD") & Text(TODAY(), "yyyy")) & "-" . iVal

    Application.EnableEvents = True
End If
End Sub

Answer 1

格式化文本的功能是FORMAT，而today（）的功能是Date。 示例如下：

format(Date,"ddmmyyyy")

这应该解决你的问题=]我认为你的意思

& iVal

不是

. iVal 

在末尾？

Answer 2

这个工作对你来说......我假设专栏

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
    Application.EnableEvents = False
    Target.Offset(0, 2).Value = Date
    Target.Offset(0, 4).Value = "Open"


**Dim iVal As Integer
iVal = Application.WorksheetFunction.CountIf(Range("H1:H5000"), Date)
    Target.Offset(0, -4).Value = Format(Date, "mmddyy") & "-" & Format(iVal, "000")**

    Application.EnableEvents = True
End If
End Sub