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

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

エクセルのマクロについていくつか質問があります

エクセルのマクロについていくつか質問があります 1　例えばA1セルが赤く塗りつぶされている場合隣のB1セルに赤と表示させたいのですが出来ますか　実際には色は何色かあります 2 セルの検索で検索であったセルを選択状態にするにはどうすればいいですか いちおう検索構文まではできてます Selection.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate 以上ですよろしくお願いします

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

  • ベストアンサー
  • tsubuyuki
  • ベストアンサー率45% (699/1545)
回答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 こんな感じです。

yamattihiro
質問者

お礼

ありがとうございます

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • エクセル2007のマクロ不具合について、

    次のようなマクロを「CTRL+T」のショートカットキーで作成しましたが、2回続けて実行すると2回目が違う結果となってしまいます。 1回目はちゃんと　2010/1/2　のセルがアクティブセルとなるのですが、2回目は　2010/11/2　がアクティブセルとなってしまいます。　 原因と対処法があればぜひ教えていただきたいと思います。よろしくお願いします。 Sub 本日() Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub

  • VBA★findを使って見つけたセルの値を取得

    AA="タナカ" Selection.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate 自動マクロでコレをつくりました。 タナカを見つけてその隣の変数を取得するというものを作りたいと思っています。 関数で言うとVlookupでやるものをマクロ化しようとしています。 検索して見つかったセルの右隣のセルの値を取得するにはどうしたらいいですか？

  • EXCEL マクロでの検索をお教えください

    　下記のようなマクロを使いたいのですがこの場合×があるときは良いのですが、 　無いときエラーが出ます。どの様にすれば良いのかお教えください。 　無いときエラーは　オブジェクト変数または With ブロック変数が設定されていません。 　となります。 Sub 検索() 　　　Range("K12:K70").Select 　　　Cells.Find(What:="×", After:=ActiveCell, LookIn:= _ 　　　xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 　　　xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub

  • 文字検索マクロで質問です。

    文字検索マクロで質問です。 下記のマクロを作成したのですが、A1に検索する文字を入力してA列(A5:11700)のみを検索して該当が有ったらそのセルを色を付けし、又,該当が無ければMSG BOXで”該当なし”と表示するマクロを御教授頂けますか。 Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, 　　LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub 以上、宜しくお願い致します。

  • EXCEL　VBAでの　文字列検索

    セル内の文字列を部分一致で検索したいのですが、 下記の構文だと、検索対象シートを選択しなくてはならないため、 PGの動きが堅くなってしまいます。何かいい方法をご存知の方、 教えてください。 Selection.Find(What:=key, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate Cells.FindNext(After:=ActiveCell).Activate

  • 検索した後の見つかった件数を取得したい

    画像のように手作業で検索した場合、下に検索結果の個数が表示されますが これをVBA内で取得することは可能でしょうか？ マクロの記録だと Sub Macro() Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub となるのですが、最後に全部の個数を取得したいです。

  • マクロエラ-

    初心者です。win2000,エクセルでマクロが途中で止まってしまいます。時々に、最後までいくことがありますが、８割がたは、同じところでストップします。 マクロ言語は理解できていません。 うまく完了のケ－スは、デ－タの中身次第かなと思います。 記憶では、”0”があれば、何かをするようにしたと思います。 想定外のデ－タで、とまるのなら、回避方法を教えてください。 黄色反転して、ストップする部分は、以下です。 mcr3 Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Select Columns("C:C").Select Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate いつもここで止まります。 ActiveCell.Replace What:="0", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate -----------→つずく。

  • Excelで数字のあるセルにマーカーをつける

    Excelで数字のあるセルにマーカーをつける Excelで数字のあるセルにマーカーをつけたいと思っています。 列F,G,I,Jに0.3、1,400や4といった数字がありその数字にマーカーをつけたいです。 wordで[1-9]を検索するように正規表現が使えればいいのですが Excelでは出来ないのでしょうか？ Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=True).Activate でひとつずつ探すしかないのでしょうか？ 何かやり方をご存知の方、知恵をお貸し下さい。 宜しくお願いします。

  • Excel VBA Findで日付だけのセルが検索できない

    日付のセルを検索するために、以下のような処理をさせていますが、日付だけのセルが検索できません。 　【例】(1)は検索できますが、(2)が検索されません。 　　　(1) 2010/03/05が誕生日 　　　(2) 2010/03/05 　　　（※(1)、(2)共に検索できるようにしたいと思っています。） Dim FoundCell as Variant Dim search_words as String search_words = "20??/*/" Set FoundCell = Cells.Find(what:=search_words,After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False) ※Excel2003を使用しています。

  • Excel　VBE　検索結果がない時の対処方法

    いつもお世話になっております。 Excelで簡単な文字当てゲーム的なものを作っています 文字列（１００個程度）の中から、ある文字列を探し出して、そのセルの文字色を塗り替えるというマクロを組んでいます。 検索部分は下記のように記述してあります。 検索文字列がある時にはうまく動作しますが 検索文字列がない時にはエラーになります。 検索文字列がない時の対処方法を教えて下さい。 よろしくお願いします。 kaitou = Range("g2").Value Range("G2").Select Selection.Copy Columns("B:B").Select Selection.Find(What:=kaitou, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する