|
方案一：vba加excel函数达到目的。 这个行吗。 a1单元格出现变动，提示文件被修改，确认后b2显示被修改的次数，sheet2中记录修改的时间。 代码如下： sheet1，b2单元格填写=count（sheet2!a:a) Visual basic中填写 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, [a1]) Is Nothing Then a = Sheets(2).Cells(Rows.Count, 1).End(3).Row + 1 Sheets(2).Cells(a, 1) = Now End If MsgBox “您的文档正在被修改” End Sub 方案二：excel函数直接达到目的 先在Excel选项的公式那一块，将启用迭代计算勾选，最大迭代次数改为1。 单元格a1中不填任何东西，单元格b1中输入函数 =if(cell('contents',a1)<>'',b1+1,b1 函数解读：单元格B1等于，如果（在A1至A1这个区域内的最左上角取值，如果这个值不再是空白，或者有变化，那么B1等于之前B1中的数加上1，否则B1等于之前B1的值） 具体效果：
|
|
|
