Excel VBA質問箱 IV

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

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


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

30289 / 76807

←次へ　｜　前へ→


	【51785】コンボボックスで選択したのをシートに。

gori - 07/10/4(木) 15:37 -


	引用なし

	パスワード

こんにちは。

超ど級の初心者です。
見よう見まねで作ってみたのですが、思い通りにいきません。

ユーザーフォームにはテキストボックスとコンボボックスがあって
全てに記入したあと、登録ボタンを押すとシートに入力するようにしたいのですが、
登録ボタンを押して、ユーザーフォームを閉じないと反映しないのです。
ユーザーフォームを閉じずに次々と入力していきたいのですが・・・。

全くおかしなコードかもしれませんが、載せてみます。
どうかよろしくお願いします。

Private Sub UserForm_Initialize()
　　'コンボボックス１の設定
　　Me.ComboBox1.BoundColumn = 0

　　Me.ComboBox1.AddItem "10000"
　　Me.ComboBox1.AddItem "20000"
　　Me.ComboBox1.AddItem "30000"
　　Me.ComboBox1.AddItem "40000"
　　Me.ComboBox1.AddItem "50000"
　　Me.ComboBox1.AddItem "60000"
　　Me.ComboBox1.AddItem "70000"
　　
　　'コンボボックス２の設定
　　Me.ComboBox2.BoundColumn = 0

　　Me.ComboBox2.AddItem "100"
　　Me.ComboBox2.AddItem "200"
　　Me.ComboBox2.AddItem "300"
　　Me.ComboBox2.AddItem "400"

End Sub

Private Sub CommandButton1_Click()

　　Application.ScreenUpdating = False

　　Dim a As Long
　　
　　Set WS1 = Worksheets("database")
　　Set WS2 = Worksheets("個人集計")
　　
　　WS1.Select
　
　　a = ActiveSheet.UsedRange.Rows.Count
　　
　'日付
　　Cells(a, 1).Select

　　　　ActiveCell.Offset(1).Select
　　　　ActiveCell = TextBox1.Value
　'採番
　　Cells(a, 2).Select

　　　　ActiveCell.Offset(1).Select
　　　　ActiveCell = TextBox2.Value
　'金額１
　　Cells(a, 3).Select

　　　　ActiveCell.Offset(1).Select
　　　　ActiveCell = Me.ComboBox1.Text
　'金額２
　　
　　Cells(a, 4).Select

　　　　ActiveCell.Offset(1).Select
　　　　ActiveCell = Me.ComboBox2.Text
　　　　

End Sub

0 hits

▼

【51785】コンボボックスで選択したのをシートに。 gori 07/10/4(木) 15:37

≪