Excel VBA質問箱 IV

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

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


38425 / 76732 ←次へ | 前へ→

【43443】Re:検索と削除
発言  ハチ  - 06/10/16(月) 10:34 -

引用なし
パスワード
   ▼わんこ好き さん:

>1.シート1のB3セルに入力したコード(例:20320)でシート2のデー  タを検索する。
>2.シート2の該当のコードデータをシート3にコピーする。
>3.シート2の該当(例:20320)のコードデータを削除する。
>
>以上、1から3までをコマンドボタン操作で処理したいのですが
>
>1と2は下記、DGET関数とVBAで何とか処理しました、しかし
>
>”3.シート2の該当(例:20320)のコードデータを削除する。”が
>初心者のため作れません。
> 
>よろしくお願いいたします。
>セル”A2”=シート1!B3
>セル”B2”=DGET(シート2!$A$5:$AO1800$11,シート2!B$5,$A$1:$A$2)

必要なデータはフィールド11(K列?)だけでですか?

>
> Sheets("シート3").Select 
>  Range("A2:AO2").Copy
>  
>  Application.Goto Reference:="R6C1"
>  Range("A1800").End(xlUp).Offset(1).Select
>  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
>    :=False, Transpose:=False
>  Application.CutCopyMode = False

自分はDGETをあまり使ったことがないのですが、
このコードでいくと削除するのに、
もう一度シート2のどこにデータがあるのか
検査しなければならないと思います
(もっと良い方法があるのかもしれません・・)

二重にデータチェックがかかってあまり良くないですね。
削除も行いたいならデータを引っ張るコードから見直したほうが良いかも。

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 お礼

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