![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
ある2グループの表があります。その中のセルAからC内のセルを比較し、間違っていればセルに色を付けるというマクロを作りたいと思ってますがうまく行きません。 そのセルの比較はGroupの1と2に由来します。たとえば下図の、Group2を主(参照)とし、一番左の数値が4の場合、Group1の4と数値を探し出し(サーチし)、その右側のAからCの値を比較する。間違いがあればGroup1の方のみ色を付けるといった感じです。 Group1とGroup2の左側の数値は順不同でシートによって数値が変わります。しかしGroup2のA~Cの値は固定で変わりません。 またGroup1とGroup2のすべての値は同じシートで比較されます。
まず、Group1とGroup2の左側の値を比較してマッチさせるというマクロが1つ要るのと、そのマッチした数値があれば、A~Cの値を比較色付け。といった感じのマクロがもう一つ要ります。
どうすれば、いいマクロができるのか、教えていただければ幸いです。
どうぞよろしくお願いいたします。
違うシートで比較はある。
”http://t-wata.com/?p=156”
![「Excel VBAで比較して数値があって」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/9/1134800_58bdc5d91074e/M.jpg)
No.1ベストアンサー
- 回答日時:
こんにちは!
下側の画像の配置通りだとして・・・
Sub Sample1()
Dim i As Long, j As Long, c As Range
Range("E:G").Interior.ColorIndex = xlNone
For i = 3 To Cells(Rows.Count, "D").End(xlUp).Row
Set c = Range("I:I").Find(what:=Cells(i, "D"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then '←念のため//
For j = 5 To 7 'E~G列まで//
If Cells(i, j) <> c.Offset(, j - 4) Then
Cells(i, j).Interior.ColorIndex = 3
End If
Next j
End If
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Excel(エクセル) エクセル関数の質問 5 2022/04/20 09:46
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) エクセル シート比較で書式を変えるを繰り返したい 2 2023/05/05 11:25
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) セルの値を比較してセルの値の色を変更するには 4 2022/05/22 20:28
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでのリスト不一致抽出について
Visual Basic(VBA)
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
-
4
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
5
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
VBAでセル同士を比較して色付け
Visual Basic(VBA)
-
8
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
9
Excelにて、シート間で、データーを比較して、一致したら別シートへ転記するコードを教えてください。
Microsoft ASP
-
10
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
11
VBA A列にありB列にないものまた逆
Visual Basic(VBA)
-
12
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
13
Excelマクロの差分抽出のコードを教えていただきたいです。
Excel(エクセル)
-
14
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
15
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
16
エクセルVBAで 2種のリストを比べて重複していないデータを最下行に追加するには
Excel(エクセル)
-
17
VBAで列の比較をする
Visual Basic(VBA)
-
18
エクセルでエラーが出て困っています。
Excel(エクセル)
-
19
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力したセル番地をメッセージ...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
VBAでセル同士を比較して色付け
-
【Excel】指定したセルの名前で...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
【VBA】カーソルのある行の1行...
-
指定した条件で行セルを非表示...
-
任意フォルダから画像をすべて...
-
【Excel】セルの背景色、文字色...
-
【Excel VBA】指定行以降をクリ...
-
エクセルマクロでアニメを作る...
-
DataGridViewで右寄せ左寄せが...
-
テキストボックスに入力したデ...
-
重複しない乱数
-
置換文字を連番で振りたい
-
特定の文字を条件に行挿入とそ...
-
ExcelVBA:オートフィルタをかけ...
-
Excel2013,2016 マクロの動作が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報
図の間違いがありました。Group1の2つ目の数値4のところで、AとBが間違ってますので、Bの数値、1のところも赤になりますね。すみませんでした。