[[20130517080433]]　『検索したセルの色が赤ならコピー先にもセルを赤に』（yakuyo）　ページの最後に飛ぶ

『検索したセルの色が赤ならコピー先にもセルを赤にしたい』（yakuyo）

初めてお世話になりますが、ご教授の程よろしくお願いします。

　a b c d
1 a1 b1 c1 d1
2 a2 b2 c2 d2
3 a3 b3 c3 d3
4 a4 b4 c4 d4

A9にこの表から　「ｂ2」を検索しそこのセルが赤なら文字をコピーし尚且つ
セルも赤に表示したい。

どのようにすれば良いかよろしくお願いします。

excel2010 os win7

 >A9にこの表から　「ｂ2」を検索

 この意味は？　A9に検索文字列 をいれて、この表（A1:D4)から　検索文字列と同じものがあるセルを検索　という意味？

 >セルが赤なら文字をコピーし尚且つセルも赤に表示したい。

　その検索文字列があるセルが赤なら、どこを赤にしたい？ A9 を赤？

  文字をコピーとは、どこにコピー？　A9 に？　でも A9 には、もともと、その文字列があるのでは？

 (ぶらっと)

 いまひとつ意図があいまいですけれど、下記が参考になるでしょうか。
 (Mook)

 Sub Sample()
    Dim 検索値
    検索値 = InputBox("検索値を入力してください", "検索値", "b2")

    Dim セル
    Set セル = Range("A1:D4").Find(検索値, lookat:=xlWhole)     '// 表範囲
    If セル Is Nothing Then
        MsgBox "検索対象が見つかりません"
    Else
        セル.Copy
        ' Range("A9").PasteSpecial Paste:=xlPasteFormats ' 書式だけコピー
        Range("A9").PasteSpecial Paste:=xlPasteAll ' 全部コピー
        Application.CutCopyMode = False
    End If
 End Sub

ぶらっと様　回答ありがとうございます
言葉足らずで申し訳ありません

  >A9にこの表から　「ｂ2」を検索

この意味は？　A9に検索文字列をいれて、この表（A1:D4)から　検索文字列と同じものがあるセルを検索　という意味？

A9にb2を入れてやるという意味です

 >セルが赤なら文字をコピーし尚且つセルも赤に表示したい。

 >その 検索文字列があるセルが赤なら、どこを赤にしたい？ A9 を赤？

A9のセルを赤にしたいです

 >文字をコピーとは、どこにコピー？　A9 に？　でも A9 には、もともと、その文字列があるのでは？

すいませんコピーは無視して下さい

以上お手数ですがよろしくお願いします。

 それでは、Mookさんからでているコードが使えるね。

 検索値 = InputBox("検索値を入力してください", "検索値", "b2")

 これを

 検索値 = Range("A9").Value

 に変更して試して。

 (ぶらっと)

できました
Mook様　ぶらっと様

大変お世話になりました。
これを参考に更なる機能を付けてみたいと思います。

ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20130517080433]] 『検索したセルの色が赤ならコピー先にもセルを赤に』（yakuyo） ページの最後に飛ぶ

[[20130517080433]]　『検索したセルの色が赤ならコピー先にもセルを赤に』（yakuyo）　ページの最後に飛ぶ