ユーザーフォームへのデータ入力を繰り返す方法

Question

宜しくお願い致します。
ユーザーフォームへのデータ入力を繰り返したいのですが、うまく動いてくれません。
登録件数分データを入力(textbox2)し、それをExcelのシートに出力していきたいと思っています。

具体的には
Dim 登録件数 as integer
DIM i as integer
For i = 1 To 登録件数
    TextBox1.Value = i
    Cells(i, 2).Value =textbox2.value
    TextBox2.Value = ""
Next i
のようなことを考えていますが、これで実行すると、2回目以降、ユーザーフォームのtextbox2にデータを入れることができません。

初歩的な質問で誠に恐縮ではございますが、どこを正せば動くようになるのか、ご指導の程宜しくお願い致します。

hana-hana3 · Accepted Answer

＞データはB1のセルにどんどん上書きをしてしまいます。

DIM i as integer
の変数宣言をプロシージャ（sub ～ End Sub）の外に置いていますか？
内部にあると常に初期化されて、カウントアップ(+1)してくれません。

＞「何でFor文でなくて、If文なのだろう？

ＩＦ文は比較するのに使います。
今回の場合、書き込み前に繰返し回数をｉの値をＩＦ文で比較し、ｉの値をカウントアップ(i=i+1)して、書き込みます。

ｆｏｒ文でも同じ事ができますが、テキストボックスのデータ入力状態を待って繰返して実行させるには不適な方法です。

＞一回登録ボタンを押した後、次のデータを入力するためには、テキストボックス内をマウスでクリックしてからでないとデータを入力できません。

これも実装時の些細な気遣いが必要な部分です。
フォーム上のコントロールは、実行時には自動的に次のコントロールにフォーカスが移動します。
TabIndex プロパティの番号順にフォーカスが移動して行くので、入力順によってはこの値（順番）も変更した方が良いでしょう。

Dim i As Integer

Private Sub CommandButton1_Click()
Dim 登録件数 As Integer
登録件数 = 10

If i >= 登録件数 Then
MsgBox "Count Up"
Exit Sub
Else
i = i + 1
Cells(i, 2).Value = TextBox2.Value
TextBox2.Value = ""
TextBox2.SetFocus
End If
End Sub

＞TextBox2.SetFocus

で、コマンドボタンデータ転記後にフォーカスを任意のコントロールに戻せます。

hana-hana3 · Answer

単純なデータ入力なら

For i = 1 To 10
Cells(i, 2).Value = InputBox(i & " 件目")
Next

で可能です。

ユーザーフォームを使うなら、
モジュールのトップに変数(i)を定義して、グローバル変数にして、値を記憶させて置きます。

dim i as intger

Private Sub TextBox1_AfterUpdate()
If i > 登録件数 Then Exit Sub
i = i + 1    
Cells(i, 2).Value = textbox2.Value
textbox2.Value = ""
end sub

salf · Answer

やろうとしていることは、i が増えるたびに textbox2 に値を入力したいんですよね？

Cells(i,2).Value = textbox2.Value
を
Cells(i,2).Value = InputBox("データを入力してください")
に変更して InputeBox を出してはだめなんですか？

salf · Answer

＞ユーザーフォームを使ってデータ入力をしたいと考えております。
For文を使用して上記をやるには、i が増えるたびに TextBox を入力するために処理を一旦停止しなければならないため、
その考え方は厳しいと思います。
（私が知る範囲ですが・・・。）

For文を使用するとなると、登録件数分の TextBox を作成し、その値を Cell に登録していくしかないと思います。

もしくは、hana-hana3 様が提示されているようにグローバル変数として定義し、
何かの処理（ボタンを押す等）ごとに i を増やして Cell に書き込んでいく方法しか思い浮かびません。

Hayashi_Trek · Answer

＞頭の中のイメージでは簡単にできそうなことなのですが
あなたがイメージしている操作手順がわからないので
具体的な方法が提示できません。
セルに代入する値が必要になるたびにユーザフォームを表示する方法なら.

［ユーザフォーム］
データ入力用のテキストボックスTextBox1がある。
入力完了を示す、コマンドボタンがる。
コマンドボタンを押すと、ユーザフォームをHideする。

［メイン側］
userform1.Show vbModal
' ユーザフォームがHideすると戻ってくる。
Cells(i, 2).Value =yserform1.textbox1.value
unload yserform1

