- 締切済み
セルの色で並び替えをするには
chibita_papaの回答
- chibita_papa
- ベストアンサー率60% (127/209)
なぜ、CreateObjectとしてるかよく分かりませんが たぶん、別のEXCELを立ち上げる必要が有るのだろうと言うことにして、 Const xlAscending = 1 Const xlYes = 1 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("hogehoge.xls") Set objWorksheet = objWorkbook.Worksheets("Sheet1") i = 2 Do Until objExcel.Cells(i, 1) = "" intColor = objExcel.Cells(i, 2).Interior.ColorIndex Select Case intColor Case 3 intSortOrder = 4 Case 4 intSortOrder = 1 Case 6 intSortOrder = 2 Case 41 intSortOrder = 3 End Select objExcel.Cells(i, 3) = intSortOrder i = i + 1 Loop objWorksheet.Range("A1:C" & i - 1).Sort Key1:=objWorksheet.Range("C2"), Order1:=xlAscending, Header:=xlGuess
関連するQ&A
- エクセルの並び替え （セルの色を除いて）
エクセルの並び替えにつきまして質問させて頂きます。 入力の際見やすいように一行おきに薄くグレイにしています。 この表で並び替えをしますと、行の色も並べ替えられて白の行が続いたり、薄いグレイの行が続いたりします。 この様な場合、「セルの書式」のセルの色だけ移動せずに並べ替えをすることは可能でしょうか？ 可能でしたら、手順を是非ご教授下さい。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel2003でセルの色で並び替え
Excel2007ではセルの色で並び替えが出来るようになったようですが、2003では出来ないでしょうか？データを区別するのに、セルに色付け（一色）してたのですが、色付けしたものと処理してないもの、あるいは処理日付の新しいもの等で並び替えは出来ないでしょうか？ 宜しくご教示下さい。
- ベストアンサー
- オフィス系ソフト
- エクセル セル内並び替え その後 セル同士並び替え
お世話になります。 エクセルの並び替えについてです。 セル内で並び替えをして、さらにセル同士で並び替えをすることは 可能でしょうか？ （添付画像を参照してください） ※行数が多いので、手動で並び替えをしないことを前提とさせてください。 基本的な質問になるかと思いますが、 どうぞよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- Excel2000 関数でセルに色をつけたい。
Excel2000を利用しています。 セルの計算結果によってそのセルに色をつけたい（塗りつぶし）と思っています。 関数のみでセルに色をつけることは可能でしょうか？ ユーザー関数（マクロやVBAを利用する？）を使わないと無理なのでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excel2016でオレンジ色のセルだけロック
Excel2016のVBAを教えてください。 例えば、A2がオレンジ色の場合はG2まで必ずオレンジで塗りつぶされています。 この時オレンジ色のセルだけロックするということをVBAで行いたい。 この場合のVBAを教えてください。
- ベストアンサー
- Excel（エクセル）
- 並び替えがしたいのですが。。。
Excel2000を使用しています。 文字列として入力している地番を、数値の昇順に並び替えをしたいのです。どうしたらいいのでしょうか？ 地番を文字列としているのは、一つのセルに地番を"-"で区切って入力しています。地番の入力例としては、1-1,10-1,20-1です。そのセルを数値として入力出来ればいいのですが、"1-1"を例にすると1月1日になってしまうので、文字列として入力しています。文字列のセルを昇順に並び替えをすると、1→10→100→2→20…となってしまいます。数値の昇順(1→2→10→20→100)にするには、どうしたらいいでしょうか？ 関数を使って"-"の前と後で抜き取り、並び替えすることも考えたのですが、優先キーが３つまでなので困ってます。大字・小字・地番で並び替えしたいのです。 出来れば、件数が3000～5000件程ありますので、そのまま文字列セルの状態で昇順になると嬉しいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel 塗りつぶしの色のセルを並び替え
青色セルと黄色セルが一列ランダムにあります。 青色セルを上位に黄色セルを下位になど色によって並び替えをすることなど出来るのでしょうか？？ おわかりの方教えてくださーい！
- ベストアンサー
- オフィス系ソフト
- Excel2010 セルのフォントの色
Excel2010で、任意のセルのフォントの色が「赤」だったら、その列の空のセルに「赤」等のフラグを立てて、条件付きで列に色を付けたい。 ＶＢＡ等マクロは使えません。 なんとか関数で対応したいと思っています。 ご教示方、よろしくおねがいします。
- ベストアンサー
- Excel（エクセル）
- 数千の単語の並び替えについて。
数千の単語(漢字・ひらがな・カタカナ・ローマ字を含む)がＥＸＣＥＬの各セルに一列に並んでいます。 これを、見つけやすいように、あいうえお順に並び替えたいのですが、ＥＸＣＥＬの機能「並び替え」を使って並び替えようとすると、かなと漢字、音読み訓読みをパソコンが異なって識別することから、期待通りの配列になりません。 ＥＸＣＥＬの機能を利用したり、マクロやVBAのプログラミングで、並び替えが簡単にできないものでしょうか。 今のところは、隣の列にひらがなを手作業で入力して、並び替えています。ものすごい作業量です。 何とかならないものでしょうか。 いい知恵がありましたら教えてください、 VBAの場合は、マクロも教えていただければ助かります。
- ベストアンサー
- Visual Basic
- （EXCEL）CELLの条件付き書式で色をつけたセルをカウントする。
（EXCEL）CELLの条件付き書式で色をつけたセルをカウントしたいのですが、適切なVBAはありますか？私はVBAは初心者中の初心者です。よろしくお願いします。
- 締切済み
- オフィス系ソフト