Question

我正在尝试创建一个跟踪表（Sheet1），其中信息在一个记录中被跟踪，然后使用一个按钮，＆＃34;更新＆＃34;它将此信息传输到＆＃34; Sheet2＆＃34;这将是一份月度报告。

我在第2页有8列标题。

第一页是我在我的更新按钮所在的单元格中输入数据的地方。

以下是我的代码，我只使用了一列：

Private Sub CommandButton1_Click()

Dim SerialNumber As String
Worksheets("Calibration Record").Select
SerialNumber = Range("E5")
Worksheets("Monthly Due Report").Select
Worksheets("Monthly Due Report").Range("A2").Select

If Worksheets("Monthly Due Report").Range("A2").Offset(1, 0) <> "" Then
    Worksheets("Monthly Due Report").Range("A2").End(x1down).Select
End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = SerialNumber

Worksheets("Calibration Record").Select
Worksheets("Calibration Record").Range("A2").Select
End Sub

我也尝试了所有8列无济于事。

我能够使用上面显示的代码使其工作一次。

当我输入第二行信息的数据时，它给了我＆＃34;运行时错误＆＃39; 1004＆＃39;。应用定义或对象定义的错误。

我已经使用了近一个月，我无法弄清楚我做错了什么。我甚至在YouTube上看过Dinesh Kumar Takya的视频都无济于事。

我已经按照他做了很多次的所有事情，我仍然可以让它工作一次，但之后我得到了运行时错误。

Answer 1

抱歉没有足够的意见（任何）发表评论但很确定你在该代码段中有x1down而不是xlDown。如果没有执行该代码但是会抛出错误，第一次会工作。看起来像是一个错字。

尝试创建允许在一个页面中键入数据的代码excel记录在第二页中创建报告

1 个答案: