Note: The other languages of the website are Google-translated. Back to English

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 日。

関連記事:


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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (3)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
エクセレンテポスト、私はアジュドウ。 パラベン
このコメントは、サイトのモデレーターによって最小化されました
ゲーデダグ、

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
すべてのコードは、関数の機能を無効にするために、すべてのコードを無効にします。

フープ・ヴァン・ジュリー・テ・ホーレン!
このコメントは、サイトのモデレーターによって最小化されました
申し訳ありませんが、サイトは自動的に翻訳されます...

条件付き書式を使用して色付きのセルでこれが機能しないのはなぜだろうか。
このページのすべてのプログラムは「空白」の結果を出すため、セルが色付けされていても色はまったくありません。
条件付き書式の代わりに自分でセルに色を付けると、正しい結果が返されますが、条件付き書式も必要です!

返事を待っております!
ここにはまだコメントが投稿されていません

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護