Question

我正在尝试创建一个可以在同事之间分发的Excel工作表，该工作表将用于记录各项工作的完成情况。

在此我一行包含5个字段：

| Ref No. | Category | Task Name | Task Notes | Timestamp | 
|   5     |  Sales   | Create Ad | blah blah  | now       |

这个想法是让某人填写这些详细信息，写下有关他们完成的任务的更多详细信息，然后按下按钮，然后将该行擦除干净（最好），然后将值复制到这些行的列表中只是降低了几格。

| Ref No. | Category | Task Name | Task Notes | Timestamp | 
|   #     |  Select  |   Blank   | - Blank -  |           |

              | <Button> |


| Ref No. | Category | Task Name | Task Notes | Timestamp | 
|   2     |  Sales   | xxxxxxxxx | blah blah  | xxx       |
|   3     |  Sales   | xxxxxxxxx | blah blah  | xxx       |
|   4     |  Sales   | xxxxxxxxx | blah blah  | xxx       |
|   5     |  Sales   | Create Ad | blah blah  | now       |

由于显然需要学习工作，因此我才刚刚开始使用VBA，但是我一直在尝试使用这段代码，我不久前在这里找到了该代码，但似乎找不到源。 / p>

Private Sub CommandButton1_Click()

Sub copydata()
    Dim lrow As Long
    lrow = Sheets("Activity").Cells(Rows.Count, 3).End(xlUp).Row
    With Sheets("Activity")
        .Range("B3:F3").Copy
        .Range("B" & lrow + 1).PasteSpecial xlPasteValues
    End With
End Sub

运行代码时，关闭VBA编辑器，然后按一下按钮，我得到错误提示：

编译错误：预期结束子

我试图进行故障排除，但是所有的“修复”都指出没有错。

感谢您的帮助。我已经报名参加了VBA的udemy课程，但是想尽快解决这个问题。

Answer 1

因为您试图将潜艇放入潜艇中

Private Sub CommandButton1_Click()
Sub copydata()

因此，在开始一个新子CommandButton1_Click之前结束第一个子Private Sub CommandButton1_Click() 'some code End Sub Sub copydata() Dim lrow As Long lrow = Sheets("Activity").Cells(Rows.Count, 3).End(xlUp).Row With Sheets("Activity") .Range("B3:F3").Copy .Range("B" & lrow + 1).PasteSpecial xlPasteValues End With End Sub

Sub

或者踢掉System.out.println("tok's val: "+tok);行之一。

使用按钮在表格底部追加一行

1 个答案: