[[20170518123716]]　『J7セルを塗りつぶしたら、同じ行のB7～M7まで同じ』（QPちゃん）　ページの最後に飛ぶ

『J7セルを塗りつぶしたら、同じ行のB7～M7まで同じ色で塗りつぶしたい』（QPちゃん）

 お世話になります。

 例えば、J7に黄色く塗りつぶした場合、B7～M7まで同じ色で塗りつぶす方法はありますか？
もしくは、J7に黄色という値をいれた場合、B7～M7まで黄色に塗りつぶす方法はありますか？

使用したい色は計5色です。

 A　B　　　　　C　　　　　　D　　　　E　　　　F　　　・・・
 　　No,　　　出荷予定　指示番号　代理店ｺｰﾄﾞ　代理店名　・・・
    　1　　　　5/13　　　　ABC　　　12345　　　あいう
    　2　　　　5/13　　　　ABC　　　12345　　　かきく
    　3　　　　5/13　　　　ABC　　　12345　　　さしす
    　4　　　　5/13　　　　ABC　　　12345　　　たちつ
    　5　　　　5/13　　　　ABC　　　12345　　　なにぬ
    　6　　　　5/13　　　　ABC　　　12345　　　あいう
    　7　　　　5/13　　　　ABC　　　12345　　　かきく
   　 8　　　　5/13　　　　ABC　　　12345　　　さしす
    　9　　　　5/13　　　　ABC　　　12345　　　あいう

例えば代理店名があいうの場合は緑色、かきくの場合は橙色というような規則はありません。。

宜しくおねがいします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

Private Sub Worksheet_Change(ByVal Target As Range)
'Ｊ列に「黄色」と入力

    If Target.Column <> 10 Then Exit Sub
    If Target.Value <> "黄色" Then Exit Sub
    Range("B" & Target.Row & ":M" & Target.Row).Interior.Color = vbYellow
End Sub
（mm） 2017/05/18(木) 15:18

条件付き書式で、６パターン（５色と色なし）のルールを設定するのが簡単そうです。

（マナ） 2017/05/18(木) 20:08

↑ごめんなさい。条件付き書式だから、色なしのルールは不要でした。

（マナ） 2017/05/18(木) 20:20

（mm）さま、（マナ）さま、

こんにちは。
ナイス提案ありがとうございます。

今回は、マナさんの案で業務効率UPさせていただきます。

感謝です。
（Q） 2017/05/22(月) 12:42

コメント返信：

[ 一覧(最新更新順) ]

[[20170518123716]] 『J7セルを塗りつぶしたら、同じ行のB7～M7まで同じ』（QPちゃん） ページの最後に飛ぶ

[[20170518123716]]　『J7セルを塗りつぶしたら、同じ行のB7～M7まで同じ』（QPちゃん）　ページの最後に飛ぶ