Question

我已经设置了一个Userform，它将两个值输入到范围中的下一个可用单元格中。代码是：

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

通过选择下一个空单元格，写入客户端或ton值，以及将未来输入写入下一个空单元格，可以正常工作。但是我尝试使用相同的代码来复选框输入值，但它不起作用。相反，复选框会一直写在活动单元格的顶部。这是代码：

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

您错过了复选框代码中的“偏移量”

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

与

相比

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

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

1 个答案: