- ベストアンサー
エクセル表で縦方向に検索する方法｜セルに○×表記
mar00の回答
- mar00
- ベストアンサー率36% (158/430)
関数でなくマクロを使った方法になりますが、必ずシートをコピーしてから試してみてください。 誤って保存してブックを閉じてしまうと元に戻せません。 同じシートで2回マクロを実行してしまうと全て×になってしまいます。 シート名の上で右クリック→コードの表示を選択→VBE画面が出てきますので貼り付けて下さい。 VBE画面を閉じてAltキー+F8を押して実行をクリックしてください。 Sub Macro1() For i = 3 To Cells(10, Columns.Count).End(xlToLeft).Column For j = 11 To Cells(Rows.Count, i).End(xlUp).Row If Cells(j, i) = Cells(10, i) Then Cells(j, i) = "○" Else Cells(j, i) = "×" End If Next j Next i End Sub
関連するQ&A
- EXCELの表で縦横の入れ替え方法
EXCELの表で 縦軸と横軸を入れ替える方法ってありますか？ つまり A B C D E F G H I J K L っていう表を A E I B F J C G K D H L にしたいのです。
- ベストアンサー
- オフィス系ソフト
- 解読お願いします！困ってます！
c：w g：p d：i e：h j：h h：c n：o i：k b：g m：c a：e k：s l：q f：z 誰か賢い方これを解読お願いします！！
- 締切済み
- 数学・算数
- C言語の配列の使い方について質問です。
以下のプログラムを配列を使って見やすくしたいのですが、どのように作ったら良いでしょうか？ 宜しくお願いします。 #include<stdio.h> int main(void) { int a, b, c, d, e, f, g, h, i, j, k, l, m ,n, o; /*5段目の処理*/ for(a = 1; a <= 15; a++) { for(b = 1; b <= 15; b++) { if(a == b) continue; for(c = 1; c <= 15; c++) { if(a == c || b == c) continue; for(d = 1; d <= 15; d++) { if(a == d || b == d || c == d) continue; for(e = 1; e <= 15; e++) { if(a == e || b == e || c == e || d == e) continue; // printf("%d %d %d %d %d\n", a, b, c, d, e); ////4段目//// if(a>b){ f=a-b; } else if(a<b){ f=b-a; } if(b>c){ g=b-c; } else if(b<c){ g=c-b; } if(c>d){ h=c-d; } else if(c<d){ h=d-c; } if(d>e){ i=d-e; } else if(e<d){ i=e-d; } // printf(" %d %d %d %d \n", f, g, h, i); /////3段目//// if(f>g){ j=f-g; } else if(f<g){ j=g-f; } if(g>h){ k=g-h; } else if(g<h){ k=h-g; } if(h>i){ l=h-i; } else if(h<i){ l=i-h; } // printf(" %d %d %d \n", j, k, l); /////2段目//// if(j>k){ m=j-k; } else if(j<k){ m=k-j; } if(k>l){ n=k-l; } else if(k<l){ n=l-k; } // printf(" %d %d \n", m, n); /////三段目///// if(m>n){ o=m-n; } else if(m<n){ o=n-m; } // printf(" %d \n", o); if(a != b != c != d != e != f != g != h != i != j != k != l != m != n != o){ printf("%d %d %d %d %d\n", a, b, c, d, e); printf(" %d %d %d %d \n", f, g, h, i); printf(" %d %d %d \n", j, k, l); printf(" %d %d \n", m, n); printf(" %d \n", o); } } } } } } }
- ベストアンサー
- C・C++・C#
- Excelマクロ 表の書き換え方法教えてください
2日くらいあれこれやってみたのですが、全くできないためお教えいただけますでしょうか。 1 2 3 4 5 6 7 A a b c d e f g B h i j k l m n C o p q r s t D u v w x y z （以下続く） 注）A1セルは空白、1、a、h、o、uは同じ列になります という表（Book1.xls）を下記（Book2.xls）へ変更するマクロを作りたいと思っています。 A 1 a A 2 b A 3 c A 4 d A 5 e A 6 f A 7 g B 1 a B 2 b （以下略） Book1の行数は任意、1～7は固定、abcde…は空白セルもあります。 いいマクロがありましたらぜひご教授ください。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 解読に困っています！
c：w g：p d：i e：h j：h h：c n：o i：k b：g m：c a：e k：s l：q f：z この暗号の答えは【DETECTIVECONAN】 になるそうなのですが どうしてなるかわかりません。 誰か賢い方回答おねがいします！！
- ベストアンサー
- 数学・算数
- JavaScriptの配列について
var old_array = Array('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '<', '#', '/', '>', '%', '.', '*', '0', '!', '?', ':', '=', '|'); var new_array = Array('b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '<', '#', '/', '>', '%', '.', '*', '0', '!', '?', ':', '=', '|'); のような配列があり、 abcと入力するとbcd DEFと入力するとEFG 012と入力すると!23 というようなものを作りたいのですがどうすればいいでしょうか。
- ベストアンサー
- JavaScript
- ８方向との数字の差が０か１の場合にセルを塗潰す方法
どなたかご存知でしたら回答をお願いします。 【質問】 例題の様に6×6のセルが２つあり、それぞれ１~９９迄の数字がランダムに重複有りで入っています。 左上から右下へセルの数字を１つずつ中心にして見た場合、 ８方向（上、下、左、右、右下、左下、右上、左上）の数字との差が０と１の場合に、 黄色に塗潰す方法が知りたいです。 【例題】 A Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ 1 01 11 15 18 20 25 04 05 08 27 38 42 2 03 26 30 31 34 41 01 02 09 26 27 29 3 05 16 20 22 37 41 03 08 23 24 25 39 4 02 07 17 25 28 38 04 22 23 29 33 34 5 08 17 21 23 24 36 02 06 26 29 30 37 6 04 05 09 12 24 42 22 23 29 35 36 37 【結果】 A1~F6で塗る潰される数字 H1~M6で塗潰される数字 30 31 41 04 05 08 27 41 01 02 09 26 27 25 03 23 24 25 22 23 24 23 29 33 34 29 04 05 24 29 35 36 37 ●説明 A1~F6で23、24（2か所）、25が塗潰される理由。 (1)セルD4の25から見た８方向にある数字は20、22、37、17、28、21、23、24なので、 25との数字の差が０か１となる数字としては、24なので、24のセルが塗潰される。 (2)セルD5の23から見た８方向にある数字は17、25、28、21、24、9、12、24なので、 23との数字の差が０か１となる数字としては24なので、右の24と右下の24のセルが 塗潰される。 (3)セルE5の24から見た８方向にある数字は25、28、38、23、36、12、24、42なので、 24との数字の差が０か１となる数字としては25と24なので、左上の25と下の24のセルが 塗潰される。 (4)セルE6の24から見た８方向にある数字は23、24、36、12、42なので、 24との数字の差が０か１となる数字としては23と24なので、左上の23と上の24のセルが 塗潰される。 【注意事項】 ・使用するエクセルは２０１０です。 ・セルの中の数字は２桁で表しています。（例：1ではなく01） ・6×6のセルの位置は下記のとおりです。 １個目の6×6マス・・・A1~F6 ２個目の6×6マス・・・H1~M6 ※G列は空白列として空けています。 ・回答はＶＢでも関数でも構いません。 以上、よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Loopの使い方について
Rubyで 数字を下記のようなやり方では1～12 までの数字をまわせるプログラムと 文字のa～l までまわせるプログラムを合体させたいのですがどのようにすればよいでしょうか? #1-12 までの数値をまわすソース n=1 loop do puts n if n == 12 break end n += 1 end 実行結果↓ 1 2 3 4 5 6 7 8 9 10 11 12 # a～ lの小文字をまわすソース ["a","b","c","d","e","f","g","h","i","j","k","l"].each do |n| puts n end 実行結果 a b c d e f g h i j k l 上記のプログラムをあわせて、実行結果が、↓ 1 a 2 b 3 c 4 d 5 e 6 f 7 g 8 h 9 i 10 j 11 k 12 l ↑ このようにするには、どのようにすればよいでしょうか。 よろしくお願いします。
- ベストアンサー
- Ruby
- エクセル マクロでセルを自動移動
例1のようになっているエクセル表があります。 データは右方向、下方向へ増えます。 Cの列以降は4つ単位でしかデータは増えません。 それを例2の表のように列A,Bのデータはそのままに Cの列以降の4つのセルを区切りに下の行に移動して、 空白の列まで言ったらA2の行以降を最後の行まで繰り返しするという マクロを書くことは可能でしょうか。 出来ましたらそのマクロを教えてください。 例1 A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1 A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 A3 B3 C3 D3 E3 F3 G3 H3 I3 J3 K3 L3 M3 N3 例2 A1 B1 C1 D1 E1 F1 A1 B1 G1 H1 I1 J1 A1 B1 K1 L1 M1 N1 A2 B2 C2 D2 E2 F2 A2 B2 G2 H2 I2 J2 A3 B3 C3 D3 E3 F3 A3 B3 G3 H3 I3 J3 A3 B3 K3 L3 M3 N3
- ベストアンサー
- オフィス系ソフト
- 2つエクセルデータを比較し、必要な情報を抽出する方法は？
sheet1 sheet2 sheet3 19000001 a 19000001 a 19000001 aa 19000001 aa 19000002 b 19000005 ee 19000002 b 19000003 c 19000003 c 19000004 d 19000004 d 19000005 e 19000005 e 19000006 f 19000005 ee 19000007 g 19000006 f 19000008 h 19000007 g 19000009 i 19000008 h 19000010 j 19000009 i 19000011 k 19000010 j 19000012 l 19000011 k 19000012 l sheet1にあるデータから sheet2にはないデータをsheet3に抜き出したい できるだけ簡単な方法を教えてください
- 締切済み
- その他MS Office製品
お礼
大幅に御礼が遅れまして、申し訳ありません。 ご回答、有り難うございました。