ＶＢＡでマッチング処理を行いたい

Question

ＶＢＡでマッチングを行いたいのですが、可能でしょうか。

やりたいことは”前日勤務表”と”当日勤務表”を比較して、追加入力された勤務時間はＯＫとし、調整されマイナス入力あるいは他の業務依頼書ＮＯに読みかえられた勤務時間をＮＧとしてセルの色付けを行い明確化したいです。

※勤務表は毎月作成され、毎日退社時に勤務時間を入力します。但し、勤務時間調整のために、過去の勤務時間をマイナスしたり別の業務依頼書ＮＯに読みかえたりすることが不定期で行われます。

■インプット

ファイル１：前日勤務表

ファイル２：当日勤務表

■ファイルレイアウト

（ファイル１、ファイル２　共通）

１）社員コード<数字>　２）社員名　３）業務依頼書ＮＯ<数字>　４）業務依頼書標題　５）業務ＣＤ<数字>　６）業務名　７）作業ＣＤ<数字>　８）工程　９）１日勤務時間<数字>　１０）２日勤務時間<数字>　～　３９）３１日勤務時間<数字>　４０）備考　４１）勤務時間合計<数字>

■処理

①ソート

ファイル１、ファイル２　をそれぞれ

１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ　の優先順で昇順にソート

②マッチング

　②－１　当日勤務表ＯＮＬＹ

　　前日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ　＞　当日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ

　　⇒ＯＫ（何もしない）

　②－２　前日勤務表ＯＮＬＹ

　　前日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ　＜　当日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ

　　⇒ＮＧ（当日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ　のセルに色付けする）

　②－３　マッチ

　　前日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ　＝　当日勤務表：　１）社員コード　＋　３）業務依頼書ＮＯ　＋　７）作業ＣＤ

　　　　if　　前日勤務表：９）１日勤務時間　≦　当日勤務表：９）１日勤務時間

　　　　　⇒ＯＫ（何もしない）

　　　　else

　　　　　⇒ＮＧ（当日勤務表：９）１日勤務時間　のセルに色付けする）

　　　　if　　前日勤務表：１０）２日勤務時間　≦　当日勤務表：１０）２日勤務時間

　　　　　⇒ＯＫ（何もしない）

　　　　else

　　　　　⇒ＮＧ（当日勤務表：１０）２日勤務時間　のセルに色付けする）

　　　《繰り返し》　※３９）３１日勤務時間　まですべてチェック

　以上、このような処理を行いたいのですがＶＢＡでマッチング処理はできるのでしょうか。ややこしくて申し訳ありませんがご教示いただけますと幸いです。

Answer 1

y sakuda さん、いつもアドバイスありがとうございます。

さわわ さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

y sakuda さんがコメントされているように、作成されている VBA コードがあれば全文を書いてみることで、このスレッドを見られた方からアドバイスが得られるかもしれません。

また、 VBA を使った専門的な質問については VBA フォーラムにも質問を投稿して情報を集めてみるのも良いと思います。

・ Visual Basic for Application (VBA)

もし質問を投稿される場合、 作成されている VBA コードがあれば全文を書いて投稿してみるとアドバイスも集まりやすくなると思います。

よろしければ活用してみてくださいね。

Answer 2

マッチングとおっしゃっているのは事務処理などで行われるシークェンシャルな二つのデータ（ファイル）を比較しながら処理することをイメージされているのだと思います。

そういうことならVBAに限らずほとんどのコンピュータ言語で可能です。

なにが分からないのでしょうか？

もし、記述された仕様通りのものを丸ごと教えろというなら、ここは無料コード作成サイトではありませんので、お門違いです。

ご自分でやって上手く行かないところ、分からないところをコードを添えて質問してください。