既存の表にデータを追加したい

質問

先日も　質問し、回答頂きました。いろいろアレンジしましたが、思うとおり出来ませんでした。
回答頂いたい方にメールを送る事出来ませんので再度　質問します。

既存の表
名前を検索し２２年度列に番号、検査年月日を追加。
２３年度は２３年の列に番号、検査年月日を追加し履歴がわかるようにしたい。
また　新規であれば　２１年度欄を　空欄にし　２２年度欄に番号、検査年月日書き加える。

新規であれば　生年月日の　入力をどのようにすればよいか？
既存の表の一番上に表示し　直接生年月日を入力するような事が出来ますか？
入力欄
　　　　氏　　　名 　　　　22年度番号 　　　　　検 査 年 月 日
　　　　アオ　ミツヨ 　　　　　22-1 　　　　　　　　　　Ｈ22.4.2

表
番号　　氏　　　　　名　 生 年 月 日 　２１年度番号　検 査 年 月 日 　２2年度番号 検 査 年 月 日
　1 　　　アオ　トオル 　S10.12.16　　　　21-452　　　　　H22.1.19 　 　
　2 　　　アオ　ミツヨ 　 S14.7.2　　　　　21-451　　　　　　H22.1.19　　　　　22-1　　　　　Ｈ22.4.2　
　3 　　　アオキ　カヨ　 S12.5.11　　　　　21-393　　　　　H21.12.17 　 　
　4 　　　アオキ　フミ 　S8.7.1　　　　　　 21-443　　　　　H22.1.15 　 　
　5　　　　アガタ　エツミ S18.1.16　　　　 21-501　　　　　H22.1.27 　 　　
　6　　　　新規 氏名　どのように入力？ 空欄 　　　　　　空欄　 　　　　　22-500 　　　　Ｈ22.5.7　

　新規の方は生年月日も入力したいと思います。表に直接入力でも構いませんが、入力するカーソルに簡単に移動させる方法はありますか？
新規の方は表の最上段に表示させる方法とかありますか？

回答No.2

keithin · ベストアンサー

ご相談で「例えば」じゃなく「実際はこうなんです」が出てきたのは良かったですね。
ところで横に継ぎ足す云々は，年度番号が来年に変わったときだけのお話に落ちてしまったのですか？
（それならあんまり手間をかけず，来年度になったらマクロの転記先列番号をちょっと書き換えるだけでも良さそうな気はしますが）

添付図：
入力箇所はC1にどのデータの種類かを記入
B2からD2に基本データ
新しいデータはセルを使わずインプットします

まっさらシートのシート名タブを右クリック，コードの表示を選んで貼り付ける

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim h As Range
　Dim c As Range
　Dim dd
　If Application.Intersect(Target, Range("B2:D2")) Is Nothing Then Exit Sub
　If Application.CountA(Range("B2:D2")) <> 3 Then Exit Sub

　Set c = Range("5:5").Find(what:=Range("C1"), lookat:=xlWhole)
　If c Is Nothing Then
　'new column
　　Set c = Range("IV5").End(xlToLeft).Offset(0, 1)
　　c = Range("C1")
　　c.Offset(0, 1) = "検査年月日"
　End If

　Set h = Range("B6:B65536").Find(what:=Range("B2"), LookIn:=xlValues, lookat:=xlWhole)
　If h Is Nothing Then
　'new record
　　Range("6:6").Insert
　　Range("A6") = "=ROW()-5"
　　Range("B6") = Range("B2")
　　Do
　　　dd = InputBox("birthday?")
　　Loop Until IsDate(dd)
　　Range("C6") = dd
　　Set h = Range("B6")
　End If

　Cells(h.Row, c.Column) = Range("C2")
　Cells(h.Row, c.Column + 1) = Range("D2")
　Range("B2:D2").ClearContents
End Sub

お礼

思いのまま作成出来ました。大変お手数を掛けました。マクロもう少し勉強します！！！

回答No.1

mu2011

データ→フォーム機能を利用されては如何でしょうか。
添付のＵＲＬを参考にして下さい。

参考URL：

http://edutainment-fun.com/excel/tool/form.html

お礼

早速の返答ありがとうございます。一度試してみます。