Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
カタログを埋める必要があります。
これを入力したいのですがUserform、ボタンをクリックするとadd new product値がTextboxes特定の列に挿入されます
Userform
add new product
Textboxes
Private Sub CommandButton1_Click() Sheet3.Cells.Rows.Insert Sheet3.Cells(25, 27).Value = TextBox1.Value End Sub
これはあなたがしようとしていることですか?
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