Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38351 / 76732

←次へ　｜　前へ→


	【43519】Re:ワークシート上のチェックボックス

Jaka - 06/10/18(水) 17:23 -


	引用なし

	パスワード

挿入に対応してないし、他の方法はわかりません。

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

これら名前定義したセル、関数を入れたセルが削除されたら動きません。
また、他の不具合があることは考えてません。（他の不具合が無いと思えないけど。）

0 hits

▼

【43510】ワークシート上のチェックボックス ゆう 06/10/18(水) 14:29