我在代码的最后一行遇到问题。我认为问题在于我如何设置我的范围,但我还没有设置它的方式。我尝试通过确保填写用户表单中的所有字段,然后继续使用宏来进行错误检查。
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)))
答案 0 :(得分:0)
您需要将范围语句中的所有单元格和范围限定为同一工作表。
在此代码示例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