急需高手指点

我心飞翔410 · 发表于 2012-1-6 11:11

我这有个我工作共遇到的问题通过k , k1, k2, k3 计算的结果输入到不同的工作表的单元格中看k k1 k2 k3 对应到相应的sheet1 sheet2 sheet3 sheet4 其中计算过程都一样请高手帮我看看怎么简写啊我都是复制k的计算过程到其他计算过程中去比较麻烦。

123.rar (19.04 KB, 下载次数: 15)

hytsky · 发表于 2012-1-6 11:18

下载下来看看能不能解决

mxg825 · 发表于 2012-1-6 12:30

‘不知道是否正确？

Sub 左洞上台阶()
Dim c, a0, a1, a2, a3, k, c1, z As Double
Dim l, l1, h, h1, h2, h3 As Double
Dim X, y, x1, x2, x3, x4, x5, y1, y2, y3, y4, y5 As Double
Dim w1, w2, w4, w5 As Double
Dim k1, k2, k3 As Double
Dim she As Object
Dim m As Integer, Ks As Double
Const pi = 3.14159265358979
Const a = 72.215
Const ai = 62.36
Const aa = 73.246
Const R = 2500
Const R2 = 8.3405
k = InputBox("请输入里程")
For Each she In Sheets
m = m + 1
Ks = Choose(m, k, k - 6, k - 2 * 6, k - 3 * 6)
With she
.[C5] = Application.Text(Ks, "\左洞洞衬砌 K0\+000.00")
.Name = Application.Text(Ks, "\ K0\+000.00")
If Ks <= 3859.351 Then
h = 240.1 + ((Ks - 3680.649) / 89.351) ^ 2 * 0.2
ElseIf Ks <= 4753.034 Then
l1 = Ks - 3859.351
h = 240.898 + l1 * 0.00894
ElseIf k <= 4922.966 Then
h = 248.883 + (Ks - 4753.034) * 0.00894 + ((Ks - 4753.034) / 84.966) ^ 2 * 0.435
End If
h1 = h + 2.74
.Range("d9") = h1 '或h？
h2 = h + R2 / (2 ^ 0.5)
.Range("d10") = h2
h3 = h + R2
.Range("d11") = h3
'k1的计算过程
End With
Next
End Sub

复制代码

sunjing-zxl · 发表于 2012-1-6 14:57

你的表格即没说明，也没公式。
根本不知道你要计算什么。全部是数字

你到底是要计算桩号，还是高程。或者是其他什么。总得说清楚啊

我心飞翔410 · 发表于 2012-1-6 15:23

sunjing-zxl 发表于 2012-1-6 14:57
你的表格即没说明，也没公式。
根本不知道你要计算什么。全部是数字

我编的一个简单的vba代码一看就知道是高程是里程桩号是手动输入的

sunjing-zxl · 发表于 2012-1-6 17:13

我心飞翔410 发表于 2012-1-6 15:23
我编的一个简单的vba代码一看就知道是高程是里程桩号是手动输入的

你的问题是什么，你表格除了几个桩号高程外什么都没有啊

我心飞翔410 · 发表于 2012-1-6 17:29

sunjing-zxl 发表于 2012-1-6 17:13
你的问题是什么，你表格除了几个桩号高程外什么都没有啊

没的vba代码嘛？

sunjing-zxl · 发表于 2012-1-6 17:37

我心飞翔410 发表于 2012-1-6 17:29
没的vba代码嘛？

代码有，但是不知道你最终想要的目的是什么。
你的代码里面我看不出那些是曲线要素。。

你想要一个什么样的程序

sunjing-zxl · 发表于 2012-1-6 18:04

基本上是看懂你的意思了。
但是我觉得你干嘛非要把一个桩号分一个表。
做成下面的表不行吗？

左洞洞衬砌 H1 H2 H3
K4+459.00
K4+453.00
…

07缘来是你17 · 发表于 2012-1-6 18:17

实在看不懂什么意思

		自动登录	找回密码
密码			注册