エクセルのソートの仕方（色編）

質問

こんばんは。
アルバイトの人にエクセルの表の入力を頼みました。複数の人に頼んだので、それぞれ自分が入力した所に色を塗ってもらったんですが・・・・（件数でバイト料を算出する為）

そこで、色塗りしたところだけソート（並べ替え）したいんですけれど、できるんでしょうか。できるとしたら、どうすればよいのですか。色別にもわけられるのかな～

助けてください！

回答No.3

imogasi · ベストアンサー

（１）担当者コードを振れば済む話ではないですか。
ある担当者分が固まっているなら、１つコードを入力して
複写すればすむのでは。
（２）色分けにせざるを得ない理由はあるのでしょうか。
（３）関数で色（別）を捉えるのは無理でしょう。
（４）そこでどうしてもというのなら、ＶＢＡを使って下記を　　やればどうでしょう。
（５）Ｓｈｅｅｔ１のシートで、ＡＬＴキーを左手で押したまま、Ｆ１１キーついでＩのキー次いでＭのキーを少し間をおいて押します。ＶＢＥのＭｏｄｕｌｅ１の画面になります。
（６）そこで下記をコピーし貼りつけてください。
Sub test01()
For i = 1 To 20
Cells(i, 2) = Cells(i, 1).Interior.ColorIndex
Next i
End Sub
（７）この２０はデータのある最下行行数で置きかえる。
色を付けた列について、Ａ列を１、Ｂ列を２、Ｃ列を３、
・・・と数えてその色を付けた列の列数番号をCells(i, 1)の１のところへ置き換えてください。Cells(i, 2)の２も空いている列に付いて列数番号を数え、置き換えてください。
（８）後は通常の並べ替えをしてください。第１ソートキー
は色コード（＝担当者コードの代わり）にします。
欠点は色コード順になり、望みの担当者順にはならないこと
でしょう。
（２０行のデータでテスト済み）

お礼

私が勘違いして、色別でソートできると思ってたんです（涙）で、できなそうだなって分かったのは、頼んだ後からだったんです（号泣）

上記の方法、難しそうですけどやってみようかと思います。
エクセルもっと勉強しなきゃな～

どうも有難うございました。

回答No.4

oogoo

ＶＢＡを使わないやりかたを御紹介します。
私は今これで何とかやってます。
大まかな方法としては、

１．色のついた列のとなりに、作業用に一列挿入する。印刷他の場合には
「非表示」にして折りたたんでておけばOK。
２．挿入した列に以下のＵＲＬにしたがったやり方で、となりのセルの
「色番号」を表示させる。
３．色番号の「数値」を条件に並べ替えその他を行う。

となります。
参考ＵＲＬ：「エクセル技道場」
この中の「22.名前定義で4.0マクロ関数を使う」の項を
ご覧ください。

蛇足ですが、EXCELで何かわからないことがあったら
上記「エクセル技道場」のほかに、
「Excelファンクラブ（http://www.fuji.ne.jp/~excelyou/index.htm)」
もおすすめです。

参考URL：

http://www2.odn.ne.jp/excel/waza/name.html

お礼

ご丁寧にいろいろ有難うございました。

今回はデータ自体が少なくて、なんとか手で数えられましたけど、これが多かったらアウトでしたね。

効率的に仕事をする為、アドバイスを参考にさせて頂きます。

どうも有難うございました。

回答No.2

estima01

それでしたら単純にできますよ。
ソートしたい必要な部分だけ範囲指定して並べ替えしていただくだけで
ＯＫです。
一度お試しください

お礼

こんばんは～

上記の方法じゃ、できなかったんですよ。
結局、手作業でカウントしちゃいました。

どうもありがとうございました。

回答No.1

MovingWalk

セルの色を取得する関数もないようですので、下記のようにされるしかないと思います。
簡単に言えば、列を追加して、そこに色に応じたコードをつけてソートするということです。

（GoogleのキャッシュなのでURLは掲載できませんでした）
★Ｑ：条件付き書式で色を付けたセルのカウントの仕方
★Ａ：条件付書式FormatConditionsで、条件の可否の状態を取得できるようなプロパティもなく、
条件付書式で色が付いたセルの色を取得する方法もないため、
条件付き書式に設定した条件と同じ判別になるコードを記述して、
セルをカウントするのが「ベター」なようです。

お礼

お礼が遅くなってすみません。

数もそれほど多くなかったので、手作業で数えてしまいました。
大変だった～

今後は、気をつけてアルバイトを頼みます。

どうも有難うございました。