3个回答
展开全部
如果你有两个表格,用户使用前和用户使用后的,可以通过一些核查排除。
如果你仅仅想通过一个程序来判断用户的表格时,因为这个表格已经是一个独立存在的文件,没有任何的对比条件,是没可比性的,也无从判断。
如果你仅仅想通过一个程序来判断用户的表格时,因为这个表格已经是一个独立存在的文件,没有任何的对比条件,是没可比性的,也无从判断。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'首先定义全局变量
Public urrc As Variant
'然后定义变量为selectionchange事件中的已使用行数
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
urrc = ThisWorkbook.Worksheets("你的sheet页名称").UsedRange.Rows.Count
End Sub
'最后判断是否change事件中行数小于urrc,如果小于则认为是有删除,如果限制删除了一行就改成相减等于1,如果插入就改大于,如果列就把rows改成columns
Private Sub Worksheet_Change(ByVal Target As Range)
If ThisWorkbook.Worksheets("你的sheet页名称").UsedRange.Rows.Count < urrc Then
MsgBox "有删除动作"
End If
End Sub
Public urrc As Variant
'然后定义变量为selectionchange事件中的已使用行数
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
urrc = ThisWorkbook.Worksheets("你的sheet页名称").UsedRange.Rows.Count
End Sub
'最后判断是否change事件中行数小于urrc,如果小于则认为是有删除,如果限制删除了一行就改成相减等于1,如果插入就改大于,如果列就把rows改成columns
Private Sub Worksheet_Change(ByVal Target As Range)
If ThisWorkbook.Worksheets("你的sheet页名称").UsedRange.Rows.Count < urrc Then
MsgBox "有删除动作"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
target .address可供参考
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询