Excel でセルに背景色(塗りつぶし色)をランダムに追加するには、どうすればよいですか?
大規模なデータセットを扱う際や、Excel で情報を効果的に提示したいとき、セルをランダムに色付けして視覚的なインパクトを与えたくなることがあります。たとえば、分析のためにグループを視覚的に分離したり、ランダム化されたクイズを作成したり、レビューおよび議論の際にスプレッドシートをより魅力的に見せたりする必要があるかもしれません。しかし、セルを1 つずつ手作業で色付けするのは時間もかかり、ミスも発生しやすくなります。 幸いなことに、Excel には特定の範囲内のセルに背景色(塗りつぶし色)を素早くかつランダムに割り当てる信頼性の高い方法が用意されています。本記事では、VBA ソリューションを活用する方法と、専用アドイン「Kutools for Excel」を利用する方法の2 つをご紹介します。
VBA でセルに背景/塗りつぶし色をランダムに追加
VBA(Visual Basic for Applications)を使えば、選択した範囲内の各セルに自動でランダムな塗りつぶし色を割り当てられます。各セルに異なる色を設定したいときや、さまざまなデータセットに対してこの操作を頻繁に繰り返す必要があるときに特に便利です。
1。Microsoft Visual Basic for Applications エディターを開くには、Alt+F11 を押してください。
2。VBA エディターで、挿入 > 標準モジュールをクリックして、新しいモジュールを作成します。
3。 次の 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 4。マクロを実行するには、F5キーを押すか、実行ボタンをクリックしてください。
5。プロンプトが表示されたら、ランダムな色で塗りつぶしたいセルの範囲を選択して、OKをクリックしてください。
6。 選択したセルに、ランダムに生成された色が適用されます。別の範囲に再度適用するには、マクロを再実行して新しい範囲を選択してください。


- マクロのセキュリティ:セキュリティ警告が表示されたら、コードを実行する前にこのブックのマクロを有効にしてください。
- ランダム性:色は完全にランダムに割り当てられるため、特に範囲が広い場合には重複が発生することがあります。
- パフォーマンス:選択範囲が非常に大きい場合、処理に少し時間がかかることがあります。
- コード内の名前のタイポ:変数
xBuleは記載どおりのスペルです。このマクロ内では一貫して正しく機能しますので、すべての箇所で名前を変更する場合にのみ修正してください。 - トラブルシューティング:何も起こらない場合は、ブックが読み取り専用になっておらず、コードが標準モジュール(シートモジュールや ThisWorkbook モジュールではない)に正しく貼り付けられていることをご確認ください。
Kutools for Excel でセルに背景/塗りつぶし色をランダムに追加
実際の業務では、範囲全体ではなく、一部のセルだけをランダムに選んで、お好みの背景色を適用したい場面がよくあります。そんなとき、ランダムに並び替え機能が搭載されたKutools for Excel なら、VBA や数式を使わず、誰でも簡単にこの作業が可能です。特に、リストやデータセットの中から特定のセルだけを目立たせたいときに最適です。例えば、抽選で当選者をハイライトしたり、グループ分けを行ったり、テスト用のサンプルデータを抽出したりする際に大活躍します!
Kutools for Excel-Excel 向けの必須ツールを300 種類以上搭載!作業がより迅速に、簡単に、効率的になります。今すぐダウンロード!
1。 背景色をランダムに適用したいセルの範囲をすべて選択します。最良の結果を得るには、結合セルやその他の書式設定がデータに含まれていないことを確認し、選択範囲に影響が出ないようにしてください。
2。リボンのKutoolsタブに移動し、範囲を選択してから、ランダムに並び替えをクリックします。
![Kutoolsの[範囲をランダムに並べ替え]をクリック](http://cdn.extendoffice.com/images/stories/doc-excel/random-background/doc-random-background-3.png)
3。ダイアログボックスで選択タブに切り替え、選択するセルの数:ボックスにランダムに選択したいセルの個数を入力し、セルにチェックを入れてから、OKをクリックして確定します。
![[範囲をランダムに並べ替え]ダイアログボックスでオプションを設定](http://cdn.extendoffice.com/images/stories/doc-excel/random-background/doc-random-background-4.png)
4。 指定した数のセルがハイライト(選択)されます。ホームタブに移動し、塗りつぶし色の横にある矢印をクリックして色を選択すると、選択したセルにすぐに色が適用されます。

Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手
この方法は、ランダムに色付けするセルの数を細かくコントロールしたい場合や、塗りつぶし色を自分で選びたい場合に最適です。Kutools のアプローチではコードや数式を一切使う必要がないため、Excel の高度な機能にあまり慣れていない方でも簡単にご利用いただけます。ただし、一度に適用できるのは1 色のみという制限があります。すべてのセルを完全にランダムに色付けする必要がある場合は、前述の VBA による方法の方が適しているかもしれません。ランダムに選択したセルを再選択したり変更したりする必要がある場合は、「ランダムに並び替え」機能を使って再度選択処理を行い、必要に応じて新しい色を適用してください。
- 選択範囲の整合性:結合セルは避けてください。これらはランダム選択を妨げる可能性があります。
- 元に戻し対応:選択や色が意図したものと異なる場合は、Ctrl+Zで簡単に元に戻せます。
- 1 回の実行につき1 色:このツールは、1 回の操作で選択した色を1 つだけ適用します。別の色を使いたい場合は、新しい範囲を選んで再度実行してください。
- パフォーマンスのヒント:非常に大きな範囲を処理する際は、時間がかかることがあります。必要に応じて選択範囲を絞ってください。
Kutools for Excel でセルに背景/塗りつぶし色をランダムに追加(デモ)
関連記事:
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得