Excelでセルにランダムに背景色/塗りつぶし色を追加するにはどうすればよいですか？

次のVBAマクロコードは、特定の範囲内の各セルにランダムな色で背景色または塗りつぶし色を追加するのに役立ちます。以下の手順で行うことができます：

ステップ1: Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

ステップ2: [挿入] > [モジュール]をクリックし、開いたモジュールウィンドウに次のVBAコードを貼り付けます。

VBA: ランダムな色でセルに背景色または塗りつぶし色を追加する

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

ステップ3: F5 キーを押すか、[実行]ボタンをクリックして、このVBAマクロを実行します。

ステップ4: ここでダイアログボックスが表示されますので、ランダムな色で背景色を追加したい範囲を選択し、[OK]ボタンをクリックします。

これで、指定された範囲内のすべてのセルが異なる色でランダムに塗りつぶされます。以下はスクリーンショットです：

場合によっては、指定された範囲内でランダムに選択されたセルに背景色を追加する必要があるかもしれません。これを行うには、Kutools for Excelの「ランダムに並び替え」機能を試してみたり、これらのランダムなセルに背景色を追加することができます。

ステップ1: セルをランダムに見つけ、背景色を追加したい範囲を選択します。

ステップ2: [Kutools] > [範囲] > [ランダムに並び替え]をクリックします。

ステップ3: 開いた「ランダムに並び替え」ダイアログボックスで、[選択]タブに移動し、「選択するセル数」ボックスに数字を入力し、「ランダムなセルを選択」オプションをチェックして、[ OK]ボタンをクリックします。以下はスクリーンショットです：

ステップ4: これで、指定された範囲内で指定された数のセルがランダムに選択されます。次に、[ホーム]タブにある[塗りつぶし色]ボタンの横にある矢印をクリックし、ドロップダウンリストから背景色を選択します。

これで、ランダムに選択されたセルに背景色が追加されました。以下はスクリーンショットです：

列または範囲内のセルをランダムに並べ替える

ランダムにセルを選択する

ランダムな文字列を生成する