[[20120518131147]] 『VBAでセルの自動色付け、順位付けなどを行いたい』(VBA未経験) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBAでセルの自動色付け、順位付けなどを行いたい』(VBA未経験)
 Excel2003,Windows7

 マクロの記録を使用した経験はありますが、
 VBAを作成したことはないくらいのレベルです。
 自作予定でしたが、作業完了期限まで時間がなく、
 可能であればVBAコードをご回答頂ければ幸いです。

 <作業前のデータ>
         A       B        C        D        E         F
 1   選択セル
 2
 3
 4
 5
 6   文字      文字     文字     文字      文字     文字
 7  数字                                  数字     数字or"+"or"-"
 8  数字                                  数字     数字or"+"or"-"
 :    :                                     :        :
 n   数字                                  数字     数字or"+"or"-"
 n+1 空欄

 上記の様な構成のデータが1シート上の様々な場所にあるため、
 上記データA1セル相当を選択した状態でマクロを実行することを考えています。
 (行列番号は説明上付与しています)

 <やりたいこと>
 F列の7〜nに数字があれば、その行(A〜F)のセルをオレンジ色に塗る

 A B C D E F
           3 ←A〜Fのセルをオレンジに塗る
           + ←なにもしない
           - ←なにもしない
           + ←なにもしない

 F列の7〜nに数字以外("+"or"-")があるE列の7〜nが全て同じ数字ならばなにもしない
 ⇒終了

 A B C D E F
         9 3 ←上記でA〜Fのセルがオレンジ
         3 + ←なにもしない
         3 - ←なにもしない
         3 + ←なにもしない

 F列の7〜nに数字以外("+"or"-")があるE列の7〜nが全て同じ数字でないならば
 F列の7〜nに数字以外("+"or"-")があるE列の7〜nの中で数字が大きい順に第3位まで
 その行(A〜F)のセルをローズ色に塗る。
 更に、F列の7〜nに数字以外("+"or"-")がある行のみ、G列にその順位を左寄せで入れる

 A B C D E F G
         9 3   ←上記でA〜Fのセルがオレンジ
         3 + 3 ←上位3位以内なのでA〜Fセルをローズ色に塗り、順位を左寄せで入れる
         8 - 1 ←上位3位以内なのでA〜Fセルをローズ色に塗り、順位を左寄せで入れる
         7 + 2 ←上位3位以内なのでA〜Fセルをローズ色に塗り、順位を左寄せで入れる
         3 - 3 ←上位3位以内なのでA〜Fセルをローズ色に塗り、順位を左寄せで入れる
         2 - 5 ←上位3位以内ではないので、順位だけ左寄せで入れる

 以上ですが、分かりづらかったら追記致します。

 レスがつかないですね。。。
 まだ見て居られるでしょうか?

 作成するVBAの内容には関係しませんが
 ・どうしてVBAを作らないといけないのか
 ・ご自身でどうするつもりだったのか
 など、書いてみられてはどうでしょう?

 後は「私が一肌脱ぎましょう」と言う人が
 現れるのを待つだけの様に思えます。

 そもそも
 >作業完了期限
 の「作業」と言うのは何を表しているのでしょう?
 VBAコードを作成する と言う事でしょうか?
 その様に色分け&順位をつける と言う事でしょうか?

 (HANA)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.