Question

VBA运行出错提示:显示子过程或函数未定义,怎么办?

Private Sub 添加_Click()Dim Ole As Object'性别For Each ar In Array("男", "女")Set Ole = Sheet1.OLEObjects(ar).ObjectIf Ole.Value Then xb = arEnd IfNextarr = Array(日期.Value, 姓名.Value, xb, 年龄.Value, 电话.Value, hk.Value, 客户类型.Value, 顾客来源.Value, 二级来源.Value, 来源二(介绍人).Value, 登记客服.Value, 医生.Value, 洁牙师.Value, 初复诊.Value, 所属项目.Value, 当日诊疗.Value, 成交状态.Value, 是否添加微信.Value, 病历有无.Value, 当日随访有无.Value, 系统咨询记录有无, 洁牙转诊至医生.Value, 预约途径.Value, 点诊医生.Value, 当日实收费用.Value, 洁牙费用.Value, 洁牙转化费.Value, 社保卡.Value, 现金.Value, pos机.Value, 充值划扣.Value, 团购.Value, 现金券.Value, 充值赠送.Value, 欠费.Value, 印象备注.Value, 未成交项目.Value, 未成交原因.Value, 回访日期.Value, 回访详情.Value, 是否满意.Value, 二次开发项目.Value, 二开详细情况.Value, 咨询师.Value)End Sub





Answer 1

控件名称使用了”( )“这个数组或者函数用的符号，程序编译时会理解为一个数组或者函数，如果代码没有定义这个数组名或者函数名，则报错；如果刚好定义了这个名称，则会得出错误的结果，很难在运行中发现。

一般情况下，窗体控件的名称应尽量简化，或者有一定规则避免出错。系统关键字、符号不要用在自定义名称里。