浅析excel vba在中小河流河道水面线分析中的应用

《浅析excel vba在中小河流河道水面线分析中的应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、浅析ExcelVBA在中小河流河道水面线分析中的应用：ExcelVBA是基于Excel的一套程序语言。应用ExcelVBA进行电算是减轻设计人员负担，提高设计效率的有效方法。　　关键词：ExcelVBA；表格；中小河流；水面线；　　Abstract:ExcelVBAisaprogramminglanguagebasedonExcel.ApplicationofExcelVBAelectricregardedasaneffectiveprovedesignefficiency.　　Key;mediumandsmallrivers

2、;theandButton1_Click()　　DimiAsLong定义局部变量i为长整型　　DimjAsLong定义局部变量j为长整型　　i=1附值i=1　　Cells(87,3)=Cells(86,3)-0.5附值表格C87=C86-0.5　　Cells(82,3)=COUNTIF(B8:B20,">=0")-1　　附值表格C82等于B8至B20单元格中非零数值的个数　　Fori=1To790000i循环79万次　　IfRound(Cells(87+j,13),2)=Round(Cells(87+j,19),2)Then　

3、　如果M（87+j）单元格等于M（87+j）单元格，保留两位小数；则移动到下一行进行试算　　j=j+1　　Ifj=Cells(82,3)Then　　如果j等于C82单元格内数值，则退出For循环；　　ExitFor　　EndIf　　Cells(87+j,3)=Cells(86+j,3)-0.5　　结束If条件，附于下一行C（87+j）=C（87+j）-0.5　　Else　　如果M（87+j）单元格不等于M（87+j）单元格，保留两位小数；　　Cells(87+j,3)=Cells(87+j,3)+0.00002　　附于C（87

4、+j）=C（87+j）+0.00002值　　EndIf　　结束If语句，进行For循环　　Nexti　　EndSub　　三、运行调试　　按上述代码编辑完成后，单击“计算”按钮，运行程序；如果程序运行过程中出现死循环，则需检查程序中C87单元格循环起始数据是否过小，调整Cells(87,3)=Cells(86,3)-0.5语句中0.5的数值即可。再点击“计算”按钮，运行程序。