[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力した数値でセルを塗りつぶしたい』(てりー)
色の数値として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
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.