使用Offset和TextBox.Value在2列之间输入

Question

我正在尝试使用ActiveCell.Offset功能。我对使用A列作为我的基础的代码感到有些困惑。

我不想输入新行。我想从1号开始，而不是跳到空行。

我的代码如下。

Private Sub CommandButton1_Click()

Dim rng As Range
Set rng = Range("A2:A2")

If TextBox1.Value = "" Then
    If MsgBox("Form is not complete. Do you want to continue?", vbQuestion+vbYesNo) <> vbYes Then
    Exit Sub
End If
End If

ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 5) = TextBox3.Value

ActiveCell.Offset(1, 0).Select

End Sub

Answer 1

您似乎正在设置范围

Set rng = Range("A2:A2") 

并且不在sub中的任何地方使用rng。此外，您似乎将您的偏移量基于ActiveCell，但没有在sub中选择明确的ActiveCell（当然，您可以在例程之外选择它），这使我怀疑这个'rng'是您想要的Active cell。如果是这种情况，那么您需要通过激活单元格来激活ActiveCell。