|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51 
0 b' f% g) r4 z, t& S$ @( jAC-arctan(AC/80)*80=1是数学问题。: u+ d, p2 H c1 b) ^! {4 V! [/ s
子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
, y" l( ^1 a, r: i R1 f6 }4 q4 k; c( R) s1 c1 ?1 ]9 s
谢谢您的认真编程和回复。
. p; O( h9 c2 F! H/ b) L( rVBA我也是非常喜欢的。
6 L* K2 r$ c" q5 V我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。
^8 e0 u0 A0 ^- D( A+ l1 L- O看你的程序真是漂亮多了，佩服一下。
* B) U* U! ]8 W1 O/ l4 ~ k, J7 s. Y' ?
在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。
/ L4 ~3 }1 Z% B; Z我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。2 Z3 P1 |0 h0 @
Dim A as Double) @* u& M' q" ?
Dim B as Double" Q6 Y" B; p& n
Dim Sum as Double
# U$ o8 s9 r1 i( F# I3 m. ` J& K
! @0 {# v/ q& r- @% W* W; u, ?A=Cells(6,3)1 q/ f, K# H* a9 e7 g( z" j
B=Cells(7,3)
( i$ r8 Z: b+ N' ?+ N# n8 B) K2 u" kFor I =1 to 100: @6 F( G* W( E3 k) E
blabla.......% }* t/ h" V8 H8 f6 I" D4 V
Next0 B" Z) D3 j. d
Cells(8,3)=Sum/ R( @1 x2 v2 N
0 G/ p I" e- X: `基本是这个水平。见笑了。
$ O2 D! o" c* B/ ~8 k0 I- o3 ^
: n$ C2 B! g+ g# [4 N您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。
6 D: T0 R7 q4 Q6 t0 H. ]: u0 c& v看您发的图片数据，像是一个凸轮的计算。
1 Y1 k: u) E; P$ I9 n' }9 ?看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。9 t3 M4 l M9 r
我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。9 l0 |, x" U, ]1 f- v3 M
不过我做的不太好，勉强毕业而已。遥远的回忆。
P) O9 V$ ~ l
; Z! m' u- [/ G8 K0 { G2 t再次感谢您的回复。
6 H J, N% n2 {" z9 u6 Y |
|
楼主: 子子61961
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
