[[20050408111510]]　『色をキーにソートか抽出』（まろきち）　ページの最後に飛ぶ

『色をキーにソートか抽出』（まろきち）

セルの塗りつぶし（色）をキーに並べ替えは可能でしょうか。

また塗りつぶされたセルが存在する列または行のみ
表示することはできますか？
（該当しない行を「表示しない」で隠す方法以外で）

どなたかお教え下さい。
よろしくお願いします。

 >セルの塗りつぶし（色）をキーに並べ替えは可能でしょうか。
 これは多分出来ないと思うので、
 Interior.ColorIndex
 これで色の番号を抜き出してそれを元にソートされてはどうですか？
 また、
 >また塗りつぶされたセルが存在する列または行のみ
 >表示することはできますか？
 >（該当しない行を「表示しない」で隠す方法以外で）
 は、意味がよくわかりませんが、
 Interior.ColorIndex
 で出た色番号を元にオートフィルタなどされることでしょうか？？
 お役に立てなかったらごめんちゃいです。
（SoulMan）

 列方向には対応してませんが、行のみ抽出なら以下のサンプルをお試しください。
[[20050329091036]]『色の付きセルの中で、ある色のセルだけを表示』（きり）

 （川野鮎太郎）

SoulManさん、川野鮎太郎さん

レスありがとうございました。

 SoulManさんのInterior.ColorIndexを使う方法ですが
 これをどのように使ったらいいのかがよくわかりませんでした。
 VBAを使うんでしょうか。すみません、初心者で（汗）

 川野鮎太郎さん、サンプルありがとうございました。
 使用させていただきます。

（まろきち）

 おまたせ。
簡単なサンプルを作ってみました。
Option Explicit
Sub てすと()
Dim C As Range
For Each C In Selection
    C.Offset(, 1).Value = C.Interior.ColorIndex
Next
End Sub
http://ryusendo.no-ip.com/cgi-bin/upload/src/up0269.xls
どうでしょうか？
（SoulMan）

コメント返信：

[ 一覧(最新更新順) ]

[[20050408111510]] 『色をキーにソートか抽出』（まろきち） ページの最後に飛ぶ

[[20050408111510]]　『色をキーにソートか抽出』（まろきち）　ページの最後に飛ぶ