限制从userform发送到Excel工作表的数据数量

Question

我创建了一个程序，可以将用户窗体中的员工添加到Excel工作表中。通过使用Offset属性，我可以将员工添加到下一个单元格区域。但是，如何限制我可以添加的员工数量？就像我已经雇佣了10名员工（限制为10名员工），然后我在userform中输入了数据，因此我可以雇用第11名员工，将出现一个msgbox，数据不会发送到excel表。我尝试过If条件声明，但无效。

Answer 1

使用Application.WorksheetFunction.CountA（）函数计算您输入的所有员工姓名。

例如，

' Change "Sheet1" and "A1:A20" to match your sheet name and employee name column
if Application.WorksheetFunction.CountA(Sheets("Sheet1").Range("A1:A20")) = 10 then
    Msgbox "Employee name exeeded the limit."
    exit sub
endif