使用VBA在Excel中创建表单

时间:2017-03-31 13:08:39

标签: excel vba excel-vba

我正在尝试使用VBA在excel中创建一个表单,但我仍然坚持使用Code。我需要找到使用VBA表单向我的工作表输入数据的代码。这是我正在使用的代码,但不起作用..

Private Sub cmdAdd_Click()

Dim LastRow As Range
Dim DPDIAdhocRequestTable As ListObject


With LastRow

    Cells(1, 2) = RequesterName.Value
    Cells(1, 3) = RequesterPhoneNumber.Value
    Cells(1, 4) = RequesterBureau.Value
    Cells(1, 5) = DateRequestMade.Value
    Cells(1, 6) = DateRequestDue.Value
    Cells(1, 7) = PurposeofRequest.Value
    Cells(1, 8) = ExpectedDataSaurce.Value
    Cells(1, 9) = Timeperiodofdatarequested.Value
    Cells(1, 10) = ReoccuringRequest.Value
    Cells(1, 11) = RequestNumber.Value
    Cells(1, 12) = AnalystAssigned.Value
    Cells(1, 13) = AnalystEstimatedDueDate.Value
    Cells(1, 14) = AnalystCompletedDate.Value
    Cells(1, 15) = SupervisiorName.Value

End With


End Sub

你能帮我弄清楚输入命令的正确代码吗?

非常感谢你的帮助。

2 个答案:

答案 0 :(得分:1)

正如@Adam所说 - 你创建了LastRow而没有将它分配给任何东西  我猜这是你想要将数据粘贴到下一行,所以它应该是一个Long持有行号而不是对单元格的实际引用。

在下面的代码中,您可以通过添加Me.来限定表单控件,例如Me.RequesterName.Value
https://msdn.microsoft.com/en-us/library/office/gg251792.aspx

Private Sub cmdAdd_Click()

    Dim wrkSht As Worksheet
    Dim LastRow As Long

    'The sheet you want the data to go into.
    Set wrkSht = ThisWorkbook.Worksheets("Sheet1")

    'You're after the last row number, rather than referencing the range so LastRow is a Long.
    'This looks for the last cell containing data in column A (the 1 in 'Cells(...)').
    LastRow = wrkSht.Cells(Rows.Count, 1).End(xlUp).Row + 1

    'With... End With block.  Cells is preceded by a '.' notation - indicating it's referencing the 'With wkrSht'#
    'https://msdn.microsoft.com/en-us/library/wc500chb.aspx
    With wrkSht

        'Using LastRow as row number in cell reference.
        .Cells(LastRow, 2) = RequesterName.Value

        'Before adding dates to the sheet you might want to check that the
        'user entered a date and not rubbish.
        .Cells(LastRow, 5) = DateRequestMade.Value
        'You could use CDATE to force it to a date - will try and coerce the entered text into a date.
        'Note - 1 will be changed to 01/01/1900 (so will need to add extra code to check it really is a date).
        .Cells(LastRow, 5) = CDate(DateRequestMade.Value)

    End With

End Sub

答案 1 :(得分:0)

第一个问题是您创建了一个名为Range的{​​{1}},但尚未为其指定任何内容。

LastRow

第二个问题是'Declaration Dim LastRow As Range 'Assigns the last row based on the last item in Column A Set LastRow = Range("A" & Rows.Count).End(xlUp).Row With LastRow ... End With 块中的次要语法错误。

With LastRow

应该是

 With LastRow
      Cells(x,y).Value = "Foo"
 End With

这与说 With LastRow .Cells(x,y).Value = "Foo" End With 基本相同。没有“。”在LastRow.Cells(x,y).Value = "Foo" VBA前面不会将Cells()应用于该对象,并假设您的意思是With