メインコンテンツへスキップ

Excelでセルの背景色指数を決定および識別する方法は?

以下のスクリーンショットに示すように、複数のカラフルなセルを含むシートを受け取った場合、場合によっては、これらのカラーセルの背景色インデックスを識別したいことがあります。 セルのカラーインデックスを決定できる組み込み機能はありませんが、この記事では、Excelでこのジョブをすばやく解決するためのVBAコードをいくつか紹介します。
docはカラーインデックスを決定します1

VBAでセルの色を特定する


VBAでセルの色を特定する

次の手順に従って、VBAによってセルの色を決定します。

1。 押す Altキー+ F11 を有効にするためのキー アプリケーション用 Microsoft Visual Basic 窓。
docはカラーインデックスを決定します2

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
docはカラーインデックスを決定します3
docはカラーインデックスを決定します4

3.コードを保存して、VBAウィンドウを閉じます。 色付きのセルの横にある空白のセルを選択し、この数式を入力して、 = getRGB1(A16)、次に自動入力ハンドルを使用するセルにドラッグします。 スクリーンショットを参照してください:

docはカラーインデックスを決定します5
docはカラーインデックスを決定します6

ヒント: セルのカラーインデックスを識別できる他のコードがいくつかあります。

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

結果:
docはカラーインデックスを決定します7

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

結果:
docはカラーインデックスを決定します8


Excelの範囲で重複または一意の値をすばやく選択する

Excelシートで、重複する行が含まれる範囲がある場合は、それらを選択するか、未処理にする必要がありますが、このジョブをすばやく解決するにはどうすればよいですか? Kutools for Excel、あなたは Duplicate&を選択します ユニークなセル 範囲内の重複する値または一意の値をすばやく選択したり、重複した一意の値の背景色とフォントの色を塗りつぶしたりするユーティリティ。  30日間の無料トライアルをクリックしてください!
docハイライトの列間での重複6
 
Kutools for Excel:300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。

関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Alle codes die ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
This comment was minimized by the moderator on the site
I'm sorry, the site translates by itself...

I'm wondering why this doesnt work with colored cells using conditional formatting.
All programs on this page give a "blank" result, so no color at all even though the cell is colored.
If I color the cell myself instead of conditional formatting I get the right result back but i need the conditional formatting too!

Hope to hear from you!
This comment was minimized by the moderator on the site
Excelente Post, me ajudou. Parabéns
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations