我正在尝试使用vba将表单值插入到我的 Excel 电子表格中,但我当前的代码正在将值插入到同一行中。
- 由于我的表从第 3 行开始,我想从那里开始,并通过每次自动转移到下一行来继续。行已经设置,我不想插入新行但会覆盖当前的“空”行。
- 当输入 202 行(可用的最大行数)时,我希望电子表格返回一个错误消息对话框。
我怎样才能实现这一目标?
当前代码
Private Sub btnSubmit_Click()
Dim ws As Worksheet
Set ws = Worksheets("main")
' Copy the data to the database
ws.Rows("4:4").Insert Shift:=xlDown
ws.Range("A3").Value = cbo_deptCode.Value
MsgBox ("Booking request has been successfully made")
End Sub