
No.2ベストアンサー
- 回答日時:
こんばんは!
一案です。
苦肉の策ですが、範囲指定したセル上にオートシェイプの四角形を挿入する方法はどうでしょうか?
VBAになってしまいますが、一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
色付けしたいセルを範囲指定(飛び飛びでも構いません)し、マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub 色付け() 'この行から//
Dim c As Range, mySp As Shape
If Selection.Count <= 1000 Then
For Each c In Selection
Set mySp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, c.Left, c.Top, c.Width, c.Height)
With mySp
.Fill.ForeColor.RGB = RGB(255, 255, 0) '←黄色
.Line.Visible = False
End With
Next c
End If
End Sub 'この行まで//
※ 色は「黄色」にしています。
色を変更したい場合は
>RGB(255, 255, 0)
のRGB値で変更します。
尚、挿入した色付き四角形を削除したい場合も出てくると思います。
↓のコードを追加し、黄色の塗りつぶしを削除したい場合は
「削除」のマクロを実行してみてください。
Sub 削除()
Dim mySp As Shape
For Each mySp In ActiveSheet.Shapes
mySp.Delete
Next mySp
End Sub
※ 極端に選択範囲が広い場合(列全体とか行全体等々)の場合は
「応答なし」になる可能性がありますので、
範囲指定セル数は1000セル以内としてみました。
それより多く範囲指定した場合は
何も変化しません。m(_ _)m
回答ありがとうございます。
すごく丁寧なマクロ式までありがとうございます。
参考にさせて頂いて、挑戦してみます。ありがとうございました。
No.3
- 回答日時:
こんばんは
VBAまでご希望かわかりませんが、方針だけ
1.セルの色付けがされているかどうか判定するオリジナル関数をVBAで作成する。
2.作業セルを設けて対象のセルが色付けされたかどうかを作業セル上に表示させる。
3.条件付き書式の最優先項目に作業セルの状態を条件として入れて、書式設定しない。
1.2難しい場合は、作業セルを適当に設けて、色付けしたい場合に作業セルに
適当な値を入れて書式設定されないようにする。←これが一番簡単かな。
VBAのコードは対象が多くなるとなにか入力する度にマクロが動いて重くなったので、
あまり実用的ではなかったですね。
コードの組み方次第かもしれませんが。
回答ありがとうございます。
やはりVBAを使用しないと無理なのですね。
参考にさせて頂いて、挑戦してみます。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
電子書籍プレゼントキャンペーン!
最大2万円超分当たる!マンガや小説が読める電子書籍サービス『Renta!』で利用できるギフトコードプレゼント実施中!
-
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
条件付き書式(色変更)は、予め色が入ってるセルを除外(飛ばす)するルール追加はありますか?
Excel(エクセル)
-
セルの塗りつぶしに透明度を設定する方法
Excel(エクセル)
-
4
セルを結合したA4とA5の条件付き書式を結合しない行にも適用する方法を教えて下さい。
Excel(エクセル)
-
5
結合したセルを含む列内で、条件付き書式として塗りつぶしたい
Excel(エクセル)
-
6
Excel 書式を関数で判断。
Excel(エクセル)
-
7
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
8
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
9
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
10
excel:条件付き書式の適用範囲が変わる
Excel(エクセル)
-
11
excel 参照しているセルに色がついていたら、返すセルにも色もつける
その他(コンピューター・テクノロジー)
-
12
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
13
【Excel関数】UNIQUE関数で0"を返さない方法?"
Excel(エクセル)
-
14
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
15
条件付き書式で、結果が1行ずれる
Excel(エクセル)
-
16
エクセルのセルをコピーした際にルールはコピーしない
その他(Microsoft Office)
-
17
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
20
Excel2007で、条件付き書式の一部範囲の解除方法がわかりません。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルで特定の数字等を表示...
-
5
エクセルの枠の中の文字が青文...
-
6
Excelについて あるセルに文字...
-
7
条件付書式で「=#N/A」に色を付...
-
8
セル結合させてるときの 条件...
-
9
エクセルで一定期間が経過した...
-
10
エクセル内で複数の文字(50個ぐ...
-
11
Excel にて条件付き書式の色に...
-
12
【エクセル】シフトで○が6個以...
-
13
エクセルで日付を入力したらカ...
-
14
Excelの条件付き書式にて空白セ...
-
15
エクセルでカーソルのある行を...
-
16
【Excel】条件付き書式で 0では...
-
17
文字を二重線で消す
-
18
エクセルである日付以前のデー...
-
19
エクセルで文字訂正の横線だけ...
-
20
アクティブセルのみ色をつけたい
おすすめ情報
公式facebook
公式twitter