100 测量水准VBA转点代码

那个哥哥,能给个水准转点代码,给红包,

站长个人微信号:17350562750 之前没加过佬雷的,请加下。筹备建微信群
请先 登录 后评论

2 个回答

李琰 - 基础建设工程(水利、市政、建筑)

编写程序输入点号及测角,具体代码如下:

Sub jisuan1f()

Dim cName, cJ As String

Dim n, i As Integer

Dim ws As Worksheet

   Set ws = ThisWorkbook.Worksheets("sheet1")

Dim rName, rj As Range

   n = InputBox("请输入测站数: ", "测站数")

      Static nRow As Integer

      nRow = 6

   For i = 1 To n

      Set rName = ws.Cells(nRow, 1)

      cName = InputBox("请输入第" & i & "站名称", "测站点")

      rName.Value = cName

      Set rj = ws.Cells(nRow + 1, 2)

      cJ = InputBox("请输入第" & i & "站测角---" & cName, "观测角")

         rj.Value = dfm1(cJ)

      nRow = nRow + 2

   Next i

   ThisWorkbook.Worksheets("sheet1").Range("v8").Value = n

End Sub

不知道是不是你想要的

请先 登录 后评论
晨曦

http://www.docin.com/touch/detail.do?id=1538360678这个感觉应该就是你要的,你可以复制代码

请先 登录 后评论
  • 2 关注
  • 0 收藏,348 浏览
  • 提出于 2019-05-19 18:00

相似问题