如何在RibbonX的动态下拉列表中使用VBA中的最后一行来计算要提供的项数，而不是给出常量值？

Question

我在Excel customUI中有两个下拉列表。第一个下拉列表使用.End(xlUp)计数项目数，而在第二个下拉列表中，项目数量直接给出为5，即returnedVal2 =5。第一个下拉Getitemcount1在使用.End(xlUp)公式时给出了错误。但是在第二个下拉列表中，因为returnedVal2=5是直接写的，所以没有错误。这里错误的原因是什么？

Sub GetItemCount1(control1 As IRibbonControl, temp As Long, ByRef returnedVal1)
 Dim varItems As Long
varItems = Sheet1.Cells(Rows.Count, "A").End(xlUp) - 3
returnedVal1 = varItems
End Sub

Sub GetItemLabel1(control1 As IRibbonControl, index1 As Integer, ByRef returnedVal1)
returnedVal1 = Sheet1.Cells(index1 + 4, "A").Value
End Sub

Sub GetItemCount2(control2 As IRibbonControl, ByRef returnedVal2)
returnedVal2 = 5
End Sub

Sub GetItemLabel2(control2 As IRibbonControl, index2 As Integer, ByRef returnedVal2)
returnedVal2 = Sheet1.Cells(index2 + 4, "B").Value
End Sub

Answer 1

Sheet1.Cells(Rows.Count, "A").End(xlUp)是一个单元格结构。区域和varItems = Sheet1.Cells(Rows.Count, "A").End(xlUp) - 3将返回单元格的值，如果Sheet1.Cells(Rows.Count, "A").End(xlUp)的内容是文本，则减去3将无法工作。您可能需要行号，即Sheet1.Cells(Rows.Count, "A").End(xlUp).Row

，PS，，如果您能更多地介绍错误，将是有帮助的。仅仅说出错误是没有帮助的。您可能会得到一个运行时错误13，但这只是猜测。