- ベストアンサー
セルの参照方法を教えて下さい
fumufumu_2006の回答
こんなのはどうでしょうか? 作業シートを使う方法です。 元データをSheet1、作業シートをSheet2とします。 Sub sample() Dim c As Integer Dim r As Integer 'sheet2(作業シート)をクリア Sheets("Sheet2").Cells.Clear 'sheet1のFont.ColorIndex=3(赤)のセルアドレスをSheet2のA列に取得 r = 0 For c = 1 To 10 If Sheet1.Cells(1, c).Font.ColorIndex = 3 Then r = r + 1 Sheets("Sheet2").Cells(r, 1) = Sheets("Sheet1").Name & "!" & Sheets("Sheet1").Cells(1, c).Address(RowAbsolute:=False, ColumnAbsolute:=False) End If Next 'データがなければ終わり If r = 0 Then MsgBox "ありません" Exit Sub End If 'Sheet2のB列にSheet1のA1:J1範囲のFont.ColorIndex=3(赤)のセルの値を表示する計算式を設定 Sheets("Sheet2").Range("B1:B" & r).Formula = "=INDIRECT(A1)" 'Sheet2のB列をキーに降順で並び替え Sheets("Sheet2").Cells.Sort Key1:=Sheets("Sheet2").Range("B1"), Order1:=xlDescending, Header:=xlNo 'sheet2のA列に並び替えた結果のセル番号が入っている '結果を表示 Sheets("Sheet1").Select Dim i As Integer For i = 1 To Sheets("Sheet2").Cells(1, 1).End(xlDown).Row Range(Sheets("Sheet2").Cells(i, 1)).Select MsgBox "Hit Any" Next End Sub
関連するQ&A
- 重複する数字のセルを塗り潰す方法。
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 5×5マスの中に数字が1~31迄で重複して入っている場合があります。 もし重複数字があれば、その数字のセルを塗潰す方法が知りたいです。 【例】 セルのA1~E5までに下記の様に数字が入っている場合、 重複数字の4,6,7、14、15,29のセルを塗潰す。 4 8 18 19 29 3 4 6 17 29 2 4 6 23 25 7 13 14 15 20 7 12 14 15 16 【注意事項】 ・使用するエクセルは2010です。 ・塗潰しの色は全て同じ色でかまいません。 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- セルの塗りつぶしについて。
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 5×6のセルがあり、その中にはランダムに数字が1つ入っています(重複有り)。 下記の様に入力値1~6に値を入れたら、5×6のセルを検索する。 検索できたら、その数字のセルを塗り潰し、それ以外にその数字の周りにある数字 も一緒に塗り潰す。検索できない場合は何もしない。尚、塗り潰しの色は全て同じ色とする。 ★------- 以下は具体的に入力値1~6を入れた場合の説明です。 ----------★ 「入力値1」に08を入れたら、5×6のセルの中にある、08を塗り潰し、 それ以外に、05、04、07、19、23、20、21、09も塗り潰す。 「入力値2」に41を入れたら、5×6のセルの中にある、41を塗り潰し、 それ以外に、38、30、37も塗り潰す。 「入力値3」に37を入れたら、5×6のセルの中にある、3箇所ある37を塗り潰し、 それ以外に、41、38、30、35、43、39、36、29、18、28も塗り潰す。 「入力値4」に29を入れたら、5×6のセルの中にある29を塗り潰し、 それ以外に、24、20、23、15、18、33、35、30も塗り潰す。 「入力値5」に03を入れたら、5×6のセルの中にある03を塗り潰し、 それ以外に01、06、12も塗り潰す。 「入力値6」に23を入れたら、5×6のセルの中にある23を塗り潰し、 それ以外に20、08、19、06、15、18、29、24も塗り潰す。 【5×6のセル】 【入力ゾーン】 05 09 21 25 38 41 入力値1:08 04 08 20 24 30 37 入力値2:41 07 19 23 29 35 43 入力値3:37 01 06 15 18 37 39 入力値4:29 03 12 17 28 36 37 入力値5:03 入力値6:23 【備考】 ・使用する数字は1~99迄で、5×6のセルにはその中からランダムに選んだ数字が 重複有りで入っています。 ・使用するエクセルは2010です。 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- 4つのセルを1つの塊り(マス)と捉えて塗潰す方法2
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a~n、1~10の合計140個のセルに数字が1~99迄の重複有りで 入っています。a1,a2,b1,b2の4つのセルで1つのマスとみなすと、 140個のセルは縦:5マス、横:7マスの合計35マスとなります。 この条件で、検索値欄に1つ数字を入れたら、 一致した数字が入っているマス(4つのセルの集合)を塗潰すにはどうすればよいですか? 具体的には、1つのマスに一致した数字が2個以上重複している場合は、赤く塗り潰す。 1個の場合は黄色く塗り潰す事がしたいです。 〇例題 a b c d e f g h i j k l m n 1 02 05 08 09 14 13 15 16 17 28 22 32 33 37 2 03 03 05 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 01 02 10 04 11 05 18 13 27 20 28 33 30 34 10 12 11 16 14 19 24 24 25 27 26 33 32 35 35 検索値:07 【結果】 検索値に07を入れたら、下記の3マス(12セル)が塗潰される。 c3,d3,c4,d4 ・・・ 1個一致なので、黄色で塗潰される。 e3,f3,e4,f4 ・・・ 1個一致なので、黄色で塗潰される。 a7,b7,a8,b8 ・・・2個一致なので、赤色で塗潰される。 〇注意事項 ・使用するエクセルは2010です。 ・1マス=4セルです。※a1,a2,b1,b2で1マスです。 ・セルに入っている数字はランダムで、同じ数字の重複は35マス(140セル)全体で 4個迄です(1つのマスに4個入る事も有るし、4つのマスに1個ずつ入る事も あります。) ・検索値欄に入力できる数字は1~99迄の1つです。 ・セルの数字は表示上、2桁で表しています。(例:1ではなく01) 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- グラフ要素のセルを参照したいのですが・・・
こんにちは! マクロ初心者の者です。 散布図の1要素を選択し、 ショートカットキーにてマクロを実行すると、 選択したグラフ要素が参照している 参照先セルを選択したいのです。 マクロをショートカットキーに割り当てる方法は なんとかわかったのですが、グラフの1要素の 参照先セルを選択する方法がわかりません・・・ どなたか教えてください。
- ベストアンサー
- Visual Basic
- エクセル/参照したセルの移動
エクセル2003を使っています。 シート1のセルをシート2で参照しているのですが、シート1で並び替えをすると参照元を追ってくれません。 例えばシート1に製品名と値段の表があって、シート2にある製品名●●と値段を参照したいとします。 シート1 A B 1 ●● 2,000 2 ☆☆ 3,000 シート2 A B 1 ●● 上記のような場合、シート2のB1セルに「='シート1'!B1」と入力しました。そうするとB1セルに2,000と表示されるまでは良いのですが、シート1で並び替えをした際、●●製品が10行目に移動してしまうとシート2のB1セルには1行目に移動した他の製品の値段が出てしまいます。 シート1で並び替えをしたら、シート2でも●●製品の値段が追えるようには出来ないでしょうか? 何か良い方法があれば、教えて下さい。どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで、あるセルを参照に空白のセルを塗りつぶす方法
仕事で毎時間の各商品の売れ具合を、エクセルで日々表にしています。表は多い(多)普通(普)少ない(少)無し(無)と数段階に区切って表示して、それぞれに(多)なら赤、(普)なら黄~とそのセルを塗りつぶしています。表内のセルには、条件付き書式をかけているのでA商品の売り上げ9時台が「普通」なら、対象のセルに普と入力すると、そのセルは自動的に黄色で塗りつぶされるようにしています。 そして、9時台が「普通」で、同じ商品の10~14時台まで同じ「普通」の売り上げが続き、15時に「多い」になったら、10~14時台のセルを9時台と同じ状態が続いたということで、セルの中には何も入力せず、色だけ黄色で塗りつぶしています。 (一つの商品は時間毎に右のセルに移動して、始めから終わりまで同じ行で表示しています。) 前置きが長くなってしまいましたが、質問させていただきたいのは、 あるセル(例:セルA2)に「普」と入力し、塗りつぶしも(条件付き書式で自動的に)黄色になった場合に、そのセルの右隣のセル(例:セルB2)に何も入力されていなければ、同じ色(黄色)に塗りつぶし、さらにその右隣のセル(例:セルC2)にも何も入力されていなければ、これも同じ色(黄色)に塗りつぶす~という作業を、同じ行の右隣のセルに何か入力されるまで繰り返す。という指示をエクセルに与えることは可能でしょうか?(ソフトはエクセル2000を使用しています) 自分で関数で色々試してみましたが、出来ずに困っています。 これは、マクロ(VBA?)というもので、出来るのでしょうか? 私はマクロを全然使ったことが無いのですが、もしマクロで出来る場合、マクロ初心者の私では難しいでしょうか? 長々とした、わかりづらい質問で申し訳ありません。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel2010 セルのフォントの色
Excel2010で、任意のセルのフォントの色が「赤」だったら、その列の空のセルに「赤」等のフラグを立てて、条件付きで列に色を付けたい。 VBA等マクロは使えません。 なんとか関数で対応したいと思っています。 ご教示方、よろしくおねがいします。
- ベストアンサー
- Excel(エクセル)
- 重複数字の数に応じてセルに色をつける。
このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたらよろしくお願いします。 (ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 また私の質問が気に入らない場合は無視して頂ければ結構です。) 【質問】 添付図のとおり、1列×25行の中に数字が1~31まであり、 重複数字を含んで昇順に並んでおり、それが4列あります。 1列毎に数字を見て以下の条件にあえばセルを塗り潰します。 2個重複⇒セルを黄色に塗り潰す。 3個重複⇒セルを青色に塗り潰す。 4個重複⇒セルを緑色に塗り潰す。 5個重複⇒セルを赤色に塗り潰す。 上記を実現する方法をVBAで実現する方法が知りたいです。 【注意事項】 ・1列×25行の中にある数字の並びは毎回異なります。 ・1列×25行の中に重複数字が無い場合があります。(例:A列) ・VBAで実現する方法~、と書きましたが、 同様のことが他の方法でも実現できればそれを教えて下さい。 ・使用するエクセルは2021です。 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- シート再計算とセル参照について
マクロでWEBからデータを落としてきて、列の順序を変えたり不要な行を削除したりしたシートを別のシートから参照したいのですが、マクロを実行するたびに参照してるセルがなかったりするので#REFとなります。なにかいい方法はないでしょうか? 今はマクロのファイルを保存してから、セル参照を行うファイルを開きデータ更新しています。 理想は、マクロを実行した”後に”(データの加工が終了した後)別のシートから、マクロを実行したシートを参照したいです(自動で)。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 4つのセルを1つの塊り(マス)と捉えて塗潰す方法3
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に、a~n、1~10の合計140個のセルに数字が1~99迄の重複有りで 入っています。a1,a2,b1,b2の4つのセルで1つのマスとみなすと、 140個のセルは縦:5マス、横:7マスの合計35マスとなります。 この条件で、検索値欄に1つ数字を入れたら、一致した数字が入っているマス (4つのセルの集合)を塗潰すにはどうすればよいですか? 具体的には、 (1)1つのマスに一致した数字が1個の場合は黄色く塗り潰す。 (2)1つのマスに一致した数字が2個の場合は赤く塗り潰す。 (3)1つのマスに一致した数字が3個の場合は緑色で塗り潰す。 (4)1つのマスに一致した数字が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を入れたら、下記の5マス(20セル)が塗潰される。 c1,d1,c2,d2 ・・・ 3個一致なので、緑色で塗潰される。 c3,d3,c4,d4 ・・・ 1個一致なので、黄色で塗潰される。 e3,f3,e4,f4 ・・・ 1個一致なので、黄色で塗潰される。 a7,b7,a8,b8 ・・・2個一致なので、赤色で塗潰される。 a9,b9,a10,b10 ・・・4個一致なので、青色で塗潰される。 〇注意事項 ・使用するエクセルは2010です。 ・1マス=4セルです。※a1,a2,b1,b2で1マスです。 ・セルに入っている数字はランダムで、同じ数字の重複は35マス(140セル)全体で 4個迄です(1つのマスに4個入る事も有るし、4つのマスに1個ずつ入る事も あります。) ・検索値欄に入力できる数字は1~99迄の1つです。 ・セルの数字は表示上、2桁で表しています。(例:1ではなく01) 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
お礼
これで何とか問題を解決できそうです。良いアイデアを頂きました。どうもありがとうございました!