|
こんにちは。かみちゃん です。
> 登録ボタン(cmd_Click)をクリックすると同時に4.から8.までのデータが8行
> 以降1行ずつ追加されるという形で仕入品管理表に転記されるようにしたい
登録ボタンがCommandButton1
仕入品管理表がSheet1
とした場合、以下のようなコードをUserFormモジュールに記述することでできると思います。
ただし、以下のように7行目には、タイトルを記述しておいてください。
特に、A7セルの値は、重要です。最終行を決めているポイントになっています。
A B C D E F G
6
7 科目番号 取引先 商品名 数量 仕入金額
8
Private Sub CommandButton1_Click()
With Sheets("Sheet1")
.Range("A3").Value = Me.ComboBox1.Value
.Range("D3").Value = Me.TextBox2.Value
.Range("E3").Value = Me.TextBox3.Value
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = Me.ComboBox2.Value
.Offset(, 3).Resize(, 4).Value = _
Array(Me.TextBox4.Value, _
Me.TextBox5.Value, _
Me.TextBox6.Value, _
Me.TextBox7.Value)
End With
End With
End Sub
|
|