|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51 1 q- W2 N8 r1 G
AC-arctan(AC/80)*80=1是数学问题。& W) y. O8 b0 |
子子大侠既然读过VB,那么读VBA代码就应该没什么困难,核心是数值计算 ... , N) H2 n" F! V
这位一看就是,去看过原帖然后到这里踢场来了。开个玩笑。
* J# S" K" R/ x! |. m( v; l# ~: R7 c6 I0 k& r- ]1 D* W7 ]. N
谢谢您的认真编程和回复。) _# ]3 @( ~: q) z; p. I
VBA我也是非常喜欢的。
$ ~# K/ M F ^* h: ~! A我的VB停留于VB6.0的年代,然后没机会去弄,就改用VBA了。
% P/ m4 d3 p# u5 W看你的程序真是漂亮多了,佩服一下。
5 @* l8 @( l( P9 d0 l+ }, l" @. m$ X0 r' P8 z2 a% p, @7 h* I- `7 ]6 H w9 O
在需要进行复杂迭代和循环计算和积分计算的时候,我会用VBA来做。
. u9 ]# t2 Z7 }- S% {# S% `" ] r我的水平一般是在Sheet里面添加一个Button,然后在里面写程序。
( |: U% d5 H& P: D" w8 r3 Q8 l3 VDim A as Double0 n% k" n ?' O0 Q, B$ d' p% M8 T
Dim B as Double- B J R( C2 }, M
Dim Sum as Double3 r! R* {! I% r% }. s0 d9 D( w7 R
- |2 d+ E* m% G. `, q
A=Cells(6,3)
# ]. _2 c- X% w& k. t' d0 {! _- iB=Cells(7,3)
3 W4 C j, e; c4 X+ q: [1 Y' a yFor I =1 to 100
. m! o: J1 }# r+ K; T3 I5 X blabla.......8 i! V* G: o' G% x7 p( h
Next
- ]( g7 f" R, C7 eCells(8,3)=Sum
& m6 x3 ?$ R6 p6 f
) p. b- b& Y& Q基本是这个水平。见笑了。
3 R( r3 p/ }( d# {9 f, t $ z8 `0 r1 R% E6 O& R
您的附件我有下载打开,但是Excel Fleeze了,所以没能看到里面程序。- Y) w; s3 s0 h. i
看您发的图片数据,像是一个凸轮的计算。$ |2 \- Q3 _. K @0 y! k
看热力计算也很久违了,我是十年前读硕士的时候接触Enthapy的。& A" H) g. u" n+ A( j: K
我的Master theme是燃烧的数值计算,主要是用N-S方程式和k-e模型作CFD解析。
0 J% M# y1 B" U5 ^+ r, T# K. L不过我做的不太好,勉强毕业而已。遥远的回忆。" X1 T- S/ F3 U7 N- ?9 m
' k/ a$ I# N, m- _' j5 |. r8 Q再次感谢您的回复。
' @- v; H$ V; U# p) Q* C |
|