0

カタログを埋める必要があります。

これを入力したいのですがUserform、ボタンをクリックするとadd new product値がTextboxes特定の列に挿入されます

Private Sub CommandButton1_Click()

 Sheet3.Cells.Rows.Insert
 Sheet3.Cells(25, 27).Value = TextBox1.Value



End Sub
4

1 に答える 1

2

これはあなたがしようとしていることですか?

Private Sub CommandButton1_Click()
    With Sheet3
        '~~> Insert row at the 25th row.
        .Rows(25).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        '~~> Add textbox value
        .Cells(25, 27).Value = TextBox1.Value
    End With
End Sub
于 2013-02-19T10:58:31.483 に答える