如何计算2列的单元格变化

时间:2019-05-02 19:37:02

标签: excel vba

我想改善共享的excel文件,以便能够显示特定单元格更改的时间。

但是,我不知道如何编码

我想编写一个代码,计算该行中其他两个单元格的更改次数,并将它们汇总到整个列范围内的一个单元格中。

例如,计算U和Z列被更改的次数(我在3个选项中都具有一个下拉菜单“ OK,Change,TBC”),并将这些更改汇总到单元格X中。

具体来说,如果某人更改了U列中的单元格,而另一个用户更改了Z(或同一行)中的单元格Z或U,则该X列将使用2作为数值2,依此类推。

真的很感谢您的时间。

1 个答案:

答案 0 :(得分:-2)

我使用了以下代码,但它似乎仅适用于1个单元格。我想包括2列,其中检查计数并将其粘贴到另一个单元格上。

Dim xCount As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range, xCell As Range

    On Error Resume Next
    If Target = Range("U6") Then
        xCount = xCount + 1
        Range("X6").Value = xCount                                    
    End If
    Application.EnableEvents = False
    Set xRg = Application.Intersect(Target.Dependents, Me.Range("U6"))
    If Not xRg Is Nothing Then
        xCount = xCount + 1
        Range("X6").Value = xCount
    End If
    Application.EnableEvents = True
End Sub