エクセルのフォームをVBAで作るには？

質問

セルの項目が多い場合　一般のフォームでは使えないようですが、
http://www.eurus.dti.ne.jp/~yoneyama/Excel/input_form.htm
ここにあるフォームをVBAで作るとしたらどうすればいいのでしょうか？　教えてください。

回答No.2

imogasi

質問表現注意
フォームー＞データーフォームのフォーム
(注）フォームの使われ方
（１）一般会話や文章内で文書の構成などスタイル
（２）コンピュターなどで印刷する項目と位置を決めた帳票（物理的）
（３）表を作るときの項目と配置、罫線など画面のレイアウト（ソフト的）
（４）ＶＢＡなどのユーザーフォームなどプログラム言語上で、コントロールなどを配置できるウインドウ。ＶＢのフォームなど。
（ウインドウズ上で作る場合のもの）
（５）エクセルでの、「データ」メニューの下のフォーム
ーー
>セルの項目が多い場合
あいまいな表現をせず、おおよその数の目安を書くべきでしょう。　
やってみると、３０列ぐらいだと、画面に収まるが。
ーーー
＞ＶＢＡで作る
Sub Macro2()
Range("a1:C1") = Array("A", "B", "C")
Range("a1:C2").Select
Application.DisplayAlerts = False
ActiveSheet.ShowDataForm
Application.DisplayAlerts = True
End Sub
項目内容（見出し）の数は増やすこと。
ーーー
削除や変更まで盛り込むことは初心者には難しい。
だから最下行の下に追加処理だけにとどめるべきでしょう。
上記のようなことでなければ
ユーザーフォームを１つシートに貼り付け（挿入ーユーザーフォーム）
テキストボックスを項目数だけ、ユーザーフォームに貼り付け。
入力完了のコマンドボタンを１つ貼り付け。
そのコマンドボタンのクリックイベントに
（プリミチブなカタチだが）
Private Sub CommandButton1_Click()
Set d = Range("a65536").End(xlUp).Offset(1, 0)
d.Offset(0, 0) = TextBox1.Text
d.Offset(0, 1) = TextBox2.Text
d.Offset(0, 2) = TextBox3.Text
'---
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
のようなもので出来る。

回答No.1

n-jun

ユーザーフォームを作成した事はまだないように見受けられますが。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_userform.html
http://moug.net/tech/exvba/0091.htm
こう言ったサイトを参考に作成しては如何でしょう。

オリジナルで何かをさせるって言うのは経験を積まないと難しいですが、頑張って下さい。