VBA中的预期端点子节点

我刚刚开始使用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

---

错误是因为在代码的顶部有2个

Sub

，而底部只有1个

End Sub

。
如果要在单击按钮后运行代码，请从代码中删除

专用子计算（）

行。
另一件事是，您正在尝试连接字符串，而不是添加苹果和梨的数量

---

我认为与其我们尝试修复代码，不如看一些VBA教程

教程的链接

其他来源

VBA帮助功能（F1）

---

---

当然，我们愿意帮助你，也会很乐意帮助你，但这些都是你真正缺少的基础。如果您仍然卡住，我鼓励您稍后再来。

错误是因为您的代码顶部有2个

Sub

，底部只有1个

End Sub

。
如果要在单击按钮后运行代码，请从代码中删除

专用子计算（）

行。
另一件事是，您正在尝试连接字符串，而不是添加苹果和梨的数量

---

我认为与其我们尝试修复代码，不如看一些VBA教程

教程的链接

其他来源

VBA帮助功能（F1）

---

---

当然，我们愿意帮助你，也会很乐意帮助你，但这些都是你真正缺少的基础。如果您仍然卡住，我鼓励您稍后再来。

错误是因为您的代码顶部有2个

Sub

，底部只有1个

End Sub

。
如果要在单击按钮后运行代码，请从代码中删除

专用子计算（）

行。
另一件事是，您正在尝试连接字符串，而不是添加苹果和梨的数量

---

我认为与其我们尝试修复代码，不如看一些VBA教程

教程的链接

其他来源

VBA帮助功能（F1）

---

---

当然，我们愿意帮助你，也会很乐意帮助你，但这些都是你真正缺少的基础。如果您仍然卡住，我鼓励您稍后再来。

错误是因为您的代码顶部有2个

Sub

，底部只有1个

End Sub

。
如果要在单击按钮后运行代码，请从代码中删除

专用子计算（）

行。
另一件事是，您正在尝试连接字符串，而不是添加苹果和梨的数量

---

我认为与其我们尝试修复代码，不如看一些VBA教程

教程的链接

其他来源

VBA帮助功能（F1）

---

---

当然，我们愿意帮助你，也会很乐意帮助你，但这些都是你真正缺少的基础。如果您仍然卡住，我鼓励您稍后再来。

分析以下提示：

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

---

分析以下提示：

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

---

分析以下提示：

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

---

分析以下提示：

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

---

我认为你来自c#，你需要一些其他语法。阅读一些初学者指南，因为这是您缺少的基础知识。我认为您来自c#，需要一些其他语法。阅读一些初学者指南，因为这是您缺少的基础知识。我认为您来自c#，需要一些其他语法。阅读一些初学者指南，因为这是您缺少的基础知识。我认为您来自c#，需要一些其他语法。阅读一些初学者指南，因为这是你所缺少的基本知识。我认为

newRow=cells（rows.count，1）.end（xlup）.row+1

是找到下一个空白单元格的更好方法

Application.WorksheetFunction.CountA（范围（“A:A”））

仅当序列从第1行开始时有效。该函数统计在不考虑位置的情况下使用的行数。很好。我认为

newRow=cells（rows.count，1）.end（xlup）.row+1

是找到下一个空白单元格的更好方法

Application.WorksheetFunction.CountA（范围（“A:A”））

仅当序列从第1行开始时有效。该函数统计在不考虑位置的情况下使用的行数。很好。我认为

newRow=cells（rows.count，1）.end（xlup）.row+1

是找到下一个空白单元格的更好方法

Application.WorksheetFunction.CountA（范围（“A:A”））

仅当序列从第1行开始时有效。该函数统计在不考虑位置的情况下使用的行数。很好。我认为

newRow=cells（rows.count，1）.end（xlup）.row+1

是找到下一个空白单元格的更好方法

Application.WorksheetFunction.CountA（范围（“A:A”））

仅当序列从第1行开始时有效。该函数统计使用的行数，而不考虑位置。