【エクセルVBA】セルの色をランダムに大量変更！意外と勉強になる。

こんにちは、最近息子が色を覚え始めたヒガシです。

そんな息子にあるマクロを作って見せてあげたところ、テンションが爆上がり。

とても楽しい時間を過ごすことができました。

「この喜びを世のお父さんとも共有したい。」

こんな思いから、我が子のテンションを爆上げさせた、【セルの色をランダムに大量変更するマクロ】をご紹介しようと思います。

（そうです。通称ゴミマクロです。）

最終的に作り上げるものは業務上なんの役にも立たないものですが、そこに用いられているスキルは日々の業務に役立つものも含まれているはずです。

ぜひ最後までご覧ください。

それでは早速やっていきます！

紹介するマクロの概要説明
VBAを使用可能にしておく
色付けVBAコードの記述
実行結果の確認
おわりに

紹介するマクロの概要説明

まずはじめに今回の記事で紹介する内容を簡単にご説明しておきます。

今回は以下の画像のようにある範囲内のセルにランダムに色をつけていくマクロになります。

子供心はわかりませんが、なんとなくテンション上がりそうですよね。

ここからは、こいつの作り方を順をおって解説していきます。

VBAを使用可能にしておく

エクセルでVBAを使ったことがないひとは、まずはVBAを使える環境を整えておきましょう。

以下の記事に始め方を掲載していますので、ぜひご覧ください。

【初心者用】エクセルマクロ（VBA)の始め方を詳細解説 – ヒガサラblog

色付けVBAコードの記述

VBAを使用できる環境構築がととのった方は以下のコードをコピペしてはりつけましょう。

※今回は縦１０行、横１５列の範囲のセルの色を変えてみます。

◆セルの色をランダムに大量変更するコード

Sub random_cell_color()
    Dim i As Integer, j As Integer
    Dim R_value As Integer, G_value As Integer, B_value As Integer
    For i = 1 To 10
        For j = 1 To 15
            R_value = WorksheetFunction.RandBetween(0, 255)
            G_value = WorksheetFunction.RandBetween(0, 255)
            B_value = WorksheetFunction.RandBetween(0, 255)
            Cells(i, j).Interior.Color = RGB(R_value, G_value, B_value)
        Next
    Next
End Sub