という方式でどうでしょうか？

imogasi · Answer

皆さんこの問題で苦労したことがないらしいようにおもいます。
私は今もってよくわからない点がありますが、参考までに下記を載せます。
Ｕｓｅｒｆｏｒｍ１を挿入し、テキストボックスを１つ貼り付けます。
そして標準モジュールに下記を貼り付けます。
やってみてください。ただし下記に満足してるわけで有りません。
実際使うと色々不便なところがあります。おもちゃのような気がします。
諸賢の下記についてのあら捜しと改善法や別方法のご教示を私自身が求めてます。
入力はデータ＋ＥＮＴＥＲで入力するものとします。
データはＡｃｔｉｖｅＳｈｅｅｔのＡ１セルから下に順次セットしていきます。
Dim i

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
i = i + 1
If IsNumeric(TextBox1) Then
Cells(i, "A") = Val(TextBox1)
Else
Cells(i, "A") = TextBox1
End If
TextBox1 = ""

End If
End Sub

imogasi · Answer

＃５です。
すみません大事なところを勘違いして、間違えました。標準モジュールでなく、フォームモジュールでした。
フォームのデザインモードのテキストボックスをダブルクリックして出てくる画面で、テキストボックスのＫｅｙＤｏｗｎイベントを指定し、その中に回答の中身を貼り付けてください。

hana-hana3 · Answer

＞しかし、残念なことに複数回入力させることができません。

"登録件数" には、値が入っているのですか？
補足された文面からは、この値の取得場所が全く見えていませんけど？
別のテキストボックスですか？
それともシートのどこかですか？

hana-hana3 · Answer

一部修正しました

Private Sub TextBox2_AfterUpdate()
Dim 登録件数 As Integer
登録件数 = 3

If i >= 登録件数 Then
    MsgBox "Count Up"
    Exit Sub
Else
i = i + 1
Cells(i, 2).Value = TextBox2.Value
TextBox2.Value = ""
End If
End Sub


実験的な物としてはとりあえず動作すると思いますが、このまま、実使用時に登録件数の値を変更するだけでは、思ったような動作しません。

hana-hana3 · Answer

＞あまりユーザーフォームにこだわらずにinputboxを使った方がいいと言うことでしょうか。

そうではなくて・・・
Ｆｏｒ文を使った無理なプログラムではなくて、基本的な繰返し入力の方法を覚えて欲しかっただけです。

実際に稼働させるには、
繰返しの回数を「いつ」「どこから」取得して、入力を繰り返すのか？
データを記入する位置を「いつ」「どうやって」決めるのかなど・・・。
基本的な事が解決できていないので、「実験的な～」という事を書きました。

また、入力の誤りを減らすためには、コマンドボタンからの実行が確実かと思います。

現在の記入位置に連続して書き込むにしろ、新規に別の場所に書き込むにしろ、「行番号」と「回数」の比較しかしていないので、そのまま適用するにも無理はあるでしょう。

＞文字や画面が小さく読みづらいかなぁと思っています。

文字サイズは、テキストボックスのFontプロパティで設定できます。

＞コマンドボタン（「登録」）の部分はどのようなコードにすればよろしいのでしょうか？

先のものは、テキストボックスにデータを記入してエンターキーを下げると自動実行します。
入力の確認を行いながら入力するなら、先のイベント（コード）は削除して、コマンドボタンに同じ内容を記入して実行してみてください。


実装する場合には、入力の誤りを減らす（場合によってはデータチェックする）事と、作業の迅速化や使いやすさを考えてコーティングする必要があるので、作業をする立場にたった操作性を考える必要があります。

ユーザーフォームへのデータ入力を繰り返す方法

単純なデータ入力なら

この回答への補足

やろうとしていることは、i が増えるたびに textbox2 に値を入力したいんですよね？

＞ユーザーフォームを使ってデータ入力をしたいと考えております。

＞頭の中のイメージでは簡単にできそうなことなのですが

皆さんこの問題で苦労したことがないらしいようにおもいます。

＃５です。

＞しかし、残念なことに複数回入力させることができません。

この回答への補足

一部修正しました

＞あまりユーザーフォームにこだわらずにinputboxを使った方がいいと言うことでしょうか。

＞データはB1のセルにどんどん上書きをしてしまいます。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング