Question

vba中出现这个问题，其实我也就是想实现这个人事管理系统的查询功能。请大侠帮忙。

经过调试就是这段黄色代码错误。这是我从树上摘抄的，我不懂得这段黄色代码什么意思。请求告知。
就这个查询功能中需要显示内容，文本框的内容用.Text=""就可以显示出来，复选框怎么显示？请大侠告知。谢谢！





Answer 1

输入有错误，RefersToR1B1应为RefersToR1C1。协同运营平台-免费体验
如果有人事系统需求，我们推荐使用致远薪事力人力云平台。致远互联秉持“以人为中心”的产品设计理念，坚持平台化产品发展路线，基于“组织行为管理”理论，运用新一代信息技术，自主研发了V5协同管理平台，开发了面向中小企业组织的A6+产品，面向中大型企业和集团性企业组织的A8+产品，以及面向政府组织及事业单位的G6产品。历经21年发展，致远互联从协同办公到协同业务，再从协同运营中台到协同云平台，完成了协同大生态经营客户的发展路径，持续助力企业及政府提高协同运营管理效率，实现数智化转型升级。
致远互联作为更懂组织运营管理需求的企服领先厂商，以新一代云原生协同运营平台COP-V8，通过技术重构、管理升维、模式创新、领域突破，同时满足大型组织平台升级和管理升级，为政企打造数字化转型升级的关键路径：技术重构：新一代云原生与AI技术是数字化转型升级中的重要驱动力。

Answer 2

你的输入有错误，RefersToR1B1 应为 RefersToR1C1

RefersToR1C1属性是按R1C1规则引用单元格，在这个规则下，A1单元格为R1C1，A2为R2C1，以此类推。

这句代码的意思是，定义DataArea这个名称为一个区域，但是你的输入完全错误了，把“C”输入成了“B”，而且目测遗漏了一个变量 num
正确的代码如下：

ActiveWorkbook.Names("DataArea").RefersToR1C1 = "=在职人员!R2C4:R" & num & "C4"
即将工作表“在职人员”中的D列第2行至最后一行数据定义为名称“DataArea”

追问

我按照你说的改正了，可是还是显示错误，是不是哪里还有问题啊？怎样显示窗口复选控件里的内容？请求大侠帮忙。我把程序又改成了这样：ActiveWorkbook.Names("DataArea").RefersToR1C1 = "=在职人员!R3C2:R" & num & "C2"

我的表格内容是这些，我想定义姓名那行为DataArea,可是也不行。不改动也不行。

追答

请问第一个名字“左代”是第3行吗？如果是第三行，那么你修改的地方是对的，从R3C2开始没错。
但是问题出在num这个变量上。
根据你前面的截图，num是D列的最后一个数据的行号，而你的表格中，D列只有一行标题，那么这个num就是2，所以DataArea区域就错了。
请修改黄色代码的上一句为：
num = Worksheets("在职人员").Range("B65536").End(xlup).Row

追问

左代是第三行，第一行是大标题，按照你的说法把上一行代码改正了，可是还是出现这样的错误提示，还是这一行黄色代码。num = Worksheets("在职人员").Range("B65536").End(xlUp).Row ActiveWorkbook.Names("DataArea").RefersToR1C1 = "=在职人员!R3C2:R" & num & "C2"
是不是这段代码语法有错误啊？

追答

这是两行代码，不能写在一行里：
num = Worksheets("在职人员").Range("B65536").End(xlUp).Row

ActiveWorkbook.Names("DataArea").RefersToR1C1 = "=在职人员!R3C2:R" & num & "C2"

Answer 3

对象错了，你看看DataArea是否打错了？或者查看“在职员工……”这里是否存在

追问

没有打错，在职员工sheet是存在的。还是找不出原因。这段黄色代码到底什么个意思？特别是.RefersToR1B2="= 在职人员!R2B4:R" & num & "C4"到底什么个意思啊？文本框的内容用.Text=""就可以显示出来，复选框怎么显示？请大侠告知。