方案一: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的值)
具体效果:
联系客服