|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51
$ V; d) ?* v- I+ x% e4 B2 v$ GAC-arctan(AC/80)*80=1是数学问题。6 r7 X8 z* T5 O8 s
子子大侠既然读过VB,那么读VBA代码就应该没什么困难,核心是数值计算 ... 6 _7 S6 q$ L* M, i. @/ P
这位一看就是,去看过原帖然后到这里踢场来了。开个玩笑。1 I# R: {4 [! ]/ H
! F4 |2 T2 v3 `谢谢您的认真编程和回复。4 B( v p7 {* T9 P3 \: Y6 w) U
VBA我也是非常喜欢的。! v* m% o \# G
我的VB停留于VB6.0的年代,然后没机会去弄,就改用VBA了。! H+ J- j2 ^6 s& \& S
看你的程序真是漂亮多了,佩服一下。
$ k. M6 ?2 R$ m% }6 @
8 W# D, R" D e: X, j% e, z在需要进行复杂迭代和循环计算和积分计算的时候,我会用VBA来做。! ~! m: p( f+ a* z3 l, u
我的水平一般是在Sheet里面添加一个Button,然后在里面写程序。
" s, g4 A. d8 ?7 A9 @) t2 u8 P% CDim A as Double/ ?) \' N# y7 l/ f% w- q
Dim B as Double1 q0 y) \, U, I* A, R: ^$ A" C/ v
Dim Sum as Double
; e/ `1 K; @) ^; m$ C
& Q0 e5 c4 z$ `7 LA=Cells(6,3): \! B! a6 l7 ?; T6 g
B=Cells(7,3)& _7 l# q4 j: C8 U6 R: R! O4 l
For I =1 to 100
2 u8 o0 Q0 Q( y$ b5 m {- n& \ blabla.......7 }' L6 V0 \" k- `& S
Next0 U4 A( E2 @( l2 O! y$ z
Cells(8,3)=Sum
2 M1 H$ r& \7 t+ N7 ~' [+ Z6 p4 e8 i& t5 c' @& I
基本是这个水平。见笑了。' p' E' F! S$ \8 m: o, h
+ N: P: s5 b" H- j; l: X, a2 Y
您的附件我有下载打开,但是Excel Fleeze了,所以没能看到里面程序。
6 T- v) ?; u% s3 b+ \6 s: T看您发的图片数据,像是一个凸轮的计算。6 G: X$ ?3 t4 I' T: E8 g2 K
看热力计算也很久违了,我是十年前读硕士的时候接触Enthapy的。
. H2 H% c" r, V7 B/ l" o我的Master theme是燃烧的数值计算,主要是用N-S方程式和k-e模型作CFD解析。
0 Q. t* D! F5 K ^# O; B' K不过我做的不太好,勉强毕业而已。遥远的回忆。
) r D) [2 Z& T
' S q( Y5 p. m1 x8 f再次感谢您的回复。: j4 k( _! I: e2 ?5 X: p0 c
|
|