用户表单输入到下一个空单元格不起作用

Question

我设置了一个用户窗体，可以将两个值输入到一个范围内的下一个可用单元格中。代码是：

Private Sub BTNSUBMIT_Click ()

Dim I AsLong
Dim X AsLong

Sheets("Sales").Activate
ActiveSheet.Range("B3").Activate

    Do While IsEmpty(ActiveCell.Offset(I, 0)) = False
        I = I + 1
    Loop

ActiveCell.Offset(I, 0).Value = CBCLIENTS.Value

Sheets("Sales").Activate
ActiveSheet.Range("O3").Activate

    Do While IsEmpty(ActiveCell.Offset(X, 0)) = False
        X = X + 1
    Loop

ActiveCell.Offset(X, 0).Value = TBTONS.Value
End Sub

这些按预期工作通过选择下一个空单元格，写入客户或吨值，并将未来的输入写入下一个空单元格。但是，我尝试对复选框使用相同的代码来输入值，但它不起作用。相反，复选框会一直写在活动单元格的顶部。这是代码：

Private Sub CHKTALCUM_Click()

Dim T As Long

Sheets("Sales").Activate
ActiveSheet.Range("C3").Activate

    Do While IsEmpty(ActiveCell.Offset(T, 0)) = False
        T = T + 1
    Loop

ActiveCell(T, 0).Value = TBTONSCHECK.Value
End Sub

我很茫然。如果有人可以提供一些关于为什么同一代码行不起作用的见解，请不要犹豫回复。

Answer 1

您缺少复选框代码中的 'Offset'

ActiveCell.Offset(X, 0).Value = TBTONS.Value

与

相比

ActiveCell(T, 0).Value = TBTONSCHECK.Value

用户表单输入到下一个空单元格不起作用

Userform input into next empty cell not working

excel

vba

userform