|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51  8 s0 K5 j$ ^0 B. `; }
AC-arctan(AC/80)*80=1是数学问题。
, U( A5 R6 o I+ [0 D* S2 J2 {子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
- G3 M H% K3 v# q: u+ k
0 {# r1 ` u6 x0 B" G; r( o谢谢您的认真编程和回复。1 W; z& j- _6 h; I$ a
VBA我也是非常喜欢的。! }3 h4 G4 U' r
我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。
( u0 w9 N: K- J) _3 u* Q" }看你的程序真是漂亮多了，佩服一下。2 q- \0 h- P7 j5 f" V
, x: \3 y% |, ~) A' i在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。1 Z: N( l3 j, g/ a
我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。( ]( E0 i! `* z9 Q9 O+ F' `
Dim A as Double" w$ W4 p, C1 E7 M1 G$ V7 ?
Dim B as Double
7 _3 ~8 y) l' E3 {+ @Dim Sum as Double
8 d% ~7 S& i) w' n& s: F# ~8 R* O6 Z/ }; |, I
A=Cells(6,3)
- ^2 x, H' A, D& AB=Cells(7,3)5 c) {3 r" h: n% B4 F$ e8 o
For I =1 to 100
8 r( b7 \+ w" S' U2 A! h blabla.......
% y( D2 c. e' h" xNext
/ P% L" u) O5 q, C7 m0 q" f& @1 v5 ^Cells(8,3)=Sum
; \& @! O) B! t3 P1 N- Q3 _' I, _0 G9 s* V( Y9 f8 T9 e' W3 ~+ v, b
基本是这个水平。见笑了。0 o. t! q4 A% K3 D8 B
, N% |8 k; R9 h( }& F
您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。9 ? [7 x% l8 ]& f
看您发的图片数据，像是一个凸轮的计算。/ I6 Y) A- l$ l& j
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。
' ?7 d4 X7 P8 D5 [我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。
. G1 \4 H$ N; C/ Z; A不过我做的不太好，勉强毕业而已。遥远的回忆。
: n$ q; }" L6 T4 a
7 P7 ?$ n* y5 B8 g0 [9 ^; L再次感谢您的回复。6 Q0 o, Q' z3 f! n
|
|
楼主: 子子61961
[复制链接]
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
