【文件属性】:
文件名称:沉降观测数据excel程序
文件大小:734B
文件格式:TXT
更新时间:2015-10-26 09:03:00
程序
Sub 录入数据()
Dim i As Integer, j As Integer, k As Integer
Dim m As Integer, n As Integer
m = InputBox("请输入:", "输入")
n = m - 1
j = 5
i = 8
k = 6
Do While i <= 38
i = i + 3
j = j + 1
Sheets(m).Cells(j, 3) = Right(Sheet1.Cells(i, 4), 5) / 100000
If m = 2 Then
Sheets(m).Cells(j, 2) = Sheets(m).Cells(j, 3)
End If
If n >= 2 Then
Sheets(m).Cells(j, 4) = Sheets(m).Cells(j, 3) - Sheets(n).Cells(j, 3)
Else
Sheets(m).Cells(j, 4) = Sheets(m).Cells(j, 3) - Sheets(m).Cells(j, 2)
End If
Sheets(m).Cells(j, 2) = Sheets(2).Cells(j, 2)
Sheets(m).Cells(j, 5) = Sheets(m).Cells(j, 3) - Sheets(2).Cells(j, 2)
Sheets(m).Cells(j, 6) = -Sheets(m).Cells(j, 5) / (m - 1)
Sheets(m).Cells(j, 7) = "测试数据正常"
Loop
End Sub
网友评论
- 资源还可以,下载下来研究一下。
- 太简单了吧,起码给个excel模板什么的