こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

投稿日時 - 2009-04-29 22:57:47

QNo.4919395

dgc

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

コードを書くだけの時間がないのでデバッグなしで、、、
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の変数を持たせるか、不可視のコントロールを割り当てる手があります。
 ・
 ・ 

投稿日時 - 2009-04-30 12:03:30

ANo.1

まずはSheet2でデータ→フォームを使うのではどこが
不都合ですか?
それを踏まえてコードを考えるのが手順かと。

投稿日時 - 2009-04-30 09:53:40

あなたにオススメの質問