Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63879 / 76732

←次へ　｜　前へ→


	【17443】Re:ユーザーフォームの件

こもれび - 04/8/29(日) 23:43 -


	引用なし

	パスワード

こもれびです

>textboxは７２個ありますので、全部入力するまでEnterキーを押してもシート１へ追加しないようにしたいがやはりコマンドボタンを配していけばいいと思う。
>TextBox７２個入力して「入力完了ボタン」を押してシート1へ追加して終了なります。

うわぁ、72個！

それでは、次のコードはいかがでしょうか

○　標準モジュール

　　public TextData(71) as String　' テキストボックスデータ用1次元配列

○　フォームのモジュール

Private Sub TextBox1_AfterUpdate()
　　TextData(0) = UserForm2.TextBox1.Text ' 配列にデータを入力
End Sub

ちょっと手間ですが、72個のテキストボックス全部にAfterUpdateイベント
プロシージャを書きます。
その際に、配列の番号は順番どおりに記述してください。

Private Sub TextBox1_AfterUpdate()
　　TextData(0) = UserForm2.TextBox1.Text ' 配列にデータを入力
End Sub

Private Sub TextBox2_AfterUpdate()
　　TextData(1) = UserForm2.TextBox1.Text ' 配列にデータを入力
End Sub

Private Sub TextBox3_AfterUpdate()
　　TextData(2) = UserForm2.TextBox1.Text ' 配列にデータを入力
End Sub

全部入力し終えましたら

Private Sub CommandButton1_Click()
　　dim i as Integer

　　For i = 0 to 71
　　　Cells(i+1, 1) = TextData(i)
　　next i

End Sub

これですと、コマンドボタンの数は1個で済みなおかつテキストボックス全部
に入力されるまでシートにデータが入らなくなります。
上のコードはあくまで例で、実際に使用される際はセルの位置を変更してください。

0 hits

▼

【17412】ユーザーフォームの件 さる 04/8/28(土) 23:17