导线平差11585.docVIP

导线平差.txt小时候觉得父亲不简单，后来觉得自己不简单，再后来觉得自己孩子不简单。越是想知道自己是不是忘记的时候，反而记得越清楚。Sub 单一附合导线平差计算() Dim sel_R As String UserForm2.Show End Sub Private Sub CommandButton1_Click() Private Sub CommandButton2_Click() Dim STR1 As String Dim STR2 As String For i = 2 To 60 Step 2 STR1 = A + CStr(i) STR2 = A + CStr(i + 1) Call CELL_HB(STR1, STR2) STR1 = B + CStr(i) STR2 = B + CStr(i + 1) Call CELL_HB(STR1, STR2) STR1 = C + CStr(i) STR2 = C + CStr(i + 1) Call CELL_HB(STR1, STR2) STR1 = J + CStr(i) STR2 = J + CStr(i + 1) Call CELL_HB(STR1, STR2) STR1 = K + CStr(i) STR2 = K + CStr(i + 1) Call CELL_HB(STR1, STR2) STR1 = D + CStr(i + 1) STR2 = D + CStr(i + 2) Call CELL_HB(STR1, STR2) STR1 = E + CStr(i + 1) STR2 = E + CStr(i + 2) Call CELL_HB(STR1, STR2) STR1 = F + CStr(i + 1) STR2 = F + CStr(i + 2) Call CELL_HB(STR1, STR2) STR1 = G + CStr(i + 1) STR2 = G + CStr(i + 2) Call CELL_HB(STR1, STR2) STR1 = H + CStr(i + 1) STR2 = H + CStr(i + 2) Call CELL_HB(STR1, STR2) STR1 = I + CStr(i + 1) STR2 = I + CStr(i + 2) Call CELL_HB(STR1, STR2) Next End Sub Public Sub CELL_FJ(CELL_ALL As String) Macro4 Macro 宏由 hgq 录制，时间: 2009-7-30 Range(CELL_ALL).Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With Selection.UnMerge End Sub Private Sub CommandButton1_Click() Dim i As Integer Dim N As Integer Dim x1 As Double Dim y1 As Double Dim x2 As Double Dim y2 As Double Dim x3 As Double Dim y