管理表への転記

質問

五百台置ける駐車場があります。日々の領収金額をSheet2の日報に箇条書きにしていくと、駐車番号と契約月の座標をSheet1管理表で探し、領収日を入力するようにしたい。記帳済によって入力され、領収日を空白にすることで、訂正も可能にしたい。

Sheet1管理表(日付は、Sheet2の処理結果)
駐車番号　　氏名　 １月分 　２月分　　３月分
1A-01 山田高志
1A-02 大木邦芳 2006/3/14
1A-03　 小川香代子
1A-04 鈴木誠一 　2006/3/11
1A-05 田中克彦 　2006/3/9

Sheet2日報
シリアル 契約番号 氏名 契約月 領収日 　記帳　
0001　1A-05　田中克彦 3月分 2006/3/9 記帳済
0002　1A-02　大木邦芳 1月分 2006/3/14 記帳済
0003　1A-04　鈴木誠一 3月分 2006/3/11 記帳済
0004
　　　　　　出来れば、契約月の欄に３月～５月分など何ヶ月分も一度に入力できれば更に便利です。
1A-05なども変換無しに打てれば便利です。
Sheet2に金額なども加え売り上げの計上にも使いたいです。他に使用範囲の拡充のアイデアもあれば是非お願いします。

回答No.1

imogasi

これはVBA向きの問題と思うので余り気が進まないが途中までのところがあるが、ヒントを上げます。
例データ（質問とほぼ同じデータを使った）
ただしC1:E5の部分は初めは空白。
式を入れて始めて下記になる。
Sheet1のA1:E5
1A-01 山田高志 2006/3/12
1A-02 大木邦芳 2006/3/14
1A-03 小川香代子 #N/A #N/A #N/A
1A-04 鈴木誠一 2006/3/11
1A-05 田中克彦 2006/3/9
OKWAVEでは列が崩れてしまうので、後記の実際の式を入れた結果を見てください。
ーーー
Sheet2　　のA1:F4
1 1A-05 田中克彦 3月分 2006/3/9 記帳済
2 1A-02 大木邦芳 1月分 2006/3/14 記帳済
3 1A-04 鈴木誠一 3月分 2006/3/11 記帳済
4 1A-01 山田高志 2月分 2006/3/12 記帳済
Sheet１のC1は
=IF(VLOOKUP($A1,Sheet2!$B$1:$F$10,3,FALSE)="1月分",VLOOKUP($A1,Sheet2!$B$1:$F$10,4,FALSE),"")
と入れて下方向に式を複写
D1は
=IF(VLOOKUP($A1,Sheet2!$B$1:$F$10,3,FALSE)="2月分",VLOOKUP($A1,Sheet2!$B$1:$F$10,4,FALSE),"")
と入れて、式を下方向に複写
E1は
=IF(VLOOKUP($A1,Sheet2!$B$1:$F$10,3,FALSE)="3月分",VLOOKUP($A1,Sheet2!$B$1:$F$10,4,FALSE),"")
と入れて下方向に式を複写。
結果は例データのSheet1の部分の通り。
（１）１，２，３は列と関連させて自動的に横方向に複写できるようにできると思うので考えてください。
（２）＃N/Aは出さないようにできると思うが、考えてください。

お礼

ありがとう御座います。大変遅くなりましたが、その分いろいろ研究して、勉強になりました。本当にお手数を掛けました。