【まちゼミ】VBA見本(くり返し応用:カラーチャート)

パソコン操作

カラーチャートを作成します。

Sub iro()
Dim iR As Long
Dim iG As Long
Dim iB As Long
Dim i As Long
Dim j As Long

j = 1

For iR = 0 To 256 Step 128
i = 1
For iG = 0 To 256 Step 128
For iB = 0 To 256 Step 128
Cells(i + 1, j).Interior.Color = RGB(iR, iG, iB)
Cells(i + 1, j + 1) = “RGB(” & iR & “,” & iG & “, ” & iB & “)”
i = i + 1
Next iB
Next iG
j = j + 3
Next iR
End Sub

こんな感じになります。

コメント

タイトルとURLをコピーしました