Excel VBA質問箱 IV

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

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


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

38400 / 76738

←次へ　｜　前へ→


	【43476】Re:検索と削除

ハチ - 06/10/16(月) 23:53 -


	引用なし

	パスワード

▼わんこ好きさん：

自分はFindが好きなのでこんな感じでしょうか？
WorkSheets1枚目A2セルにコードを入れると
2枚目から3枚目へコピー、2枚目から削除。
2枚目A1～A100に検索されるコードが並んでいてA～D列までをコピー&削除します。

テストデータで試してみてください。

*いちお、動きましたが半眠りで書いているので間違っていたらどなたかフォローお願いします・・

'WorkSheets1枚目モジュールへ
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address(0, 0) <> "A2" Then Exit Sub
　　If Target.Count > 1 Then Exit Sub
　　
　　Call Test(Target.Value)

End Sub

'標準モジュールへ
Option Explicit

Sub Test(Tgt As Variant)
　　Dim Fi As Range
　　Dim Ran As Range
　　
　　Set Ran = Worksheets(2).Range("A1:A100")
　　
　　Set Fi = Ran.Find(Tgt, , xlValues, xlWhole, , , False, False)
　　If Not Fi Is Nothing Then
　　　　Worksheets(3).Range("A65536").End(xlUp).Offset(1) _
　　　　.Resize(, 5).Value = Fi.Resize(, 5).Value
　　　　Fi.EntireRow.Delete xlUp
　　Else
　　　　MsgBox "ありません"
　　End If
　　
　　Set Fi = Nothing
　　Set Ran = Nothing
　　
End Sub

0 hits

▼

【43442】検索と削除 わんこ好き 06/10/15(日) 23:25