返回列表 上一主題 發帖

請教關於Excel Target.Columns

請教關於Excel Target.Columns

大大們好,

請教關於Excel Target.Columns,
我在網路上看到一個excel 應用, 目的是在檔案某些內容被改動時,在該列的第A欄呈現改動的日期
VBA碼如下,
但我查了好幾天,還是弄不通,
明明是要update A欄, 為何是用" Target.Columns(2 - Target.Column) = Date"?


Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
        ' Only look at single cell changes
        If Target.Count > 1 Then Exit Sub
        Set rng = Range("C:S")
        ' Only look at that range
        If Intersect(Target, rng) Is Nothing Then Exit Sub
        '   Add the Date  in Column A whenever an entry is made in the same row in Columns C~S
        If Target <> "" Then

            Target.Columns(2 - Target.Column) = Date

        End If
        '   Clear the cell in Column A and B if the same row in Columns C~S is cleared
        If Target = "" Then

        Target.Columns(2 - Target.Column) = ""

        End If
End Sub

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題