Question

我已经创建了一个userform，但我无法每次都将数据从它填充到下一行，它总是填充同一行。

这是我目前的代码：

Private Sub btnivesti_Click()
    Dim ssheet As Worksheet

    Set ssheet = ThisWorkbook.Sheets("Lapas1")

    ssheet.Cells(3) = CDate(Me.tddate)
    ssheet.Cells(1) = Me.cmblistitem
    ssheet.Cells(4) = Me.tbpo
    ssheet.Cells(6) = Me.tbkodas
    ssheet.Cells(8) = Me.tbkiekis

End Sub

Private Sub UserForm_Initialize()
    Me.tddate = Date

    'fill drop box

    For Each cell In [listas1]
        Me.cmblistitem.AddItem cell
    Next cell

End Sub

Answer 1

您当前的代码引用了手机号码。单元编号通过单独计数单元格数来确定单元格位置（第1行的单元格编号从1到16384，第2行从16385到32768等），这是非常低效的。相反，您应该引用要放置数据的行和列。

由于您希望将新数据填充到新行，因此请获取包含数据的最后一行的位置并按1递增。试试这个：

location / {
    try_files $uri $uri/ /index.php;
}

将数据从用户表单填充到下一行

1 个答案: