VBA中的预期结束子

Question

我刚开始使用VBA并且知之甚少。猜测错误与多个潜艇有关，而不是正确地声明和定义它们：

在代码片段中，我尝试允许用户输入“苹果和梨”的数量，然后能够计算总数并将其导出回Excel工作表。

任何帮助都将非常感谢 - 谢谢！

Private Sub calculateButton_Click()
Private Sub calculation()


Dim applesCalculation As String
Dim pearsCalculation As String
Dim newRow

applesCalculation = applesTextbox.Text
pearsCalculation = pearsTextbox.Text

calculation = applesCalculation + pearsCalculation

newRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1

End Sub

Answer 1

错误是因为您的代码底部有两个Sub，代码底部只有一个End Sub。
如果您想在点击按钮后运行代码，请从代码中删除Private Sub calculation()行 另一件事是你试图连接字符串，而不是添加苹果和梨的数量。

---

我认为，如果您查看一些VBA教程，我们不会尝试修复您的代码。

指向教程的链接

1. http://www.excelfunctions.net/Excel-VBA-Tutorial.html
2. https://www.youtube.com/user/ExcelVbaIsFun
3. https://www.youtube.com/watch?v=ABXPb0qnKUY

其他来源

1. https://msdn.microsoft.com/en-us/library/office/ff194068.aspx
2. VBA帮助功能（F1）

---

当然，我们愿意帮助你，并乐意这样做，但这些都是你缺少的基础知识。如果你仍然被卡住，我建议你稍后回来。

Answer 2

分析以下提示：

Private Sub calculateButton_Click()
   calculation
end Sub

Private Sub calculation()
   Dim applesCalculation As Long
   Dim pearsCalculation As Long
   Dim newRow

   applesCalculation = val(applesTextbox.Text)
   pearsCalculation = val(pearsTextbox.Text)

   calculation = applesCalculation + pearsCalculation

   newRow = cells(rows.count,1).end(xlup).row + 1
   Thisworkbook.Worksheets(1).Range("A" & newRow).value= newRow

End Sub