Cassava Editor サポート掲示板

スレッド一覧に戻る ／ 返信

[233] 「重複する値に色を付ける」機能について

プンスパンピ [2011/12/14 23:57:56]

Cassava様には、大変お世話になっております。
有難うございます。
エクセルにある「重複する値に色を付ける」機能は無いのでしょうか？マクロがあれば教えて頂きたいです。
お手数お掛けいたしますがご確認願います。

Re: [233] 「重複する値に色を付ける」機能について

あすかぜ [2011/12/16 22:34:41]

返信遅くなりました。

Cassava ではセルに色をつけることはできませんが、重複する行に対して「○」のようなマークをつけるというマクロなら作ることができます。

//// マクロここから ////

// 結果を表示する列
result = SelRight + 1;
// 選択範囲を上から順に調べる
for(y1=SelTop; y1<=SelBottom; y1++){
　// すでにマーク済みなら再検索しない
　if([result,y1] != "○"){
　　// 重複かどうか調べる対象の行
　　for(y2=y1+1; y2<=SelBottom; y2++){
　　　// 選択範囲を左から右に１つずつ比較。
　　　hit = true;
　　　for(x=SelLeft; x<=SelRight && hit; x++){
　　　　// 1 箇所でも値が異なるセルがあれば重複ではない
　　　　if([x,y1] != [x,y2]){
　　　　　hit = false;
　　　　}
　　　}
　　　// 重複ならマークをつける
　　　if(hit){
　　　　[result,y1] = "○";
　　　　[result,y2] = "○";
　　　}
　　}
　}
}

//// マクロここまで ////

このマクロでは、実行時の選択範囲について、重複する行を探して選択範囲のひとつ右のセルに「○」と出力します。
あらかじめ選択範囲の右側に空白の列を用意して実行してください。

「重複する値に色を付ける」機能について正しく把握できているかよくわかりませんが、これで参考になるでしょうか？

Re: [233] 「重複する値に色を付ける」機能について

プンスパンピ [2011/12/20 22:21:11]

返信が遅くなり申し訳ございません。
有難う御座いました。
今後ともよろしくお願い致します。

Re: [233] 「重複する値に色を付ける」機能について

初心者 [2012/03/14 15:22:39]

便乗して申し訳ありません。

列内で内容が重複しているセルを調べたいのですが、
選択範囲の列内のみで重複しているセルの右側の列に○を付けることは可能でしょうか。

お手数をお掛けいたしますが、
宜しくお願いいたします。

Re: [233] 「重複する値に色を付ける」機能について

あすかぜ [2012/03/14 20:51:24]

上で書いたマクロは、選択範囲内のみで重複を見つけるものとなっています。重複を見つけたい列を選択して実行してみてください。

よろしくお願いします。

スレッド一覧に戻る ／ 返信