Vanitaは、特定の色を含むセルを選択する方法があるかどうか尋ねました。 Excel 2003を使用している場合、タスクの実行は簡単です。次の手順に従ってください。

。 Ctrl + Fを押して、[検索と置換]ダイアログボックスの[検索]タブを表示します。 （図1を参照）

。 [検索する文字列]ボックスに何もないことを確認します。

。 [フォーマット]をクリックします。 （[フォーマット]ボタンを表示するには、[オプション]をクリックする必要がある場合があります。）Excelは、[フォーマットの検索]ダイアログボックスを表示します。

。 [パターン]タブが表示されていることを確認します。 （図2を参照）

。利用可能な色から、見つけたい色を選択します。

。 [OK]をクリックして、[形式の検索]ダイアログボックスを閉じます。

。 [すべて検索]をクリックします。 [検索と置換]ダイアログボックスが展開され、手順5で指定した色でフォーマットされたすべてのセルのアドレスが表示されます（図3を参照）

。ダイアログボックスの下部にあるセルアドレスの1つをクリックします。 Excelは、実際のワークシート内のセルを選択します。

。 Ctrl + Aを押します。ダイアログボックス内のすべてのアドレスが選択されています。

。 [閉じる]をクリックします。目的の色のすべてのセルが選択されます。

Excel 97、Excel 2000、またはExcel 2002を使用している場合、特定の色のセルを選択する唯一の方法は、マクロを使用することです。ここに示されているマクロについて考えてみます。

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

マクロを使用するには、実行する前にセルの範囲を選択します。次に、マクロは選択された各セルをステップスルーし、その色をlColorで指定した色と比較します。一致するものが見つかった場合、セルは選択セットに追加されます。完了すると、マクロはそれらの一致するセルのみを選択して終了します。

他のマクロベースのソリューションを知りたい場合は、マイクロソフトサポート技術情報の次の記事を参照してください。

http://support.microsoft.com/kb/142122

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2396）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excelribbon-Finding_Cells_Filled_with_a_Particular_Color [特定の色で塗りつぶされたセルの検索]。