|
ngsxngtd 发表于 2016-2-15 20:51
H( h, k% Y1 x; D$ v( y/ fAC-arctan(AC/80)*80=1是数学问题。
9 O4 e; S2 n7 T; ~ z+ t" Z
子子大侠既然读过VB,那么读VBA代码就应该没什么困难,核心是数值计算 ...
, G6 T% l7 K! a. ?9 Q 这位一看就是,去看过原帖然后到这里踢场来了。开个玩笑。 % M# S5 y& _8 E9 U& F/ D & V8 T1 N3 A0 n谢谢您的认真编程和回复。 # `* \9 R. ?6 `9 {0 O, |VBA我也是非常喜欢的。 : [0 x5 @6 g/ N& N- v5 j我的VB停留于VB6.0的年代,然后没机会去弄,就改用VBA了。f3 s8 A: V4 s, _. A 看你的程序真是漂亮多了,佩服一下。# k" t3 t- P* C9 w3 K: q
0 y; _, u0 O% O2 f在需要进行复杂迭代和循环计算和积分计算的时候,我会用VBA来做。 , {, s4 T8 q1 C3 b! H4 ^- o D我的水平一般是在Sheet里面添加一个Button,然后在里面写程序。g. A/ j4 E, S/ x5 t" @ Dim A as Double : I+ E! h+ V, y8 N6 ?Dim B as DoubleB3 E' @4 D# Z* y( U Dim Sum as Double / B& {- n% k/ \6 S3 y9 K, i3 ZO. d8 ~0 s7 s" [1 i A=Cells(6,3) # l' ?! v/ C. W. d. X; E4 GB=Cells(7,3) 9 ~1 f$ q0 l1 ] SFor I =1 to 100! @; J1 o, Q3 G blabla.......! h u+ q: d5 g5 p9 t2 ` Next) Q4 |! o& ~# ]. q3 Y Cells(8,3)=Sum 8 G$ T# O- f% g+ o, U3 Q ( }6 O6 n5 l# X; }- w5 |基本是这个水平。见笑了。 * D& G9 k2 ^# C, W" t0 M w. g5 P6 v/ C 您的附件我有下载打开,但是Excel Fleeze了,所以没能看到里面程序。 5 B, K' @( R4 r$ M: w0 O看您发的图片数据,像是一个凸轮的计算。 * m5 e3 N8 L I8 }看热力计算也很久违了,我是十年前读硕士的时候接触Enthapy的。& H% K* V+ T! z* j 我的Master theme是燃烧的数值计算,主要是用N-S方程式和k-e模型作CFD解析。' n' L& T B" f2 u) O+ r 不过我做的不太好,勉强毕业而已。遥远的回忆。) ]+ o8 j7 |4 }: l; @; ~2 H 2 c" D5 n) l, n# H' x7 A 再次感谢您的回复。 4 f. g# c* C8 ]! h) I |
|