Excel VBA質問箱 IV

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

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


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

5494 / 76732

←次へ　｜　前へ→


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

β - 15/3/24(火) 13:36 -


	引用なし

	パスワード

▼あやさん：

こんにちは

アップされたコードにはいくつか（たくさん？）問題があります。

１．領域.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,705 hits

▼

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