Question

作为一个初学者，我正在寻找有关公式的信息。我已经研究过，但没有找到帮助。

在excel每月工作表上，我有一列单元格，其日期格式与联系成员的跟进有关。当我更改单元格中的日期（该人的最新联系人）时，我想显示我更改该月的日期的次数。例如B列显示与该人联系的最后日期 J列显示了这个月与该人联系的次数。

任何建议都值得赞赏，但请记住我是初学者。 - 谢谢！

Answer 1

在工作表代码区域中放置以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rINT As Range, r As Range, B As Range
    Set B = Range("B:B")
    Set rINT = Intersect(B, Target)
    If rINT Is Nothing Then Exit Sub

    Application.EnableEvents = False
        For Each r In rINT
            rw = r.Row
            With Cells(rw, "J")
                If .Value = "" Or .Value = 0 Then
                    .Value = 1
                Else
                    .Value = .Value + 1
                End If
            End With
        Next r
    Application.EnableEvents = True
End Sub

每次在该行中更新列 B 中的单元格时，它将在 J 列中计数。

由于是工作表代码，因此安装非常容易，并且自动使用：

右键单击Excel窗口底部附近的标签名称
选择查看代码-这将打开一个VBE窗口
将内容粘贴并关闭VBE窗口

如果有任何疑问，请先在试用工作表上尝试。

如果保存工作簿，则宏将随其一起保存。如果您在2003年以后使用Excel版本，则必须保存该文件为.xlsm而不是.xlsx

要删除宏：

如上所述调出VBE窗口
清除代码
关闭VBE窗口

要全面了解有关宏的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其正常工作！

链接单元格的值更改时更改单元格中的值的公式

1 个答案: