Excel VBA 36 Excelで選択色の補色を隣のセルに表示

Excelで選択色の補色を隣のセルに表示させます。

Sub ShowComplementaryColor()

Dim selectedCell As Range

Dim baseColor As Long

Dim r As Long, g As Long, b As Long

Dim compColor As Long

Dim ws As Worksheet

' 現在のシートを取得

Set ws = ActiveSheet

' 選択範囲の最初のセルを取得

Set selectedCell = Selection.Cells(1, 1)

' 現在の塗り色を取得

baseColor = selectedCell.Interior.color

' RGB値を分解

r = baseColor Mod 256

g = (baseColor ¥ 256) Mod 256

b = (baseColor ¥ 256 ¥ 256) Mod 256

' 補色を計算

compColor = RGB(255 - r, 255 - g, 255 - b)

' 選択されたセルの隣に補色を反映（右隣のセルに表示）

selectedCell.Offset(0, 1).Interior.color = compColor

End Sub

任意の色で塗り潰したセルを選択し［ShowComplementaryColor］を実行すると・・・

選択したセルの右隣のセルが補色で塗り潰されます。

いくらでも続けて処理可能です。