Excel VBA質問箱 IV

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

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


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

5500 / 76732

←次へ　｜　前へ→


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

あや - 15/3/23(月) 10:42 -


	引用なし

	パスワード

▼β さん：
参考になりました。
有難うございます。

今回実際に使用する際にSheet3のA列と一致するか探しに行くコマンドとSheet3のB列と一致するか探しに行くコマンドを設ける予定なのですが、下記のようにするとA列に赤セルがある場合はショートカットキーで探しに行ってくれますが、B列に赤セルがあっても”重複セルはありません”となってしまいます。
また◆のところをElseIfにしたらエラーがでてきます。
どのようにしたら良いのでしょうか

Sub TestRed()
　　Dim c As Range
　　With Application.FindFormat.Interior
　　　　.PatternColorIndex = xlAutomatic
　　　　.Color = 255
　　　　.TintAndShade = 0
　　　　.PatternTintAndShade = 0
　　End With
　　
　　If ActiveCell.Column <> 2 Then Range("B1").Select
　　Set c = Columns("B").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
　　　　　　MatchByte:=False, SearchFormat:=True)
　　　　　　
　　If ActiveCell.Column <> 1 Then Range("A1").Select　'◆
　　Set c = Columns("A").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
　　　　　　MatchByte:=False, SearchFormat:=True)
　　　　　　
　　If c Is Nothing Then
　　　　MsgBox "重複セルはありません"
　　Else
　　　　c.Select
　　End If

　　Application.FindFormat.Clear

End Sub

>▼あやさん：
>
>>ここの部分でなにを行っているか教えていただけないでしょうか
>
>この質問を見落としていました。
>シート上の操作で検索をやられたことはあると思いますが、書式検索はやった経験がありますか？
>検索文字列を指定する以外に、オプションで、書式（背景色等々）の検索もできます。
>で、コードは、この機能を使っています。つまり、文字を探しに行くのではなく背景色の赤を捜しに行きます。
>
>で、なぜエラーかといいますと（想像ですけど）元々 B 列だったのをそちらで（なぜか）C列にかえてますね。
>
>で、検索領域が C列で、そのなかで、どこから探しに行くかを ActiveCell にしています。
>この、どこからさがすか、その起点セルは検索領域の中にないとエラーになります。
>なので、コードの上のほうで、ActiveCellが B列ではなかったらB1 に飛ばしています。
>
>なので、検索起点が検索領域にないよというエラーになっているものと思います。
>
>今回、赤は１つしかない、とうことは次へというものがない。
>ならば、このどこからという起点を記述しないという方法もあります。
>つまり、After:=ActiveCell これをカット。
>そうすれば、常に、検索領域の最初のセルから検索を行います。
>
>というより、この Ctrl/j の目的は、重複があったね、それはどこだったんだろうと、
>そういったことですよね。
>
>であれば、このTestRedは廃止して、CommandButton1ルーティンの最後に、そのセルに飛ばすようにしてはいかが？
>
>MsgBox "重複があります:" & Dup
>
>この後に
>
>Application.GoTo Red
>
>こうして試してみてください。

1,578 hits

▼

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