VBA 怎么通过程序事件判断当前工作簿正在插入行或者列？

司马兰溪

VBA 怎么通过程序事件判断当前工作簿正在插入行或者列？
ActiveSheet.Rows(Selection.Row).Insert   没有用

----------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)


Dim rRow As Long


MsgBox "在当前单元格上方插入一行"


rRow = Selection.Row


ActiveSheet.Rows(Row).Insert


End Sub

砂海

感觉 没有 直接对应的"事件"

司马兰溪

Option Explicit
Public bbc As String
Public bbd As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'插入之前'
bbd = Sheet1.Range("1:" & Sheet1.Rows.Count).Find("合计").row

End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'插入之后'
bbc = Sheet1.Range("1:" & Sheet1.Rows.Count).Find("合计").row
If bbc > bbd Then
MsgBox "插入了" & bbc - bbd & "行"
ElseIf bbc < bbd Then
MsgBox "删除了" & bbd - bbc & "行"
End If
End Sub
通过这个 初步实现 判断是否插入或者删除行？