|
すみません。
連続になりますが教えて下さい。
コンボボックスの入力内容をdataというシートに保存したいのですが、
以下のコードだと、毎回列2に書き込まれてしまいます。
2行目、3行目と保存していきたい場合はどうしたら良いのでしょうか?
また、A、B、C、D行に同じ項目があれば自動的に、kosuuだけ足してその
列に保存することは可能でしょうか?
ご教授下さい。
Private Sub CommandButton2_Click()
Dim maker As String
Dim hinnbann As String
Dim atumi As String
Dim sunnpou As String
Dim kosuu As Variant
maker = ComboBox1.Text
hinnbann = ComboBox2.Text
atumi = ComboBox3.Text
sunnpou = ComboBox4.Text
kosuu = ComboBox5.Text
Sheets("data").Select
Range("A2").FormulaR1C1 = maker
Range("B2").FormulaR1C1 = hinnbann
Range("C2").FormulaR1C1 = atumi
Range("D2").FormulaR1C1 = sunnpou
Range("E2").FormulaR1C1 = kosuu
Unload Me
Worksheets("menu").Activate
MsgBox "入力完了", vbOKOnly, SoftName
End Sub
|
|