Ｐａｇｅ 673 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼該当するセルの検索をするときの処理 ntomo 03/2/4(火) 11:00 ┗Re:該当するセルの検索をするときの処理 Jaka 03/2/4(火) 11:13 ┗Re:該当するセルの検索をするときの処理 ntomo 03/2/4(火) 11:38 ┗Re:該当するセルの検索をするときの処理 Jaka 03/2/4(火) 11:51 ┗Re:該当するセルの検索をするときの処理 ntomo 03/2/4(火) 13:29 ┗そうそう ntomo 03/2/4(火) 16:42 ─────────────────────────────────────── ■題名 ： 該当するセルの検索をするときの処理 ■名前 ： ntomo ■日付 ： 03/2/4(火) 11:00 -------------------------------------------------------------------------
| こんにちはつまらないことかもしれませんがおしえてください・・・。 Sheets("1")のなかのセルA1のデータが Sheets("2")内のA列に存在するかを検索して あったかなかったかを、表示したのちに・ あった場合はその直下のセルを選択 したいのです。 なかった場合にはなかったという表示のみになります 多分すっごくつまらないことなのかもしれませんが・・・ マクロの記録をつかってやってみてもうまくいかないのです・・・ よろしければレスをお願いします |
| こんにちは。 Sub momo() Set Cel = Sheets("Sheet2").Columns("A").Find(Range("A1").Value, _ LookAt:=xlWhole, MatchCase:=True) If Not Cel Is Nothing Then MsgBox "ありました。" Sheets("Sheet2").Select Cel.Select Else MsgBox "ありません。" End If Set Cel = Nothing End Sub |
| Jakaさん早レスありがとうございます > Set Cel = Sheets("Sheet2").Columns("A").Find(Range("A1").Value, _ > LookAt:=xlWhole, MatchCase:=True) ここなんですが・・・・ Sheet1のA1の内容がSheet2にあるか検索したいのですが・・・ これだとSheet2のA1の内容がsheet2にあるか？ という検索内容になっているようです・・・・ 申し訳ないのですが・・・再度よろしくおねがいします 自分で改良しようとしたのですが・・・できませんでした（涙 |
| ▼ntomo さん： >Jakaさん早レスありがとうございます > > >> Set Cel = Sheets("Sheet2").Columns("A").Find(Range("A1").Value, _ >> LookAt:=xlWhole, MatchCase:=True) >ここなんですが・・・・ >Sheet1のA1の内容がSheet2にあるか検索したいのですが・・・ >これだとSheet2のA1の内容がsheet2にあるか？ >という検索内容になっているようです・・・・ > >申し訳ないのですが・・・再度よろしくおねがいします >自分で改良しようとしたのですが・・・できませんでした（涙 Sheet1をアクティブにした状態としてしまいました。 .Find(Sheets("Sheet1").Range("A1").Value, _ もしかしたら Sheets("Sheet2").Select などは、いらないかも。 |
| ▼Jaka さん： ありがとうございました ばっちりでした。 これでまた先にすすめます♪ |
| Sheets("Sheet2").Select はいりませんでした（遅いですねすみません・・・ |