2013 年 10月 16 日随笔档案 - tsliudong

2013年10月16日

摘要： VBA语句集(第1辑)定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为1(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置(4) On Error GoT 阅读全文

posted @ 2013-10-16 22:50 tsliudong 阅读(638) 评论(0) 推荐(0) 编辑

vba比较日期大小，定义日期；vba让excel保存

摘要： Private Sub CommandButton1_Click()Dim i, j As IntegerDim a As Datea = #10/1/2013#j = 2i = 2' If Worksheets("改后B").Range("a" & CStr(i)) = Worksheets("改后A").Range("a" & CStr(j)) And Worksheets("改后B").Range("b" & CStr(i)) = Wor 阅读全文

posted @ 2013-10-16 21:46 tsliudong 阅读(9055) 评论(0) 推荐(0) 编辑