Excel VBA質問箱 IV

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

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


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

57126 / 76807

←次へ　｜　前へ→


	【24421】Re:登録方法

YN61 - 05/4/21(木) 21:34 -


	引用なし

	パスワード

▼まことさん：

>フォームより登録ができるようにしているのですが例の通りに挿入？できるように
>したいのですが、宜しくお願いします。
→→これは、昇順で並べ替えが簡単に出来ますが…

入力フォームを
作成してみました、一度ご検討ください。
A列のID、B列の氏名、C列の生年月日までしました…後は同じ要領です。

フォームのUserForm1に貼り付け
「入力」にする…EnterKeyでも操作可です。

Private Sub CommandButton1_Click()
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value　　'ID
ActiveCell.Offset(, 1).Value = TextBox2.Value　'氏名
ActiveCell.Offset(, 2).Value = TextBox3.Value　'生年月日

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox3.SetFocus
TextBox2.SetFocus
TextBox1.SetFocus

Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

フォームのUserForm1に貼り付け
「閉じる」にする
Private Sub CommandButton2_Click()
Unload UserForm
End Sub

標準モジュールに貼り付ける
「フォーム」を出す

Sub Uform1show()
UserForm1.Show
End Sub

>（例）
>A05のIDをもつ人の新規登録があった場合
>A04とB01の間に登録できますでしょうか？
>
>sheet1
>　　A　　　　 B　　　　C　　　　D　　　 E　　　F　　 G
>1　ID　　　氏名　　生年月日　　年齢　　**　　　*　　 *
>2　A01
>3　A02
>4　A03
>5　A04
>6　B01
>7　B02
>8　B03

4 hits

▼

【24405】登録方法 まこと 05/4/21(木) 17:32