用户input到下一个空单元格不工作

我已经build立了一个用户窗体，将两个值input到一个范围内的下一个可用单元格。 这个代码是：

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 

这些按照预期工作，select下一个空单元格，写入客户端或吨值，并将未来input写入下一个空单元格。 不过，我试图使用相同的代码checkboxinput一个值，它不起作用。 相反，checkbox会一直写入活动单元格的顶部。 代码如下：

 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

您错过了checkbox代码中的“偏移量”

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

相比

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