Excel VBA 質問スレ Part64

[917 デフォルトの名無しさん (ﾜｯﾁｮｲ eb94-o1n2) 2020/03/09(月) 01:40:02.32 ID:7fIcR6pI0]

現在の入力フォームはこのようは形です。
Private Sub btnEntry_Click()
Dim rv As Integer
r = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Worksheets("商品マスタ").Range("A" & r).Value = r - 1
Worksheets("商品マスタ").Range("B" & r).Value = txtGoods.Text
txtGoods.Value = ""
txtGoods.SetFocus
End Sub