|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51 
2 L! B5 I- E8 x& HAC-arctan(AC/80)*80=1是数学问题。1 N2 s% n2 ~) Y$ {1 ~1 S, C$ X
子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
# Q, H. p8 w3 s) a这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
! @% S3 p- K; p I6 q' d
! q' O; L: y5 _, h0 m谢谢您的认真编程和回复。$ Q# W' x# S9 W; m" f
VBA我也是非常喜欢的。
5 z z, p* v: d! E我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。8 @1 A; q5 k* K
看你的程序真是漂亮多了，佩服一下。
* T+ u: t; I1 U6 q9 g
, B, Z% R7 I# D6 K在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。
0 l+ Q/ g% s% R我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。
7 \) b% g% ~7 q4 {: _Dim A as Double
1 s& z; d9 V0 l3 }# kDim B as Double
. \) [0 X4 t& P5 e, eDim Sum as Double
- P. v! H, o. v" I& x) Y
' \9 {# ^8 y8 G5 s! O6 N$ VA=Cells(6,3)6 r) w) U9 D5 b/ J. R* ] }7 t
B=Cells(7,3)
0 P' ?: E0 k) D: Q0 W+ y& JFor I =1 to 100 ~5 F7 z' R! @9 u2 q
blabla.......- A, z- A3 {* Y; N, G! D9 K
Next
9 V2 Y: N7 L4 E lCells(8,3)=Sum) E8 v3 c* `- J [9 ?- p8 P
) U! m) \1 u4 N基本是这个水平。见笑了。2 E- U& o$ I- P2 _
! W% Q z: T2 J: o" g8 T您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。) w2 r9 [0 a& `5 Z+ `( j) k$ `
看您发的图片数据，像是一个凸轮的计算。) a/ y- o# C# x; k4 D) c
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。+ \; x8 y1 k% S+ q5 j
我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。
: U7 m* G' E0 t u, d不过我做的不太好，勉强毕业而已。遥远的回忆。+ c {. c7 [4 P0 }
5 S* t; {% ?6 x' T4 e/ F再次感谢您的回复。
( g! g& H: f3 N: @% J |
|
楼主: 子子61961
[复制链接]
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
