Excel VBA質問箱 IV

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

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


30220 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは。

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

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

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

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
0 hits

【51785】コンボボックスで選択したのをシートに。 gori 07/10/4(木) 15:37 質問
【51787】Re:コンボボックスで選択したのをシートに。 Jaka 07/10/4(木) 16:15 発言
【51789】Re:コンボボックスで選択したのをシートに。 gori 07/10/4(木) 17:04 発言
【51790】Re:コンボボックスで選択したのをシートに。 Jaka 07/10/4(木) 17:39 発言
【51802】Re:コンボボックスで選択したのをシートに。 gori 07/10/5(金) 10:04 発言
【51805】Re:コンボボックスで選択したのをシートに。 Jaka 07/10/5(金) 11:11 発言
【51807】Re:コンボボックスで選択したのをシートに。 gori 07/10/5(金) 11:57 発言
【51810】Re:コンボボックスで選択したのをシートに。 Jaka 07/10/5(金) 13:14 発言
【51814】Re:コンボボックスで選択したのをシートに。 gori 07/10/5(金) 15:26 お礼

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