|
▼まこと さん:
>フォームより登録ができるようにしているのですが例の通りに挿入?できるように
>したいのですが、宜しくお願いします。
→→これは、昇順で並べ替えが簡単に出来ますが…
入力フォームを
作成してみました、一度ご検討ください。
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
|
|