[[20180801154630]] 『入力した数値でセルを塗りつぶしたい』(てりー) ページの最後に飛ぶ

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

 

『入力した数値でセルを塗りつぶしたい』(てりー)

色の数値としてRGBの順で
1行目にA列に255、B列に255、C列に0、
2行目に同様に0,255,255
3行目以降もRGBの順で同様に記載されていたとします。
それらの数値を参考にD列のセルを塗りつぶすということを
関数なり、VBAを用いてしたいのですが、
どのようにすればよいかわかりません。

ご教授のほどよろしくお願いいたします。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 vba
 Sub test()
     Dim r As Range
     For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
         r(, 4).Interior.Color = RGB(r.Value, r(, 2).Value, r(, 3).Value)
     Next
 End Sub
(seiya) 2018/08/01(水) 16:20

データの変更された行のみをリアルタイムに塗る例
(Sheetオブジェクトに記載して下さい)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim r As Long
    r = Target.Row
    Me.Cells(r, 4).Interior.Color = RGB(Me.Cells(r, 1), Me.Cells(r, 2), Me.Cells(r, 3))
End Sub
(名無し) 2018/08/01(水) 16:23

ありがとうございます。
解決しました。
(てりー) 2018/08/01(水) 16:53

コメント返信:

[ 一覧(最新更新順) ]


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