エクセルマクロでセルを検索し表示する方法とは？

2013/06/29 20:39

このQ&Aのポイント

エクセルのマクロについて質問があります。例えばA1セルが赤く塗りつぶされている場合、隣のB1セルに赤と表示させることは可能でしょうか？色は複数存在します。
セルの検索で該当するセルを選択する方法を教えてください。検索構文はすでに使用できます。
以上がエクセルのマクロに関する質問です。よろしくお願いします。

yamattihiro
お礼率7% (4/53)

その他MS Office製品
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

tsubuyuki
ベストアンサー率45% (699/1545)

2013/06/29 21:01 回答No.1

とりあえず、２番め。 Selection.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Select で出来ると思われます。１番目。例えば If Range("A1").Interior.Color = 255 Then Range("B1") = "赤" End If こんな感じでいけるでしょう。 Ifを重ねれば他の色も可能です。あとはSelectで分岐させる方法もありますね。 Select Case Range("A1").Interior.Color Case 255 Range("B1") = "赤" End Select こんな感じです。