エクセル：マクロでこんなことはできますか？

質問

【シート１】に名簿があります。
1 山田太郎 |　○○市○○町 |　電話　・・・・
2 山田花子 |　○△市　 |・・・
といった一般的なものです。

【シート２】は、データ入力用としています。
A2～A4の３つを結合し、シート１から”山田太郎”を参照（INDIRECT関数使用）
A5～A7の３つを結合し、同様に山田花子を参照
B2,B3.B4、C2,C3,C4は必要データを入力しています。

★やりたいこと

【シート１】の山田太郎（1行すべて）を削除したときに、
【シート２】の２～４行に入っている山田太郎さんに関するシートを自動的に削除したい。

以上です、よろしくお願いします。

回答No.3

Wendy02 · ベストアンサー

こんにちは。Wendy02です。

今、もう一度読み直して、ちょっと試してみましたが、ワークシートイベントではうまくいきません。既存のコマンドボタンに、全てイベント付けをつけるのは、かなり手間なのです。今は、時間が取れませんので、もし、我こそはと思う方にお任せしたいと思います。

これをボタンに取り付けてください。

Sub TestSample()
Dim SearchWord As String
Dim myFirstAddress As String
Dim myUnionRange As Range
Dim c As Range
　SearchWord = ActiveSheet.Name & "!" & ActiveCell.Address(0, 0)
　Set c = Worksheets("Sheet2").Cells.Find _
　(What:=SearchWord, _
　LookIn:=xlFormulas, _
　LookAt:=xlPart, _
　SearchOrder:=xlByColumns, _
　SearchDirection:=xlNext)

　 If Not c Is Nothing Then
　　　 Do
　　　 If myUnionRange Is Nothing Then
　　　　 Set myUnionRange = c
　　　 Else
　　　　 Set myUnionRange = Union(myUnionRange, c)
　　　 End If
　　　　 Set c = Worksheets("Sheet2").Cells.FindNext(c)
　　　 Loop Until c Is Nothing
　　 End If
　　　 If Not myUnionRange Is Nothing Then
　　　　　　myUnionRange.MergeCells = False
　　　　　　myUnionRange.EntireRow.Delete
　　　 End If
　　　 ActiveCell.EntireRow.Delete
End Sub

お礼

Wendy02さん、ありがとうございます。私のわかりにくい質問に真摯に取り組んでいただいたことに感激しています。過去の私の投稿まで見ていただいて、なんとかご回答くださろうとしていただいたことに心から感謝申し上げます。実は、初心者の私に上記マクロの利用にまで能力が達しませんでした。ただ感謝の気持ちだけでもお伝えしたく存じます。ありがとうございました。

回答No.2

Wendy02

こんばんは。

＞【シート２】の２～４行に入っている山田太郎さんに関するシートを自動的に削除したい。

確かに、おっしゃることは出来ます。しかし、No.1763213で、「エクセルのマクロで、シートを削除するとき・・・」となっていますから、その延長上にあるとはしても、データを１つ削除して、それに連動して、シート削除というのは、かなり無茶な気がします。せいぜい、行の削除程度なら分りますが。

INDIRECT関数を使用と書いているなら、そのデータは、同時に参照場所のデータを失っているから、データが消えているはずですね。おっしゃっている「シート2」側の部分が明確にはありませんね。

それに、なぜ、INDIRECT関数を使っているか、というようなところまで発展してしまいます。被参照セルを失ったときに、エラーにならないようにしているのではないかと思いますが、式の入っている側を消したら、無意味のような気がします。

どうも、見えない部分が多すぎて、次のステップのイメージがわきません。

補足

ありがとうございます。実は、「行の削除」と書きたいところを「シートの削除」と書き間違えました。申し訳ありません。要は、シート２の２～４行を自動削除できるかということです。

回答No.1

banker_U

あなたのマクロスキルはどれぐらいですか？
求める回答のレベルはどの程度のものですか？

イベントプロシージャでできないことはないとは思いますが、ボタンでも作っておいて、マクロを割り当てといた方が、簡単だと思います。

補足

ありがとうございます。マクロ初心者です。それと実は、「シートの削除をしたい」ではなくて「２～４行の行の自動削除をしたい」です。あせっていて書き間違えました。申し訳ありません。