Question

我在代码的最后一行遇到问题。我认为问题在于我如何设置我的范围，但我还没有设置它的方式。我尝试通过确保填写用户表单中的所有字段，然后继续使用宏来进行错误检查。

Dim emptyRowNumber As Long
emptyRowNumber = Application.WorksheetFunction.CountA(Sheets("Leads").Range("a:a")) + 1
.
.
.
Dim filledCount As Integer
filledCount = Application.WorksheetFunction.CountA(Sheets("Leads").Range(Cells(emptyRowNumber, 1), Cells(emptyRowNumber, 11)))

Answer 1

您需要将范围语句中的所有单元格和范围限定为同一工作表。

在此代码示例tabLayout.addTab(tabLayout.newTab().setText("Tab1").setIcon(R.mipmap.ic_launcher));和Cells(emptyRowNumber, 1)中，引用ActiveSheet上的单元格而不是Cells(emptyRowNumber, 11)的单元格。

表格（“潜在客户”）。范围（单元格（emptyRowNumber，1），单元格（emptyRowNumber，11））

个人偏好我按照数据类型（数字，字符串，对象等）按字母顺序将所有变量分组到我的程序顶部。我还建议使用Sheets("Leads")语句来缩短代码。

With

使用来自不同工作表的数据设置变量

1 个答案: