用VBA自动计算水准测量的原始数据.docx

用VBA自动计算水准测量的原始数据2007-02-09 17:51:30|分类：默认分类|标签：水准仪原是数据处理计算exce vba |字号大中小订 阅3D5a1009ISO1LI湘电J工拌（E） 诫爵臣）niA 13箱式切 工口⑴ 越范d）由口遡 町肪（W束爭 -ii ■ A / 1!-回£兩節需■ I制斗JL1S. * 虚 2D10.6£|^1山園$"尼2卄附才算起始行 茫烹行器SPQ::帝渕4叡1ft隔35010.62E13剜SH ■1410.62715ZD16 n■OId.56?45GM.r-tf.50QS-. ■:- h --JS .■:.1 i-.irt-ii™ i ：■小更19550:J. LJ20顾10.64$21■22«50■ 1 ・N 1 ■.■ ■ ・s・ W 'J-:x-：■!<■-:■-■ pql!-! Pi!?： ：1- !：'10.62923700丈％朋爲畀血打；24750必启總;10.63?1虫W•阖乩的“狀到「水自池冋醛沅iMKii2GB50lu.BSS27ZT28汕QJO.SOl29馥帥宠n M <*沁廳品卜砂中曲1-屋』手肚止屋丿1"110Option ExplicitPrivate Sub gaocheng()'数据处理代码Dim i, K, PointerDim l_first As Integer, I_end As Integerl_first = Sheet1.Range("H" & 4).ValueI_end = Sheet1.Range("H" & 5).Value'开始行要为转点下一行，且转点前一行高程数据已经计算好.If Sheet1.Range("D" & 1).Value = "1" ThenPointer = MsgBox("数据已经存在，确定覆盖吗？", vbYesNo + vblnformation,"继续？”)If Pointer = vbNo ThenExit SubEnd IfEnd IfK = Sheet1.Range("B" &l_first - 1).Value + Sheet1.Range("C" &l_first - 1).ValueFor i = I_first To I_endIf Trim(Sheet1.Range("A" & i).Value) = "ZD" ThenK = Sheet1.Range("B" & i).Value + Sheet1.Range("C" & i - 1).ValueElseSheet1.Range("C" & i).Value = K - Sheet1.Range("B" & i).ValueEnd IfNext iMsgBox "I LOVE 'VBA'" &vbCrL f& "CopyRight by ZZL" & vbCrLf& "liulangr110@",vblnformation,"高程计算完毕"Sheet1.Range("D" & 1).Value = "1"End SubPrivate Sub Clear()'清除代码Dim iFor i = Sheet1.Range("H" & 4).Value To Sheet1.Range("H" & 5).ValueSheet1.Range("C" & i).Value = EmptyNext iSheet1.Range("D" & 1).Value = EmptyEnd SubSub Macro1()'删除导线点行Dim iFor i = 1 To 445If Left(Trim(Sheet2.Range("A" & i).Value), 1) = "D" ThenRows(i & ":" & i).SelectSelection.Delete SHIFT:=xlUpEnd IfNext iMsgBox "OK"End SubSub Macro2()删除转点行Dim iFor i = 1 To 445If Sheet2.Range("A" & i).Value = "ZD" OrTrim(Sheet2.Range("A" & i).Value) = ""ThenRows(i & ":" & i).SelectSelection.Delete SHIFT:=xlUpEnd IfNext iEnd Sub。