Excel - 2つのリストを比較して行の色を変更する
問題
私は2つの異なるワークブックを持っています。 ワークブック1とワークブック2としましょう。 どちらのワークブックにも、バーコード付きの列があります。
ワークブックの2つのバーコード列をチェックし、新しいワークブックを作成してワークブック1の行全体をコピーしてワークブック2の同じ色のセルバーコードを使用する場合は、VBAが必要です。
溶液
私はシート1とシート2の両方のバーコード列が同じであると仮定しています
それからこのコードを試してください
最初にコードを実行すると、コードはバーコードの列文字に関する入力を求めます。 Gなどの列文字を入力して、右上の[OK]をクリックします。
マクロは
Sub test（）Dim colを文字列として、rを範囲として、cを範囲として、dimとしてx、yを整数としてcol = InputBox（ "Gのためにバーコードが整列されたLETTER列を入力"）エラー次へワークシート（ "sheet2"）の場合各cに対してr = Range（.Cells（2、col）、.Cells（2、col）.End（xlDown））を設定します。列（col＆ "："＆col）cfind = .Cells.Find（what：= x、lookat：= xlWhole）を設定します。cfindがNothingの場合、GoTo nnext y = cfind.Interior.ColorIndexとなります。 "sheet3"）.Cells（Rows.Count、 "A"）。終了（xlUp）。オフセット（1、0）次で終了次へc終了で終了Sub
注意
フォーラムでこのヒントを提供してくれたvenkat1926に感謝します。