- 締切済み
塗潰されたセルと同じ色の数字同士を抽出して並べる2
いつもお世話になっております。 ご存じの方がお見えでしたらご回答をよろしくお願いします。 ※特に、SI299792 様よろしくお願いします。 【質問】 昨日、こちらで質問させて頂きました「塗潰されたセルと同じ色の数字同士を 抽出して並べる」（2020/06/06 14:19 質問No.9757677）の改造版の質問です。 添付図のとおり、昨日の質問とは異なり5×5が4マスではなく、 5×6が４マスありこれを１つとして、S1の数だけ下に複写して S2の数字で5×6が４マスの中を検索して、 下記のとおり該当するセルを塗り潰します。 ・検索値・・・・黄色 ・検索値の±１の数字・・・赤色 ・検索値と同じ数だけ周りにある数字・・・緑色 ・検索値より１つ少ない数だけ周りにある数字・・・青色 ここまでの質問は（2018/12/30 09:06 質問No.9572759 ）にさせて頂き、 SI299792様にＶＢＡのソースを頂きました。 （SI299792様に怒られると思うのでソースはここには載せません。） この状態だと、Ｐ列にある４色（黄色、青色、赤色、緑色）の右側に 左側の同じ色で塗潰された数字を左から昇順に並べる事ができません。 添付図の様にするにはどうすればよいですか？ 以上、よろしくお願いします。
- sazanami0422
- お礼率62% (49/79)
- Excel（エクセル）
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- SI299792
- ベストアンサー率48% (715/1481)
ずみません、前回のプログラムを解析した結果、バグがありました。 これは前プログラムで色を付けたものですね、 検索値２の時、15に色が付いているのはその為で、私のミスです。 ＞私が１桁入力に変更はしていないと思います。 前回は、 1 01 11 16 26 31 40 08 15 21 25 30 35 と、必ず２桁で、１桁の場合、頭に０をつけていました。 今回は頭に０が付いていません。 ＞以下ソースを貼ります。 欲しいのは、ソースではなく、数値データです。 6 15 22 31 41 43… ︙ 申し訳ありません、これ以上無償でできません。今OKWAVEにはビットコインでの支払いシステムがあるので、今回料金は.001ビットコイン（約￥1000）とさせていただきます。
- SI299792
- ベストアンサー率48% (715/1481)
こんな難しいの無理、お断りします。と思ったら、昔作っていましたね。 我ながら、よくこんなの作ったな、若気の至りですね。 もう破棄してしまい、覚えてもいないので、何とかプログラムを解析してみました。 すると問題点が。 (1) 数えるのも色を付けるのも、検索文字の周りの文字だけが対象になっています。 これでいいですか。 (2) 条件が重複することがあります。 検索値±１で、検索値と同じ数だけ周りにある 検索値±１で、検索値より１つ少ない数だけ周りにある つまり、青と赤、赤と緑、は被るる可能性があります。 前プログラムは、これらを色分けして６色使っていました。どの条件を優先しますか。それとも、被った場合両方に出しますか。 また、これは、直せないかもしれない（直したくない）ので別々の色のままでもいいですか。 (3) 前回は、必ず２桁で文字形式でした。変わったのですか。 今回のサンプルにも疑問が、 (1) 検索値１の時、A3,H10にも２がありますが、ここは１の周りにないので色を付けないのですね。 (2) 検索値１の時、１の周りに２が２つという事は緑の条件も満たしています。（周り以外も数えるのなら４つになるので条件に合いませんが）という事は、赤優先ですか。 (3) 検索値２の時、２は４つあります、15は２つしかありません。しかし出力されています。よく見ると、D25 にも15があります。これも数えるのですか。だとしたら、前プログラムは使えません。 (4) 前の様に、直接データをテキストでコピペしていただけませんか。入力が大変です。
関連するQ&A
- 塗潰されたセルと同じ色の数字同士を抽出して並べる
いつもお世話になっております。 ご存じの方がお見えでしたらご回答をよろしくお願いします。抽出 【質問】 添付図の様に５×５マスが４つあり、それが縦に３つあります。 ５×５マスの４つの中には、黄色、緑色、赤色、青色の４色のいずれかでセルが 塗り潰されています。M列に4色それぞれの色があり、 その右側に左側の５×５マスの４つの中で同じ色で塗潰されたセルの数字を 左から右に昇順に並べる方法が知りたいです。 【注意事項】 ・５×５マスが４つの中で、４色全ての塗り潰しがある訳ではありません。 ※最低、黄色のみという場合があります。 ・５×５マスが４つの中で、塗り潰されるセルは毎回異なります。 ・同じ色で同じ数字（重複数字）がでてきてもそのまま並べます。 ・使用するエクセルは２０１６です。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 塗潰されたセルと同じ色の数字を重複無しで縦に並べる
いつもお世話になっております。 ご存じの方がお見えでしたらご回答をよろしくお願いします。 【質問】 添付図の様に５×５マスが４つあり、それが縦に６つあります。 ５×５マスの４つの中には、黄色、緑色、赤色、青色の４色のいずれかでセルが 塗り潰されています。M列～P列に4色（黄色、緑色、赤色、青色）の色があります。 (1)５×５マスの４つの中で同じ色で塗潰されたセルの数字を重複無しでM列～P列に4色のいずれかに縦に昇順に並べる。 (2)上記(1)で縦に４つに並べた数字をR列に縦１列に重複無しで縦に昇順に並べる。 【注意事項】 ・５×５マスが４つの中で、４色全ての塗り潰しがある訳ではありません。 ※最低、黄色のみという場合があります。 ・５×５マスが４つの中で、塗り潰されているセルは毎回異なります。 ・使用するエクセルは２０１６です。 以上、よろしくお願いします。
- 締切済み
- Excel（エクセル）
- ４つのセルを１つの塊り（マス）と捉えて塗潰す方法３
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a～ｎ、１～１０の合計１４０個のセルに数字が１～９９迄の重複有りで 入っています。a1,a2,b1,b2の４つのセルで１つのマスとみなすと、 140個のセルは縦：５マス、横：７マスの合計３５マスとなります。 この条件で、検索値欄に１つ数字を入れたら、一致した数字が入っているマス （４つのセルの集合）を塗潰すにはどうすればよいですか？ 具体的には、 (1)１つのマスに一致した数字が１個の場合は黄色く塗り潰す。 (2)１つのマスに一致した数字が２個の場合は赤く塗り潰す。 (3)１つのマスに一致した数字が３個の場合は緑色で塗り潰す。 (4)１つのマスに一致した数字が４個の場合は青色で塗潰す。 〇例題 a b c d e f g h i j k l m n 1 02 05 07 07 14 13 15 16 17 28 22 32 33 37 2 03 03 07 14 13 28 99 31 23 32 31 36 32 37 3 05 01 07 06 15 07 20 08 26 12 27 19 32 37 4 04 03 08 10 10 14 12 17 24 18 30 22 37 24 5 08 01 13 02 16 04 25 09 28 15 34 24 36 34 6 01 06 05 12 18 14 22 19 23 30 26 35 28 36 7 02 03 04 11 06 16 20 21 25 26 29 27 31 29 8 07 07 08 10 09 14 17 15 18 21 19 26 20 34 9 07 07 10 04 11 05 18 13 27 20 28 33 30 34 10 07 07 16 14 19 24 24 25 27 26 33 32 35 35 検索値:07 【結果】 検索値に07を入れたら、下記の５マス（２0セル）が塗潰される。 c1,d1,c2,d2 ・・・ 3個一致なので、緑色で塗潰される。 c3,d3,c4,d4 ・・・ 1個一致なので、黄色で塗潰される。 e3,f3,e4,f4 ・・・ 1個一致なので、黄色で塗潰される。 a7,b7,a8,b8 ・・・2個一致なので、赤色で塗潰される。 a9,b9,a10,b10 ・・・４個一致なので、青色で塗潰される。 〇注意事項 ・使用するエクセルは２０１０です。 ・１マス＝４セルです。※a1,a2,b1,b2で１マスです。 ・セルに入っている数字はランダムで、同じ数字の重複は35マス（140セル）全体で ４個迄です（１つのマスに４個入る事も有るし、４つのマスに１個ずつ入る事も あります。） ・検索値欄に入力できる数字は１～９９迄の１つです。 ・セルの数字は表示上、２桁で表しています。（例：１ではなく０１） 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 重複数字の数に応じてセルに色をつける。
このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 また私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 添付図のとおり、１列×２５行の中に数字が１～31まであり、 重複数字を含んで昇順に並んでおり、それが４列あります。 １列毎に数字を見て以下の条件にあえばセルを塗り潰します。 ２個重複⇒セルを黄色に塗り潰す。 ３個重複⇒セルを青色に塗り潰す。 ４個重複⇒セルを緑色に塗り潰す。 ５個重複⇒セルを赤色に塗り潰す。 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 【注意事項】 ・1列×２５行の中にある数字の並びは毎回異なります。 ・1列×２５行の中に重複数字が無い場合があります。（例：Ａ列） ・ＶＢＡで実現する方法～、と書きましたが、 同様のことが他の方法でも実現できればそれを教えて下さい。 ・使用するエクセルは２０２１です。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 6つのセルを１つの塊り（マス）と捉えて塗潰す方法
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a～r、１～１０の合計１8０個のセルに数字が１～９９迄の重複有りで 入っています。a1,a2,b1,b2,c1,c2の6つのセルで１つのマスとみなすと、 180個のセルは縦：５マス、横：6マスの合計３0マスとなります。 この条件で、検索値欄に１つ数字を入れたら、一致した数字が入っているマス （6つのセルの集合）を塗潰すにはどうすればよいですか？ 具体的には、 (1)１つのマスに一致した数字が１個の場合は黄色く塗り潰す。 (2)１つのマスに一致した数字が２個の場合は赤色で塗り潰す。 (3)１つのマスに一致した数字が３個の場合は緑色で塗り潰す。 (4)１つのマスに一致した数字が４個の場合は青色で塗潰す。 (5)１つのマスに一致した数字が5個の場合は紫色で塗潰す。 (6)１つのマスに一致した数字が6個の場合はオレンジ色で塗潰す。 a b c d e f g h i j k l m n ｏ p ｑ ｒ 1 02 05 07 07 14 13 15 16 17 28 22 32 33 37 91 92 93 94 95 2 03 03 07 14 13 28 99 31 23 32 31 36 32 37 81 82 83 84 85 3 05 01 07 06 15 07 20 08 26 12 27 19 32 37 71 72 73 74 79 4 04 03 08 10 10 14 12 17 24 18 30 22 37 24 61 60 54 49 48 5 08 01 13 02 16 04 25 09 28 15 34 24 36 34 50 55 52 67 99 6 01 06 05 12 18 14 22 19 23 30 26 35 28 36 41 42 43 44 45 7 02 03 04 11 06 16 20 21 25 26 29 27 31 29 51 68 75 76 77 8 07 07 08 10 09 14 17 15 18 21 19 26 20 34 96 97 88 87 66 9 07 07 10 04 11 05 18 13 27 20 28 33 30 34 86 39 38 49 62 10 07 07 16 14 19 24 24 25 27 26 33 32 35 35 54 86 87 88 78 検索値:07 【結果】 検索値に07を入れたら、下記の6マス（36セル）が塗潰される。 a1,b1,c1,a2,b2,c2 ・・・ 2個一致なので、緑色で塗潰される。 d1,e1,f1,d2,e2,f2・・・ 1個一致なので、黄色で塗潰される。 a3,b3,c3,a4,b4,c4 ・・・ 1個一致なので、黄色で塗潰される。 d3,e3,f3,d4,e4,f4 ・・・1個一致なので、黄色で塗潰される。 a7,b7,c7,a8,b8,c8 ・・・2個一致なので、赤色で塗潰される。 a9,b9,c9,a10,b10,c10・・・4個一致なので、青色で塗潰される。 〇注意事項 ・使用するエクセルは２０１０です。 ・１マス＝6セルです。※a1,a2,b1,b2,c1,c2で１マスです。 ・セルに入っている数字はランダムで、同じ数字の重複は30マス（180セル）全体で 6個迄です（１つのマスに6個入る事も有るし、6つのマスに１個ずつ入る事も あります。） ・検索値欄に入力できる数字は１～９９迄の１つです。 ・セルの数字は表示上、２桁で表しています。（例：１ではなく０１） ・この質問は先月、「４つのセルを１つの塊り（マス）と捉えて塗潰す方法３」という タイトルで質問させて頂いた、６セル版での質問です。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 【改造】検索値と一緒に出ている隣接数字を知るには2
いつもお世話になっております。 どかたかご存知でしたら回答をお願いします。 ここ最近、同じ様な質問をしておりますが、よろしくお願いします。 ◆改造（付け加える）要件・・・下記以外は前回と同じです。 (3)コピー後に検索値欄の値でコピーした側の４つの5×6のセル内を検索して塗潰す。 具体的には、 (1)検索値と同じ値を見つけたら、黄色でセルを塗潰す。【既存】 (2)検索値と同じ値で隣接する８方向（上、下、左、右、右下、左下、右上、左上） の数字との差が0か１なら、検索値とそのセルを赤色で塗潰す。【既存】 (3)検索値と同じ値で隣接する８方向（上、下、左、右、右下、左下、右上、左上） の数字が全て同じなら、青く塗り潰す。【既存】 (4)検索値と同じ値で隣接する８方向（上、下、左、右、右下、左下、右上、左上） の数字が１ヶ所を除いて全て同じなら、緑色で塗り潰す。【追加】 〇例題 Ａ B C Ｄ Ｅ Ｆ G Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ 1 01 11 16 26 31 40 08 15 21 25 30 35 2 02 03 06 17 27 41 01 11 26 28 31 36 3 04 09 12 19 22 42 02 03 06 16 17 37 4 05 13 14 23 29 43 04 09 12 22 27 38 5 07 10 18 20 24 27 05 13 19 23 29 39 6 7 04 13 16 30 31 33 05 08 20 22 26 37 8 02 15 17 24 29 34 01 03 07 18 19 38 9 01 03 07 19 25 35 04 12 14 16 25 39 10 11 12 14 21 27 36 10 11 21 23 27 40 11 06 09 10 23 28 37 06 08 09 20 28 41 複写数：01 ※最大1~43の数字が入る。 検索値：01 ※最大43個の数字が右に並ぶ。 〇結果 A1、H2、A9、H8：01が黄色で塗潰される。 A2、H3、A8 ：02が赤色となる筈だが、３ヶ所で出ているので緑色で塗潰す。 B2、I3、B9、I8 ：03が青色で塗潰される。 B1、I2、A10 ：11が緑色で塗潰される。 〇青色、緑色で塗潰す説明 A1にある01の隣接数字は小さい順に、02、03、11 H2にある01の隣接数字は小さい順に、02、03、08、11、15 A9にある01の隣接数字は小さい順に、02、03、11、12、15 H8にある01の隣接数字は小さい順に、03、04、05、08、12 01が見つかった４か所全てに出現している隣接数字は03なので03を青色で塗潰す。 01が見つかった３か所全てに出現している隣接数字は02と11なので、 02と11を緑色で塗潰す。 ※02は本来、01の差：１のため赤色となるが、緑色の条件にも当てはまるため最終的に 緑色で塗潰す。（青色の条件に当てはまった場合も緑色の条件にも当てはまれば最終的に 緑色で塗潰す。） 逆に03を検索値とした場合は、 B2にある03接数字は小さい順に、01、02、04、06、09、11、12、16 I3にある03隣接数字は小さい順に、01、02、04、06、09、11、12、26 B9にある03隣接数字は小さい順に、01、02、07、11、12、14、15、17 I8にある0の隣接数字は小さい順に、01、04、05、07、08、12、14、20 03が見つかった４か所全てに出現している隣接数字は01、12なので、 01、12を青色で塗潰す。 03が見つかった3か所全てに出現している隣接数字は02、04、11、なので、 02、04、11を緑色で塗潰す。 ＊＊＊＊2018/11/21の質問の内容＊＊＊＊ 【質問】 例題の様に５×６マスが４つあり、その中を1~43の数字が重複有りで入っています。 1つ目の５×６マス：A1~F5 2つ目の５×６マス：H1~M5 3つ目の５×６マス：A7~F11 4つ目の５×６マス：H7~M11 使い方としては、 (1)複写数欄と検索値欄それぞれに値を入れます。 (2)複写数欄の数だけ、上記４つの5×6のセルを１塊りとして下にコピーする （最大：43）。 検索値欄の検索値も１つコピーする。 (3)コピー後に検索値欄の値でコピーした側の４つの5×6のセル内を検索して塗潰す。 具体的には、 (1)検索値と同じ値を見つけたら、黄色でセルを塗潰す。 (2)検索値と同じ値で隣接する８方向（上、下、左、右、右下、左下、右上、左上） の数字との差が0か１なら、検索値とそのセルを赤色で塗潰す。 〇例題 Ａ B C Ｄ Ｅ Ｆ G Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ 1 06 21 23 36 37 43 01 08 16 31 35 41 2 07 12 14 23 32 43 06 10 13 20 27 32 3 09 17 20 29 42 40 02 15 18 30 34 38 4 03 05 13 25 27 41 01 09 25 30 42 43 5 04 11 22 28 35 39 11 16 18 24 29 42 6 7 03 17 27 36 40 41 07 21 22 23 33 37 8 03 04 08 24 26 39 02 03 07 14 18 38 9 10 12 22 32 37 42 05 10 13 40 41 42 10 02 09 25 32 41 42 07 13 22 40 41 42 11 08 14 23 24 30 39 03 29 31 40 41 42 複写数：01 ※最大1~43の数字が入る。 検索値：41 ※最大43個の数字が右に並ぶ。 〇結果 M1：41が黄色で塗潰される。 E3、F3、F4 ：40、41、42が赤色で塗潰される。 E7、F7 ：40、41が赤色で塗潰される。 F9、E10、F10：41、42、42が赤色で塗潰される。 K9、L9、M9、K10、L10、M10、K11、L11、M11：40、41、42が赤色で塗潰される。 〇注意事項 ・使用するエクセルは2010です。 ・セルの数字は表示上、2桁で表しています。（例：1ではなく01） ・検索値欄に入力できる数字は最大43個で、1~43迄の数字です。 ・複写数欄に入力できる数字は1~43迄の１つです。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 値が入るセル全体を下にコピーした後に検索する方法2
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a～r、１～１０の合計１8０個のセルに数字が１～９９迄の重複有りで 入っています。a1,a2,b1,b2,c1,c2の6つのセルで１つのマスとみなすと、 180個のセルは縦：５マス、横：6マスの合計３0マスとなります。 使い方としては、 (1)複写数欄と検索値欄それぞれに値を入れます。 (2)複写数欄の数だけ、a1～r10の180個のセルを１塊りとして下にコピーする。 検索値欄の検索値も１つコピーする。 (3)コピー後に検索値欄の値でコピーした側のマス（4つのセルの集合）を塗潰す。 具体的には、 (1)１つのマスに一致した数字が１個の場合は黄色で塗り潰す。 (2)１つのマスに一致した数字が２個の場合は赤色で塗り潰す。 (3)１つのマスに一致した数字が３個の場合は緑色で塗り潰す。 (4)１つのマスに一致した数字が４個の場合は青色で塗潰す。 (5)１つのマスに一致した数字が5個の場合は紫色で塗潰す。 (6)１つのマスに一致した数字が6個の場合はオレンジ色で塗潰す。 〇例題 a b c d e f g h i j k l m n ｏ p ｑ ｒ 1 02 05 07 07 14 13 15 16 17 28 22 32 33 37 91 92 93 94 95 2 03 03 07 14 13 28 99 31 23 32 31 36 32 37 81 82 83 84 85 3 05 01 07 06 15 07 20 08 26 12 27 19 32 37 71 72 73 74 79 4 04 03 08 10 10 14 12 17 24 18 30 22 37 24 61 60 54 49 48 5 08 01 13 02 16 04 25 09 28 15 34 24 36 34 50 55 52 67 99 6 01 06 05 12 18 14 22 19 23 30 26 35 28 36 41 42 43 44 45 7 02 03 04 11 06 16 20 21 25 26 29 27 31 29 51 68 75 76 77 8 07 07 08 10 09 14 17 15 18 21 19 26 20 34 96 97 88 87 66 9 07 07 10 04 11 05 18 13 27 20 28 33 30 34 86 39 38 49 62 10 07 07 16 14 19 24 24 25 27 26 33 32 35 35 54 86 87 88 78 複写数：01 ※最大1~43の数字が入る。 検索値：07 ※最大43個の数字が右に並ぶ。 【結果】 検索値：07 ※上記、検索値の左から１つずつ値を取得して下記のセルを検索する。 02 05 07 07 14 13 15 16 17 28 22 32 33 37 91 92 93 94 95 03 03 07 14 13 28 99 31 23 32 31 36 32 37 81 82 83 84 85 05 01 07 06 15 07 20 08 26 12 27 19 32 37 71 72 73 74 79 04 03 08 10 10 14 12 17 24 18 30 22 37 24 61 60 54 49 48 08 01 13 02 16 04 25 09 28 15 34 24 36 34 50 55 52 67 99 01 06 05 12 18 14 22 19 23 30 26 35 28 36 41 42 43 44 45 02 03 04 11 06 16 20 21 25 26 29 27 31 29 51 68 75 76 77 07 07 08 10 09 14 17 15 18 21 19 26 20 34 96 97 88 87 66 07 07 10 04 11 05 18 13 27 20 28 33 30 34 86 39 38 49 62 07 07 16 14 19 24 24 25 27 26 33 32 35 35 54 86 87 88 78 a11に”検索値”が1個コピーされ、 次にa1~r10までのセルの内容がa12~r22にコピーされた後、 コピーされた検索値の07で検索後に07が入った下記の6マス（36セル）が塗潰される。 検索値に07を入れたら、下記の6マス（36セル）が塗潰される。 a1,b1,c1,a2,b2,c2 ・・・ 2個一致なので、赤色で塗潰される。 d1,e1,f1,d2,e2,f2・・・ 1個一致なので、黄色で塗潰される。 a3,b3,c3,a4,b4,c4 ・・・1個一致なので、黄色で塗潰される。 d3,e3,f3,d4,e4,f4 ・・・1個一致なので、黄色で塗潰される。 a7,b7,c7,a8,b8,c8 ・・・2個一致なので、赤色で塗潰される。 a9,b9,c9,a10,b10,c10・・・4個一致なので、青色で塗潰される。 ※複写数と検索値が複数件ある場合は、複写数の数だけ下にa1~r10の内容がコピーされて、 検索値の値の左側から１個ずつコピーされその値で検索される。 〇注意事項 ・使用するエクセルは2010です。 ・1マス＝6セルです。※a1,a2,b1,b2,c1,c2で１マスです。 ・セルに入っている数字はランダムで、同じ数字の重複は30マス（180セル）全体で 6個迄です（１マスに6個入る事も有るし、6マスに1個ずつ入る事もあります。） ・検索値欄に入力できる数字は最大43個で、1~43迄の数字です。 ・複写数欄に入力できる数字は1~43迄の１つです。 ※複写数と検索値の数は一致していない場合はエラーとして動作をSTOPします。 例1）複写数：3、検索値：2,5,4,37,18 →検索値の数と複写数が不一致。 例2）複写数：0 検索値：3 →複写数がゼロのため。 例3）複写数：1 検索値：0 →検索値がゼロのため。 ※複写数分、a1~r10の180個のセルは下にコピーされ、検索値の値は左から １つずづ使用して、実際の検索と結果としての値として使用します。 ・セルの数字は表示上、2桁で表しています。（例：1ではなく01） ・この質問は先月、「値が入るセル全体を下にコピーした後に検索する方法」という タイトルで質問させて頂いた、６セル版での質問です。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 検索値と同じ値か、左右の数字と連続数字なら塗潰す。
どなたかご存知でしたら回答をお願いします。 【質問】 例題の様に５×６マスが４つあり、その中を1~43の数字が重複有りで入っています。 1つ目の５×６マス：A1~F5 2つ目の５×６マス：H1~M5 3つ目の５×６マス：A7~F11 4つ目の５×６マス：H7~M11 使い方としては、 (1)複写数欄と検索値欄それぞれに値を入れます。 (2)複写数欄の数だけ、上記４つの5×6のセルを１塊りとして下にコピーする （最大：43）。 検索値欄の検索値も１つコピーする。 (3)コピー後に検索値欄の値でコピーした側の４つの5×6のセル内を検索して塗潰す。 具体的には、 (1)検索値と同じ値を見つけたら、黄色でセルを塗潰す。 (2)検索値の左右が検索値との連続数字なら、検索値とその左右のセルを赤色で塗潰す。 〇例題 Ａ B C Ｄ Ｅ Ｆ G Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ 1 06 21 23 36 37 43 01 08 16 31 35 41 2 07 12 14 23 26 27 06 10 13 20 31 37 3 09 17 20 29 32 39 02 15 18 30 34 38 4 03 05 13 25 27 40 01 09 25 30 42 43 5 04 11 22 28 35 38 11 16 18 24 29 42 6 7 03 17 27 36 40 41 07 21 22 23 33 37 8 03 04 08 24 26 39 02 03 07 14 18 38 9 10 12 22 32 37 42 05 10 13 28 36 40 10 02 09 25 32 41 42 07 13 22 40 41 42 11 08 14 23 24 30 39 03 29 31 32 33 40 複写数：01 ※最大1~43の数字が入る。 検索値：41 ※最大43個の数字が右に並ぶ。 〇結果 M1、F7：41が黄色で塗潰される。 E10、F10：連続数字（41、42）が赤色で塗潰される。 K10、L10、M10：連続数字（40、41、42）が赤色で塗潰される。 〇注意事項 ・使用するエクセルは2010です。 ・セルの数字は表示上、2桁で表しています。（例：1ではなく01） ・検索値欄に入力できる数字は最大43個で、1~43迄の数字です。 ・複写数欄に入力できる数字は1~43迄の１つです。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 左右、上下重なる位置にある数字を取得する。
いつもお世話になっております。 ご存知の方、ご回答をよろしくお願いします。 【質問】 添付図の様に５×５マスが、Ａ，Ｂ，Ｃ，Ｄの４つ存在します。 検索ＫＥＹの６個の数字でＡ，Ｂ，Ｃ，Ｄの各５×５マス内を検索して 一致したら、セルを黄色で塗り潰す。 次に、各５×５マスの３列目を中心として黄色に塗りつぶしたセルの 左右反対側にある数字を取得して右側の”〇枠左右”の下に並べる。 最後に、各５×５マスの３行目を中心として黄色に塗りつぶしたセルの 上下反対側になる数字を取得して右側の”〇枠上下”の下に並べる。 【注意事項】 ・検索ＫＥＹの６個の数字は重複無しで、毎回、入力する値は変わります。 ・Ａ，Ｂ、Ｃ，Ｄの各５×５枠の中の数字は重複在りで、 毎回、数字は変わります。数字は１～９９迄です。 ・Ａ，Ｂ，Ｃ，Ｄの各５×５マスの中に検索ＫＥＹの6個の数字が１つも 存在しないことはあります。 ・使用するエクセルは２０１６です。 以上、よろしくお願いします。
- 締切済み
- Excel（エクセル）
- 値が入るセル全体を下にコピーした後に検索する方法
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a～ｎ、1～10の合計140個のセルに数字が1～99迄の重複有りで 入っています。a1,a2,b1,b2の４つのセルで１つのマスとみなすと、 140個のセルは縦：5マス、横：7マスの合計35マスとなります。 使い方としては、 (1)複写数欄と検索値欄それぞれに値を入れます。 (2)複写数欄の数だけ、a1～n10の140個のセルを１塊りとして下にコピーする。 検索値欄の検索値も１つコピーする。 (3)コピー後に検索値欄の値でコピーした側のマス（4つのセルの集合）を塗潰す。 具体的には、 (1)１つのマスに一致した数字が１個の場合は黄色く塗り潰す。 (2)１つのマスに一致した数字が２個の場合は赤く塗り潰す。 (3)１つのマスに一致した数字が３個の場合は緑色で塗り潰す。 (4)１つのマスに一致した数字が４個の場合は青色で塗潰す。 〇例題 a b c d e f g h i j k l m n 1 02 05 07 07 14 13 15 16 17 28 22 32 33 37 2 03 03 07 14 13 28 99 31 23 32 31 36 32 37 3 05 01 07 06 15 07 20 08 26 12 27 19 32 37 4 04 03 08 10 10 14 12 17 24 18 30 22 37 24 5 08 01 13 02 16 04 25 09 28 15 34 24 36 34 6 01 06 05 12 18 14 22 19 23 30 26 35 28 36 7 02 03 04 11 06 16 20 21 25 26 29 27 31 29 8 07 07 08 10 09 14 17 15 18 21 19 26 20 34 9 07 07 10 04 11 05 18 13 27 20 28 33 30 34 10 07 07 16 14 19 24 24 25 27 26 33 32 35 35 複写数：01 ※最大1~37の数字が入る。 検索値：07 ※最大37個の数字が右に並ぶ。 【結果】 検索値：07 ※上記、検索値の左から１つずつ値を取得して下記のセルを検索する。 02 05 07 07 14 13 15 16 17 28 22 32 33 37 03 03 07 14 13 28 99 31 23 32 31 36 32 37 05 01 07 06 15 07 20 08 26 12 27 19 32 37 04 03 08 10 10 14 12 17 24 18 30 22 37 24 08 01 13 02 16 04 25 09 28 15 34 24 36 34 01 06 05 12 18 14 22 19 23 30 26 35 28 36 02 03 04 11 06 16 20 21 25 26 29 27 31 29 07 07 08 10 09 14 17 15 18 21 19 26 20 34 07 07 10 04 11 05 18 13 27 20 28 33 30 34 07 07 16 14 19 24 24 25 27 26 33 32 35 35 a11に”検索値”が1個コピーされ、 次にa1~n10までのセルの内容がa12~n22にコピーされた後、 コピーされた検索値の07で検索後に07が入った下記の５マス（20セル）が塗潰される。 c12,d12,c13,d13 ・・・ 3個一致なので、緑色で塗潰される。 c14,d14,c15,d15 ・・・ 1個一致なので、黄色で塗潰される。 e14,f14,e15,f15 ・・・ 1個一致なので、黄色で塗潰される。 a18,b18,a19,b19 ・・・2個一致なので、赤色で塗潰される。 a20,b20,a21,b21 ・・・４個一致なので、青色で塗潰される。 ※複写数と検索値が複数件ある場合は、複写数の数だけ下にa1~n10の内容がコピーされて、 検索値の値の左側から１個ずつコピーされその値で検索される。 〇注意事項 ・使用するエクセルは2010です。 ・1マス＝4セルです。※a1,a2,b1,b2で１マスです。 ・セルに入っている数字はランダムで、同じ数字の重複は35マス（140セル）全体で 4個迄です（１マスに4個入る事も有るし、4マスに1個ずつ入る事もあります。） ・検索値欄に入力できる数字は最大37個で、1~37迄の数字です。 ・複写数欄に入力できる数字は1~37迄の１つです。 ※複写数と検索値の数は一致していない場合はエラーとして動作をSTOPします。 例1）複写数：3、検索値：2,5,4,37,18 →検索値の数と複写数が不一致。 例2）複写数：0 検索値：3 →複写数がゼロのため。 例3）複写数：1 検索値：0 →検索値がゼロのため。 ※複写数分、a1~n10の140個のセルは下にコピーされ、検索値の値は左から １つずづ使用して、実際の検索と結果としての値として使用します。 ・セルの数字は表示上、2桁で表しています。（例：1ではなく01） 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
補足
お返事頂きありがとうございます。以下、ご質問の回答です。 （1）数えるのも色を付けるのも、検索文字とその周りの文字を対象にお願いします。 （2）別々の色のままでもよいです。 （3）２桁の文字入力でしたか、でも最初に回答を頂いたソースそのままで今回の添付図作成 してます。私が１桁入力に変更はしていないと思います。 サンプルへの質問 (1) 1の周りに無い２には色は付けません。 (2)赤優先です。 (3)D25にある15は数えません。あくまで、検索値：２と隣接する数字で、登場回数が検索値-1の場合は緑色です。（２は4回、１５は２回ではなく３回（I20にある15はH20,I21の隣接数字）です。） (4)以下ソースを貼ります。 ' Option Explicit ' Sub Macro1() ' Dim Col As Integer Dim IRange As Range ' Cells.Interior.Pattern = xlNone [A13:Q557].ClearContents ' For Col = 0 To [S1] - 1 Set IRange = [A1:O11].Offset(Col * 13) IRange = [A1:O11].Value Level1 IRange, Cells(2, Col + 19) Cells(Col * 13 + 1, "P") = "検索値" Cells(Col * 13 + 1, "Q") = Cells(2, Col + 19) Next Col End Sub Sub Level1(IRange As Range, ByVal Search As Integer) ' Dim Cell1 As Range Dim TableC(43) As Integer Dim Count As Integer ' For Each Cell1 In IRange ' If Cell1 = Search Then Count = Count + 1 Level2 Cell1, TableC(), Search Cell1.Interior.Color = vbYellow End If Next Cell1 ' For Each Cell1 In IRange ' If Cell1.Interior.Color <> vbBlue Then ElseIf TableC(Cell1) = Count - 1 Then Cell1.Interior.Color = vbGreen ElseIf TableC(Cell1) < Count Then Cell1.Interior.Pattern = xlNone End If ' If Cell1.Interior.Color <> vbRed Then ElseIf TableC(Cell1) = Count - 1 Then Cell1.Interior.Color = &HFF7F& ElseIf TableC(Cell1) = Count Then Cell1.Interior.Color = vbMagenta End If Next Cell1 End Sub ' Sub Level2(Cell1 As Range, TableC() As Integer, Search As Integer) ' Dim Cell2 As Range Dim TableB(43) As Boolean Dim RowF As Integer Dim ColF As Integer ' RowF = Cell1.Row > 1 ColF = Cell1.Column > 1 ' For Each Cell2 In Cell1.Offset(RowF, ColF).Resize(2 - RowF, 2 - ColF) ' RowF = Val(Cell2) If Cell2 < "01" Then ElseIf Abs(Cell1 - Cell2) = 1 Then Cell2.Interior.Color = vbRed ElseIf Cell1 <> Cell2 Then Cell2.Interior.Color = vbBlue End If TableC(RowF) = TableC(RowF) + 1 + TableB(RowF) TableB(RowF) = True Next Cell2 End Sub