|
こんにちは。
超ど級の初心者です。
見よう見まねで作ってみたのですが、思い通りにいきません。
ユーザーフォームにはテキストボックスとコンボボックスがあって
全てに記入したあと、登録ボタンを押すとシートに入力するようにしたいのですが、
登録ボタンを押して、ユーザーフォームを閉じないと反映しないのです。
ユーザーフォームを閉じずに次々と入力していきたいのですが・・・。
全くおかしなコードかもしれませんが、載せてみます。
どうかよろしくお願いします。
Private Sub UserForm_Initialize()
'コンボボックス1の設定
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"
'コンボボックス2の設定
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
'金額1
Cells(a, 3).Select
ActiveCell.Offset(1).Select
ActiveCell = Me.ComboBox1.Text
'金額2
Cells(a, 4).Select
ActiveCell.Offset(1).Select
ActiveCell = Me.ComboBox2.Text
End Sub
|
|