EXCEL VBAでユーザーフォームを使ってデータを入力したい。

EXCEL　VBAでユーザーフォームを使ってデータを入力したいと思っています。（ユーザーフォームはできています。）
入力項目が４項目あります。
名前
作業コード
開始時間
終了時間

上記４項目と登録ボタンです。

sheet1にユーザーフォームを表示し
sheet2の
A1に名前
B1に作業コード
C1に開始時間
D1に終了時間が
登録ボタンを押すごとに
どんどんデータを記録していきたいのです。
VBA初心者ですのでコードがよくわかりません。
ご教授ください。よろしくお願いいたします。

No.2 ベストアンサー 回答者： alchemisty 回答日時： 2009/04/30 12:03

コードを書くだけの時間がないのでデバッグなしで、、、

public Loop as long
'あらかじめLoop=1で初期化しておく
sub 登録ボタンがおされたときのサブルーチン()
　sheet2.cells(1,Loop)=form.名前.value
sheet2.cells(2,Loop)=form.作業コード.value
　sheet2.cells(3,Loop)=form.開始時間.value
sheet2.cells(4,Loop)=form.終了時間.value
Loop=Loop+1
end sub
でいかがでしょうか？
　もしグローバル変数Loopが気持ち悪いのなら
　フォームにLoopの変数を持たせるか、不可視のコントロールを割り当てる手があります。
　・
　・　

No.1 回答者： yokomaya 回答日時： 2009/04/30 09:53

まずはＳｈｅｅｔ２でデータ→フォームを使うのではどこが

不都合ですか？
それを踏まえてコードを考えるのが手順かと。