Excel VBA質問箱 IV

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

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


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

5238 / 76732

←次へ　｜　前へ→


	【77107】Re:シート1とシート2の内容で一致するものがあれば結果表示をさせたい

あや - 15/5/22(金) 9:38 -


	引用なし

	パスワード

▼β さん：
お久しぶりです。
下記の回答ありがとうございました。
お礼が遅くなり申し訳ありません。

今回またで申し訳ありませんが、質問をさせてください。
以前作っていただいたコードは一致している文字列を探し、一致しているものがあればそのセルを赤くし、別sheetの一致した文字列の隣の列のセルを結果として表示する、というものでしたが、今回その一致条件を探す前に、無いものを探す、ということを行いたいです。

例えばですが、Sheet4のA列にいろいろと文字列を入れておき、Sheet4のA列に入力している文字列が一致検索で探していたところと同じところに1つでも一致しないものがあれば、Shhet4のA列で一致しなかったものの隣のB列の結果を表示する、
というふうに処理がしたいのですが・・・

一致しているものを探す、の逆で一致していないものを探す、なので一致しているものを探すコードを利用して、無いものを探すコードに変えられれば
・・・と思い試行錯誤しているのですが、～がなければというコードをつくるのが上手くいきません・・・

処理としては、Sheet4のA列に書いてある文字列がSheet2のA列に無いものがないか調べる
→全て一致していることを確認できたら：以前作成した一致するものをさがす処理をする
→もし一つでもないものが見つかれば：Sheet4の見つからなかったものの隣のB列に書いてあることを結果として表示する

どうか教えていただけないでしょうか。

>▼あやさん：
>
>こんにちは
>
>アップされたコードにはいくつか（たくさん？）問題があります。
>
>１．領域.Find で、その領域の中を捜すわけですが、Cells と指定すると
>　　シート全体の領域になりますから、Ａ列以外にあってもマッチします。
>２．で、After は、その領域内の検索開始セルですが、領域が Cellsなら
>　　ActivesCell は当然シート内ですからＯＫですが、領域をA列にすると
>　　もし、A列以外が選択されている状態ならエラーになります。
>　　指定するならＡ列内のセル（A1 とか）か、あるいは指定しない（こちらを推奨）
>　　指定がなければ指定領域の先頭のセルから　とみなしてくれますので。
>３．「大文字の」という条件ですよね。
>　　ところが、MatchCase:=False　。これは大文字／小文字を区別しないという意味です。
>　　MatchCase:=True とする必要があります。
>４．Findメソッドを実行すると、検索が成功（マッチ）した場合は、そのセルオブジェクトが
>　　返されますが、失敗（アンマッチ）した場合は「Nothing」になります。
>　　この「Nothing」になっているオブジェクトは、参照できません。
>　　参照しようとするとエラーになります。（参照できないので Select もできません）
>５．そのFIndメソッドの結果を受ける変数を　oRange　としていますが、この　oRange　は
>　　どこでも参照していません。かわりに　Set c = Selection　とした結果の c を参照。
>　　きっと　領域.Find(条件).Select として、その　Selectされたセル（Selection)を
>　　使おうとしたんだと思いますが、検索失敗のことを考えると、領域.Find(条件).Select　は
>　　使ってはいけない構文です。（だから使っていないんですよね）
>６．c という　セルオブジェクトのプロパティに ColorIndex というものはありません。
>　　あるのは、Interior （ほかにもたくさんありますが）
>　　で、ColorIndex は、Interior のプロパティです。
>　　ですから、c.Interior.ColorIndex です。c.ColorIndex だと、実行時にエラーになります。
>７．さらに、その ColorIndex ですが、これは 1～56。（その他に塗りつぶしなしの xlNone もありますが）
>　　で、これで指定するなら、ColorIndex = 3 です。
>　　一方、vbRed はインデックスではなく「色番号」で、実態は 255 です。
>　　ColorIndex に 255 を与えると、実行時エラーになります。
>　　vbRed で指定するなら Color = vbRed になります。
>
>これらを加味してたとえば
>
>Private Sub AAA_Click()
>　　Dim c As Range
>
>　　Set c = Columns("A").Find(What:="*AAA*" _
>　　　　　　　　　　　　　, LookIn:=xlFormulas _
>　　　　　　　　　　　　　, LookAt:=xlWhole _
>　　　　　　　　　　　　　, SearchOrder:=xlByRows _
>　　　　　　　　　　　　　, SearchDirection:=xlNext _
>　　　　　　　　　　　　　, MatchCase:=True _
>　　　　　　　　　　　　　, MatchByte:=False _
>　　　　　　　　　　　　　, SearchFormat:=False)
>　
>　
>　 If c Is Nothing Then
>　　　　MsgBox "AAAはありませんでした"
>　 Else
>　　　　c.Interior.Color = vbRed
>　　　　MsgBox "AAAがありました"
>　 End If
>　
>End Sub

1,694 hits

▼

【76750】シート1とシート2の内容で一致するものがあれば結果表示をさせたい あや 15/3/9(月) 16:01