シート間の行相違検証マクロ

質問

シート１のB列(B5:B38)に数10名の氏名を入力します。C列からM列までには数字を何個か入力します。例えば　
A氏、C5には4、F5には2、M5には3、
B氏、E6には3、G6には4、
C氏、F7には4、H7には8、等です。
シート２の(A3:A36)にはシート1の氏名を入力します。B列からL列までにはシート1で入力した数字に対応した数字を入力します。例えば
シート1、A氏、C5の4ではシート２、A氏の行のB列に２０００、F5の2ではシート2のA氏の行のE列に1000、M5の3ではシート2のA氏の行のL列に1500、と入力します。ここで、シート2で入力した行が違っていないか。他の人の行に入力していないかの検証マクロの記述方を教えてください。尚、シート1とシート2の氏名の並びが同一の場合と、そうでないときの二通りを教えてください。よろしくお願いします。

回答No.1

imogasi · ベストアンサー

こんなの丸投げで、何か自分でやって見たのか。個々はVBAコードの下請けをさせるコーナーではないでしょう。
わからない点を聞くとかするもの。
参考にするなら、下記を読んで。コードは書かない。
（１）同じと（仮定している）場合
シート１（B列）とシート２（A列）の上からのセル同士を比較して、違っておればメッセージでも出せばよい。
比較するセルの行番号がシート１とシート２で２行違うだけ。
For NextとIF比較で出来ること。
シートが２つあるので各々を区別するためのコードを勉強のこと。
最終行はシート１では、Range(”B65536").End(xlup).Rowで判る。
ー
１行ずれるとあとずっと、ずれていく恐れがあるので、このロジックは十分でないが、これ以外は難しくて質問者のレベルのやり方に
なら無い恐れがある。
ダブリを検出するのは別プロにすべきでしょう。又シート２のデータ漏れなども。
私ならシート１とシート２で氏名でマッチング方でチェックするが。１プログラムでダブリ、もれ、不突き合いが判る。
ーー
誤りを修正後、対応するシート１とシート２の各行について、シート１ではB列からL列、シート２では？？？（質問を理解できず）
＞A氏、C5の4ではシート２、A氏の行のB列に２０００、F5の2ではシート2のA氏の行のE列に1000、M5の3ではシート2のA氏の行のL列に1500、と入力します
の意味がわかりにくい。
対応した列どうして、同じデータが入るのではないのか。
ーーー
（２）そうでないときの
これは順次（行）比較は出来ない。シート１のB列氏名（上行から）からシート２のA列氏名を検索し、見つかった行でチェックを行う。
ダブリがあるとかだと、さらに難しい。質問者のレベルでは出来ないのでは。

お礼

ありがとうございました。

回答No.2

end-u

>シート２の(A3:A36)にはシート1の氏名を入力します。...
常に、シート１を元にシート２に入力するのですか？
その場合、シート２には関数を入れておいて入力しないようにすれば良い？

シート２のA3セルに
=シート１!B5
と入れてA36セルまでコピー。

シート２のB3セルに
=シート１!C5*500
と入れてB36セルまでコピー。
B3:B36セルを右方向に必要な分コピー。

質問文だけで解釈すると以上のような回答でも可ですかね？

お礼

ありがとうございました。