开源自己第一个VBA程序.docxVIP

开源---自己的第一个VBA程序 分类：VB amp; VBAOffice办公2009-07-08 14:22466人阅读评论(0)收藏举报[vb:firstline[5]]view plaincopyprint?==============================付款协议表计算程序================================= ????故障说明：??1.????001错误！！...无相应匹配公式..请查看表格！ ?????????-----说明??有返利、付款天数为T或U??但没有付款所依据的公式类型?????????-----或者??付款商品类型为所有、付款天数为T或U??但没有付款所依据的公式类型??2.????002错误！！--请核对相应行数据是否存在返利率！！ ??3.????003错误！！--利率值出错！！--请核对相应行数据是否存在返利率！！ ??4.????004错误！！--利率计算超出合法范围！！--只针对0-90天--请核对表格数据！！ ??5.????005错误！！无对应返利！！ ??6??????--其它未定义类型---可能属程序逻辑错误---待测试....... ????================================================================================= ????Option?Explicit??????????强制声明变量，使程序更严谨可靠????Public?location?As?Long??此全局变量用于在子函数查询利率中定位区间????Private?Declare?Function?timeGetTime?Lib?winmm.dll?()?As?Long????Dim?lngStartTime?As?Long?定义时间暂存变量??????***************************************主程序开始************************************************** ??????Sub?付款返利_Click()?????将计算明细表和付款协议表联合生成计算表????lngStartTime?=?timeGetTime??取时间???????fTimeCount???计时开始??????Dim?i?As?Long,?j?As?Long,?q?As?Long,?Max?As?Long,?p?As?Long,?mex?As?Long,?num?As?Long,?lilv?As?Single????变量说明：?????i--在循环中定位计算明细表的行数?????j--在循环中定位付款协议表的行数?????q--在循环中定位新生成的计算表的行数?????Max--存储计算明细表的数据行数?????mex--存储付款协议表的数据行数?????num--存储计算出的付款天数?????lilv--存储计算出的利率值????????????????Sheet3.Range(AE1)?=?Format(Now(),?hh:mm:ss.ms)??另一种计时方式设置初始计时器???????????Max?=?Sheets(计算表).Cells(1,?6).Value???取值??????mex?=?Sheets(计算表).Cells(1,?7).Value????????p?=?3????????????Application.ScreenUpdating?=?False?循环开始前先关闭屏幕刷新，节省运算时间---注意当进行大量计算时屏幕刷新和耗费资源??????????????????????????????????================================开始嵌套循环===================================== ????????For?i?=?2?To?Max??????该处循环遍历计算明细表--外循环??????????????????For?j?=?2?To?mex??该处循环遍历付款协议表--内循环?????????????????????DoEvents?该命令可使循环在运行时也可进行其他操作,但会影响速度！！少用??????????????????????If?Sheet1.Range(Y??i).Value?=?Sheet2.Range(A??j).Value?And?Sheet2.Range(X??j).Value??*?Then????该处判断两表中供应商的ID号必须相同????????????????????????==有商品ID对应的== ?????????????If?Sh