特定のフォーマットされたセルまたは色付きのセルをある列から次の列にコピーする場合は、この記事が役に立ちます。この記事では、VBAコードを使用して色付きのセルをコピーする方法を学習します。

以下は、データのスナップショットです。つまり、列Aには、黄色のセルがほとんどないデータが含まれています。

黄色でのみ強調表示されているデータを抽出するには;列Bにのみ色付きのセルを表示するUDFを作成する必要があります

img1

  • ユーザー定義関数を作成するには、以下の手順に従います。

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img2

  • 標準モジュールで以下のコードをコピーする必要があります

関数IsYellow（ByRef r As Range）

If r.Interior.ColorIndex = 6 Then

IsYellow = r.Value

その他

IsYellow = vbNullString

終了If

終了関数

img3

===

セルB1では、数式は* = IsYellow（A1）

img4

になります。上記のコードは、黄色のみを対象とした色＃6と特に一致しています。したがって、udfはcolor＃6を含む値のみを抽出します。

赤い色のセルを抽出したい場合は、指定された色番号を確認し、黄色の色番号に置き換える必要があります。

このようにして、vbaコードを使用して黄色のフォントカラーセルを取得できます。

image 4