Excel VBA質問箱 IV

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

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


38392 / 76732 ←次へ | 前へ→

【43478】Re:検索と削除
発言  わんこ好き  - 06/10/17(火) 1:22 -

引用なし
パスワード
   ▼ハチ さん:
回答ありがとうございます。
ハチさんに別コードと言われサンプル本頼りに”B3”にコード番号入れて行指定の所までやっとたどり着いた所です。それも、ハチさんのおかげと本当に感謝しています。
眠いところ作っていただいたサンプル早速試してみたいと思います。


Sub ()
  aa = ActiveSheet.Cells.Find(What:=Range("B3"), LookAt:=xlWhole, _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
  cend = ActiveCell.Row
  Range("A1").Select
  MsgBox "このシートの指定行:" & cend
 
End Sub


>▼わんこ好き さん:
>
>自分は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 質問
【43443】Re:検索と削除 ハチ 06/10/16(月) 10:34 発言
【43472】Re:検索と削除 わんこ好き 06/10/16(月) 21:32 発言
【43476】Re:検索と削除 ハチ 06/10/16(月) 23:53 発言
【43478】Re:検索と削除 わんこ好き 06/10/17(火) 1:22 発言
【43645】Re:検索と削除 わんこ好き 06/10/21(土) 2:44 お礼

38392 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free