evergreen79的专栏

dim sYear,sMonth,sDay as stringsYear=format(now-1,"yyyy")sMonth=format(now-1,"m")sDay=format(now-1,"d")注释：now是今天的日期和时间，now-1代表昨天的日期和时间，yyyy是年，m是月，d是日

on error go to x正常代码exit subx:错误处理代码resume y: 或 resume next 或resume //处理错误之后，执行什么动作on error go to x，发生错误跳到x:执行 exit sub ,防止无错误也执行 resume y: 跳到y处执行 resume next 继续执行发生错误处的下一句 resume 继续执行发生错误的语句 on error resume next 与 on error go to 0搭配，表示r..

我的电脑配置是windows10教育版，WPS ,VBA6.5，在添加用户窗体后，尝试加控件，结果出现 ：“库没有注册”。我尝试了注册控件，没用；引用控件，也没用。灵机一动，用VBA7.0吧，成功！