|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51 
/ N7 A5 }: a- PAC-arctan(AC/80)*80=1是数学问题。
: p( m1 y4 X6 W8 r6 S子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
' ?- y R3 b# }; f
/ w3 s& O1 n* j( F% E+ p谢谢您的认真编程和回复。8 S/ i* u- y9 K" g5 W& K
VBA我也是非常喜欢的。2 X+ W6 c0 Z8 ^
我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。) f. c5 j! t9 N! q# X
看你的程序真是漂亮多了，佩服一下。9 p, ~* n A+ K% x. i5 R
- J$ x- c: `/ |# R
在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。
8 }- e! }) J7 U2 F2 Y- ~我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。
2 q& h7 C* A5 z+ H* j% `Dim A as Double
% X/ s# v+ F- C& Q) `Dim B as Double
/ ?$ v$ [' U! ~" WDim Sum as Double
$ K) J/ v: l4 d1 ~; i1 Q$ T; c0 Y9 _2 V7 }0 m7 j" _
A=Cells(6,3)
, F* Z( \. p/ y+ u: WB=Cells(7,3)% o3 [' Z* a) ]8 {
For I =1 to 100
: n+ B+ h. {# m blabla.......
6 ^* a& c$ X) C3 |9 k; S' P, \- zNext
4 W2 a- y" ^ ?: V+ n' q% g- cCells(8,3)=Sum* Y5 E- U7 B, _/ v$ i# L
) X1 A$ F# n( ~4 K. J基本是这个水平。见笑了。
4 Q1 x' P8 r* `! C 7 R- ]! w+ O/ Z" S( p% n) s
您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。" U( e3 C8 a1 u& Y
看您发的图片数据，像是一个凸轮的计算。' r5 l5 y/ u+ D2 M7 k
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。
8 d m9 H& }" @- `3 q我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。$ Y9 i1 @, S k
不过我做的不太好，勉强毕业而已。遥远的回忆。, w6 ]* t7 k8 I) _- d
' x4 k1 j; N* V
再次感谢您的回复。- l6 y6 i1 i4 u) Q& j. p2 h
|
|
楼主: 子子61961
[复制链接]
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
