|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51  , ^% g4 Y- q! E
AC-arctan(AC/80)*80=1是数学问题。
( O# b; Y; ]5 z# ]7 l( c子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
3 ^! V9 E3 ]4 C' _1 T6 K9 s5 G这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。! f2 w; ~0 J1 {2 e
. t( r3 L; Q. t" `8 A( s4 o谢谢您的认真编程和回复。' Q, o# i) a2 l
VBA我也是非常喜欢的。
/ E# q, n; b' V( T8 E! a; f4 z我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。
7 R) L* v$ `, u, A! P' x: R4 m' I看你的程序真是漂亮多了，佩服一下。
; A. H. G4 R5 _" S* F: @
. d# ~" N$ [/ P1 ]" L7 i6 t在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。2 Q' `. R3 D# y
我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。. |0 \9 w8 L. M6 r
Dim A as Double! ?: t1 d" i& o t# I
Dim B as Double
% w* T }" s6 S# k [8 v- e/ _Dim Sum as Double% `& w9 m0 D, j" R4 R6 h
: T, \; g% V% `: uA=Cells(6,3). G* \6 F% g: Q; T P
B=Cells(7,3)0 p5 \8 p$ u; z! E3 F
For I =1 to 100! s* K9 k2 x: b, q1 E+ K: j
blabla.......; o2 F: n7 W# `( {
Next
) \/ |) P. T2 k4 y4 j! @) m: KCells(8,3)=Sum1 K$ {: C8 a8 C, U W2 O
4 |+ s* M8 [! j7 @9 l' x
基本是这个水平。见笑了。
0 E t* p( P( p3 V & ^* b4 F, ?# s6 @$ c- h
您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。
& K. C, A0 Q- x D4 ~看您发的图片数据，像是一个凸轮的计算。" a0 R* [6 E, Q8 v
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。6 X' Y. U2 s" a* I6 X
我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。) C$ { Q# u8 [# X4 k/ `# t
不过我做的不太好，勉强毕业而已。遥远的回忆。3 |. a r; F* u# S( K
4 `+ N' ]& p8 g' g
再次感谢您的回复。1 N- H% }* b$ U' r, s" g
|
|
楼主: 子子61961
[复制链接]
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
