Excel VBA質問箱 IV

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

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


57051 / 76732 ←次へ | 前へ→

【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

0 hits

【24405】登録方法 まこと 05/4/21(木) 17:32 質問
【24407】Re:登録方法 ni 05/4/21(木) 17:49 発言
【24421】Re:登録方法 YN61 05/4/21(木) 21:34 回答
【24491】Re:登録方法 Hirofumi 05/4/23(土) 7:16 回答
【24496】Re:登録方法 まこと 05/4/23(土) 10:26 質問
【24497】Re:登録方法 Hirofumi 05/4/23(土) 11:41 回答
【24498】Re:登録方法 Hirofumi 05/4/23(土) 11:48 回答
【24506】Re:登録方法 まこと 05/4/23(土) 17:39 質問
【24508】Re:登録方法 Hirofumi 05/4/23(土) 19:04 回答
【24509】Re:登録方法 Hirofumi 05/4/23(土) 19:14 発言
【24511】Re:登録方法 まこと 05/4/23(土) 20:36 お礼
【24510】Re:登録方法 YN61 05/4/23(土) 20:03 発言
【24514】Re:登録方法 サラリーマン 05/4/23(土) 22:27 発言
【24515】Re:登録方法 サラリーマン 05/4/23(土) 22:29 質問
【24517】Re:登録方法 Hirofumi 05/4/23(土) 23:15 回答
【24523】サラリーマンさんの質問について Hirofumi 05/4/24(日) 7:05 発言
【24524】Re:サラリーマンさんの質問について サラリーマン 05/4/24(日) 8:02 発言

57051 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free