|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51 
6 ?, L8 X3 U/ w2 i" o) eAC-arctan(AC/80)*80=1是数学问题。% Y7 w% C% k. ~3 v
子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
; c0 v; e+ h0 P$ w+ n, X这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
# X. Z0 e Q3 ]7 E' w8 E/ L: ^* |" i8 a6 `$ p9 h: K) I& m7 g) `
谢谢您的认真编程和回复。5 z& @7 @, e0 s& B6 I* V
VBA我也是非常喜欢的。
- l$ n$ P8 L0 w4 {) n我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。$ f0 e; B( P- P0 T
看你的程序真是漂亮多了，佩服一下。* o4 C8 r( K8 b6 ]8 Q8 ]. n4 {# ^
& z) \. T9 g2 J2 _7 l在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。
* J* s3 U& m$ f% R1 ~我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。
4 N/ B' H' x! b y/ z- PDim A as Double
1 s+ d; E( J; v. \Dim B as Double( ?# j# N: L. e- L: c
Dim Sum as Double l2 d- W4 w. D
% z0 Z B2 ^5 e x# a2 I/ _1 CA=Cells(6,3)( O0 C/ o, N9 q5 r+ o" i+ d
B=Cells(7,3) u9 p+ F( }! D. E/ D
For I =1 to 100
; o# F* e, _! w+ l( W+ Y% @) `4 C blabla......." u* O0 g* A5 @% h! ]8 ]7 Q% g1 f, k
Next
& J! \" `! y9 j0 F. R# ?Cells(8,3)=Sum* K4 Z5 ^4 ?( R2 h
7 K) W8 t3 h4 Z k" M4 p
基本是这个水平。见笑了。
8 q$ w, k$ A D8 J6 L: O7 B2 L : {& m& i* {/ v* _
您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。
3 K4 A: _# z+ N9 `; W. m看您发的图片数据，像是一个凸轮的计算。 H& F' t" E& q: c4 j- f! F
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。
Q: w! r' g) s/ c' E我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。
- U# _, o/ W6 D! M5 D3 K1 r) Y不过我做的不太好，勉强毕业而已。遥远的回忆。- k" F$ L: b v. u. S: C0 n8 u4 J/ P- @
% T1 p+ O' Q* G( I, m$ g% k7 c- \再次感谢您的回复。
d d) v: v. k |
|
楼主: 子子61961
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
