Excel VBA質問箱 IV

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

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


38026 / 76732 ←次へ | 前へ→

【43850】Re:複数条件でのデータ検索について
発言  PiPi  - 06/10/26(木) 21:52 -

引用なし
パスワード
   ▼yasu145 さん:
neptuneさんのご指摘の通りと思いますが・・・

今、想像でコードを書いてみました。
こんな感じであれば、後追加訂正をして
本来のしたい内容にされては?

要は、A列の数字の条件(2以上で4以下)
と B列の数字の条件(50以上で70以下)としています。
それに当てはまるもののA列の数字をF列に表示させました。

条件はこれでよかったでしょうか?
後はシート2又は3に4列(A〜D列)をコピー仕上げたら
如何でしょう・・・

Sub NNN()

Dim R As Range
Dim MyR As Range
Set MyR = Range("A1", Range("A65536").End(xlUp))

For Each R In MyR
 If R.Value >= 2 And R.Value <= 4 And R.Offset(, 1).Value >= 50 And R.Offset(, 1).Value <= 70 Then
 R.Copy R.Offset(, 5)
 End If
Next

End Sub

間違っていれば、また書いてください。
識者のneptuneさんをはじめ多くの方の訂正やアドバイスを
いただいてください。
1 hits

【43835】複数条件でのデータ検索について yasu145 06/10/26(木) 15:40 質問
【43849】Re:複数条件でのデータ検索について neptune 06/10/26(木) 21:04 発言
【43853】Re:複数条件でのデータ検索について ゆと 06/10/26(木) 22:21 発言
【43856】Re:複数条件でのデータ検索について yasu145 06/10/26(木) 23:51 お礼
【43850】Re:複数条件でのデータ検索について PiPi 06/10/26(木) 21:52 発言
【43859】Re:複数条件でのデータ検索について yasu145 06/10/27(金) 0:24 お礼
【43873】Re:複数条件でのデータ検索について neptune 06/10/27(金) 10:54 発言
【43879】Re:複数条件でのデータ検索について yasu145 06/10/27(金) 14:58 お礼
【43883】Re:複数条件でのデータ検索について ponpon 06/10/27(金) 22:38 発言
【43941】Re:複数条件でのデータ検索について yasu145 06/10/30(月) 12:50 お礼
【43948】Re:複数条件でのデータ検索について PiPi 06/10/30(月) 19:34 発言
【44159】Re:複数条件でのデータ検索について yasu145 06/11/6(月) 20:30 お礼

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