|
挿入に対応してないし、他の方法はわかりません。
Private Sub Worksheet_Calculate()
If Range("A1").Value <> 65536 Then
Range("最後のセル").Cut Range("A65536")
Rw = Selection.Row
MsgBox Selection.Row & "が、多分削除"
Call Shapdel(Rw)
End If
End Sub
Sub Shapdel(Rw)
Dim Shp As Shape
If ActiveSheet.Shapes.Count > 0 Then
For Each Shp In ActiveSheet.Shapes
Set RW1 = Application.Intersect(Rows(Rw), Shp.TopLeftCell)
Set RW2 = Application.Intersect(Rows(Rw), Shp.BottomRightCell)
If Not (RW1 Is Nothing) And Not (RW2 Is Nothing) Then
MsgBox "図形?の名前 " & Shp.Name
End If
Next
End If
End Sub
準備として65536行のどこかのセルの名前定義。
1行目のどこかのセルにイベント用の関数。
Sub 準備()
Worksheets(1).Range("A65536").Name = "最後のセル"
Range("A1").Formula = "=ROW(最後のセル)"
End Sub
これら名前定義したセル、関数を入れたセルが削除されたら動きません。
また、他の不具合があることは考えてません。(他の不具合が無いと思えないけど。)
|
|