質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.13%

Excelマクロで2つのファイルを比較する。

受付中

回答 1

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 183

daisanrock

score 8

この二つのエクセルを下記の仕様で比較をしたいのですが、初心者のためどのようなプログラムを書くのか分かりません。
申し訳ありませんが、ご教示いただけますと幸いです。

【ファイル情報】
二つのエクセル(sample1.xlsx / sample2.xlsx)があり、
それぞれのデータ内容は下記となります。 

■ファイル「sample1.xlsx」
| A列 | B列 | C列 | D列 | E列 |
AAA BBB 10 あああ ★★
CCC DDD 5 いいい ☆☆
EEE FFF 2 ううう ☆☆

■ファイル「sample2.xlsx」
| A列 | B列 | C列 |
AAA BBB 10 
CCC DDD 5 
EEE FFF 10 

【やりたい事】

  1. sample1.xlsx と sample2.xlsxのA列・B列・C列を比較。
    sample1が主エクセル、sample2が比較用エクセルです。
  2. A列・B列が同じ組み合わせのもので、C列の数値が違った場合は
    sample1のエクセルから、その行のA列~E列を抜粋し、違うシートに書き込む。
    または色付け。
    (上記 例ですと「EEE FFF 2 ううう ☆☆」の行が抜粋対象となります。)
  3. A列・B列が同じ組み合わせのもので、C列の数値も同じであれば「OK」。
  4. sample1のデータが入っている最終行まで、上記処理を行う。
  5. 全ての処理が完了したら「処理完了」のメッセージを出す。 

ネット情報の切り貼りですが、現在はサンプルをA列のみとし比較、「4」まで作成しています。
初心者であり非力なので、ご教示いただけますと助かります。
宜しくお願いいたします。

Sub hikaku()
    Dim hida As Long
    Dim migi As Long
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set ws1 = ThisWorkbook.Worksheets("sample1")

    Workbooks.Open Filename:=ThisWorkbook.Path & "\sample2.xlsx"
    Set ws2 = ActiveWorkbook.Worksheets("sample")

    For migi = 2 To 4
        For hida = 2 To 8
            If ws2.Range("A" & migi).Value = ws1.Range("A" & hida).Value Then
                ws1.Range("C" & hida).Value = "OK"
                Exit For
            End If
        Next
    Next

    For hida = 2 To 8
        If ws1.Range("C" & hida).Value = "" Then
            ws1.Range("C" & hida).Interior.Color = vbYellow
        Else
            ws1.Range("C" & hida).Interior.Color = xlNone
        End If
    Next
End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • meg_

    2020/03/17 20:58

    「現在はここまで作成しています」”ここまで”とは、【やりたい事】の1~5のどこまでのことでしょうか?

    キャンセル

  • meg_

    2020/03/17 21:38

    質問のコードは実行確認されましたか? こちらで試したところ、マクロブックのC列に「OK」の文字が上書きされますが良いのでしょうか? ※インデックスが2始まりですがシートのデータは2行目から始まっているのでしょうか?

    キャンセル

  • 退会済みユーザー

    2020/03/18 10:48

    複数のユーザーから「やってほしいことだけを記載した丸投げの質問」という意見がありました
    「質問を編集する」ボタンから編集を行い、調査したこと・試したことを記入していただくと、回答が得られやすくなります。

回答 1

0

単純に、セルに色を付けたいのであれば、わざわざ、マクロを作る必要性は無いと思います。
Excelのマクロは強力ではありますが、機能や関数で、やりたいことが実現できれば、そちらを優先すべきです。

Excelの条件付き書式設定が使えると思います。
イメージ説明

条件付き書式設定を使えるようになれば、色々便利です。
ぜひ覚えてほしいと思います。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.13%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる