内容录入到表格中

王子宇

怎么将窗体里的内容录入到表格中，每次添加都是到最后一行数据的下一行

excel玉米

窗体代码
Private Sub CommandButton1_Click()
   Dim yg_row%
   yg_row = Sheet2.Cells(Rows.Count, 1).End(3).Row
   For i = 1 To 4
     Sheet2.Cells(yg_row, i) = Controls("TextBox" & i).Value
   Next
End Sub
模块1代码：
Sub yuangong()
   员工管理.Show
End Sub

donghui2363

你试试，字数不够再试试

王子宇

excel玉米 发表于 2019-12-1 08:49
窗体代码
Private Sub CommandButton1_Click()
   Dim yg_row%

好像不能连续输入，要输入第二个得退出来在进哦

王子宇

donghui2363 发表于 2019-12-1 08:51
你试试，字数不够再试试

非常感谢，要的就是这效果。