Excelでセルの背景色指数を決定および識別する方法は？
以下のスクリーンショットに示すように、複数のカラフルなセルを含むシートを受け取った場合、場合によっては、これらのカラーセルの背景色インデックスを識別したいことがあります。 セルのカラーインデックスを決定できる組み込み機能はありませんが、この記事では、Excelでこのジョブをすばやく解決するためのVBAコードをいくつか紹介します。
VBAでセルの色を特定する
次の手順に従って、VBAによってセルの色を決定します。
1。 押す Altキー+ F11 を有効にするためのキー アプリケーション用 Microsoft Visual Basic 窓。
2。 クリック インセット > モジュール 新しいを開くには モジュール 下のVBAコードを空白のスクリプトに貼り付けます。 スクリーンショットを参照してください：
VBA：セルの従来のXNUMX進コードを取得する
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3.コードを保存して、VBAウィンドウを閉じます。 色付きのセルの横にある空白のセルを選択し、この数式を入力して、 = getRGB1（A16）、次に自動入力ハンドルを使用するセルにドラッグします。 スクリーンショットを参照してください：
 |
 |
ヒント： セルのカラーインデックスを識別できる他のコードがいくつかあります。
1. VBA：各コードのXNUMX進値
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function結果：
2. VBA：XNUMX進値
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End Function結果：
Excelの範囲で重複または一意の値をすばやく選択する |
| Excelシートで、重複する行が含まれる範囲がある場合は、それらを選択するか、未処理にする必要がありますが、このジョブをすばやく解決するにはどうすればよいですか？ Kutools for Excel、あなたは Duplicate＆を選択します ユニークなセル 範囲内の重複する値または一意の値をすばやく選択したり、重複した一意の値の背景色とフォントの色を塗りつぶしたりするユーティリティ。 クリックして 30 日間無料トライアル！ |
 |
| Kutools for Excel: 300 以上の便利な Excel アドインがあり、制限なしで無料で試すことができます 30 日。 |
関連記事：
最高のオフィス生産性ツール
Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます
- 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
- スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
- セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
- [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
- 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
- テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
- スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
- ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
- 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
